show server socket name in modeline

diff --git a/init/mode-line/init-mode-line.el b/init/mode-line/init-mode-line.el
index 44d30553c4aa4d67c11761a9b496fa1faaf347b5..1846031f560c472df706bd66de5ff3a0b6006c9f 100644 (file)
--- a/init/mode-line/init-mode-line.el
+++ b/init/mode-line/init-mode-line.el
@@ -6,6 +6,11 @@
                                  " "
                                  "(" mode-name ")"
                                  " "
-                                 "[" (:eval (abbreviate-file-name default-directory)) "]"))
+                                 "[" (:eval (abbreviate-file-name default-directory)) "]"
+                                 " "
+                                 "(" (:eval (if server-process
+                                                (process-name server-process)
+                                              "none"))
+                                 ")"))
 
 (provide 'init-mode-line)