From 4c43ca076ac63cde1753ffee0af68b8af64d33d9 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 22 Jul 2007 23:10:30 +0000 Subject: [PATCH] (mode-line-remote): New variable. (help-echo): Add to default values of mode-line-format. --- lisp/bindings.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lisp/bindings.el b/lisp/bindings.el index 5f3279a9ac4..93a28e9cf20 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -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 + "%1R" + 'help-echo (purecopy (lambda (window object point) + (format "%s" + (save-selected-window + (select-window window) + (concat + (if (file-remote-p default-directory) + "Remote: " + "Local: ") + default-directory))))))) + "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) 'mode-line-mule-info 'mode-line-modified + 'mode-line-remote 'mode-line-frame-identification 'mode-line-buffer-identification (propertize " " 'help-echo help-echo) -- 2.39.5