diff options
author | Karoly Lorentey <[email protected]> | 2005-12-29 21:11:27 +0000 |
---|---|---|
committer | Karoly Lorentey <[email protected]> | 2005-12-29 21:11:27 +0000 |
commit | 27d8b4bf36cd29b138d2263594e4cd2311104b12 (patch) | |
tree | 703b165c80692258dd6a1bf5442308dc674c132f /lisp/bindings.el | |
parent | c28443026f6215a6a4bbe65f16fcd8dbbefc50f8 (diff) |
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: [email protected]/emacs--multi-tty--0--patch-474
Diffstat (limited to 'lisp/bindings.el')
-rw-r--r-- | lisp/bindings.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index ee01a93203..a978300fee 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -170,6 +170,14 @@ corresponding to the mode line clicked." (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 @@ Keymap to display on minor modes.") "%e" (propertize "-" 'help-echo help-echo) 'mode-line-mule-info + 'mode-line-client 'mode-line-modified 'mode-line-frame-identification 'mode-line-buffer-identification |