Mercurial > emacs
changeset 83434:944e6b68a0de
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
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Thu, 29 Dec 2005 21:11:27 +0000 |
| parents | 072e54344b8d |
| children | 5efa63b61ac5 |
| files | lisp/bindings.el lisp/files.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)