Commit 4c43ca07 authored by Nick Roberts's avatar Nick Roberts
Browse files

(mode-line-remote): New variable.

(help-echo): Add to default values of mode-line-format.
parent 9f444841
......@@ -248,6 +248,22 @@ Normally nil in most modes, since there is no process to display.")
(make-variable-buffer-local 'mode-line-modified)
(defvar mode-line-remote
(list (propertize
'help-echo (purecopy (lambda (window object point)
(format "%s"
(select-window window)
(if (file-remote-p default-directory)
"Remote: "
"Local: ")
"Mode-line flag to show if default-directory for current buffer is remote.")
(make-variable-buffer-local 'mode-line-remote)
;; Actual initialization is below.
(defvar mode-line-position nil
"Mode-line control for displaying the position in the buffer.
......@@ -287,6 +303,7 @@ Keymap to display on minor modes.")
(propertize "-" 'help-echo help-echo)
(propertize " " 'help-echo help-echo)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment