comparison lisp/bindings.el @ 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: [e-mail]--2004/emacs--multi-tty--0--patch-474

83433:072e54344b8d

		 (define-key map [mode-line mouse-1] 'mode-line-change-eol)
		 map))
	     'mouse-face 'mode-line-highlight))
      (push (cons eol (cons mnemonic desc)) mode-line-eol-desc-cache)
      desc)))

(defvar mode-line-mule-info
  `(""
    (current-input-method
     (:propertize ("" current-input-method-title)

  (setq-default mode-line-format
    (list
     "%e"
     (propertize "-" 'help-echo help-echo)
     'mode-line-mule-info
     'mode-line-modified
     'mode-line-frame-identification
     'mode-line-buffer-identification
     (propertize "   " 'help-echo help-echo)
     'mode-line-position

83434:944e6b68a0de

		 (define-key map [mode-line mouse-1] 'mode-line-change-eol)
		 map))
	     'mouse-face 'mode-line-highlight))
      (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
     (:propertize ("" current-input-method-title)

  (setq-default mode-line-format
    (list
     "%e"
     (propertize "-" 'help-echo help-echo)
     'mode-line-mule-info
     'mode-line-client
     'mode-line-modified
     'mode-line-frame-identification
     'mode-line-buffer-identification
     (propertize "   " 'help-echo help-echo)
     'mode-line-position