# HG changeset patch
# User Karoly Lorentey <lorentey@elte.hu>
# Date 1135890687 0
# Node ID 944e6b68a0deddd40bf92b43f068e3f551d048a5
# Parent  072e54344b8db0dcf800548a03d6cdc640e874db
Display "@" in mode-lines of Emacsclient frames.

* lisp/bindings.el (mode-line-client): New variable.
  (help-echo): Add it to the default mode-line format.

* lisp/files.el (mode-line-client): Set it as risky.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-474

diff -r 072e54344b8d -r 944e6b68a0de lisp/bindings.el
--- a/lisp/bindings.el	Thu Dec 29 21:10:33 2005 +0000
+++ b/lisp/bindings.el	Thu Dec 29 21:11:27 2005 +0000
@@ -170,6 +170,14 @@
       (push (cons eol (cons mnemonic desc)) mode-line-eol-desc-cache)
       desc)))
 
+(defvar mode-line-client
+  `(""
+    (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" "")))
+		 help-echo "Emacsclient frame"
+		 local-map ,mode-line-input-method-map
+		 mouse-face mode-line-highlight))
+  "Mode-line control for identifying Emacsclient frames.")
+
 (defvar mode-line-mule-info
   `(""
     (current-input-method
@@ -294,6 +302,7 @@
      "%e"
      (propertize "-" 'help-echo help-echo)
      'mode-line-mule-info
+     'mode-line-client
      'mode-line-modified
      'mode-line-frame-identification
      'mode-line-buffer-identification
diff -r 072e54344b8d -r 944e6b68a0de lisp/files.el
--- a/lisp/files.el	Thu Dec 29 21:10:33 2005 +0000
+++ b/lisp/files.el	Thu Dec 29 21:11:27 2005 +0000
@@ -2434,6 +2434,7 @@
 (put 'mode-line-format 'risky-local-variable t)
 (put 'mode-line-modified 'risky-local-variable t)
 (put 'mode-line-mule-info 'risky-local-variable t)
+(put 'mode-line-client 'risky-local-variable t)
 (put 'mode-line-buffer-identification 'risky-local-variable t)
 (put 'mode-line-modes 'risky-local-variable t)
 (put 'mode-line-position 'risky-local-variable t)