diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-05 04:09:24 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-03-05 04:09:24 +0000 |
| commit | 388059876ac4a5aa55149e0544f58118742c5020 (patch) | |
| tree | 1998506c19d7e9d9f6f8b513dc1e3566fcc1397d /lisp/bindings.el | |
| parent | 3405b0dfde50d1f5e5983b84cbd5ead7490c7fd1 (diff) | |
| download | emacs-388059876ac4a5aa55149e0544f58118742c5020.tar.gz | |
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
(standard-mode-line-position): Add mouse-face.
* progmodes/compile.el (compilation-menu-map):
(compilation-mode-map):
* progmodes/grep.el (grep-mode-map): Add :help.
* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Define and
initialize in one step. Add :help. Use :enable to activate menu
items. Show the key binding for edebug-defun.
(lisp-interaction-mode-map): Add a menu.
* term.el (term-mode-map): Define and initialize in one step.
* ediff-init.el (ediff-color-display-p): Simplify.
(Xor): Remove unused function.
(ediff-with-syntax-table): Simplify for emacs.
* ediff-hook.el (menu-bar-ediff-menu): Don't depend on the
menu-bar being loaded, it always is.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 646129736b6..4b40a00f4f5 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -260,15 +260,16 @@ Normally nil in most modes, since there is no process to display.") (defvar mode-line-remote (list (propertize "%1@" + 'mouse-face 'mode-line-highlight '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))))))) + (if (file-remote-p default-directory) + "Current directory is remote: " + "Current directory is local: ") + default-directory))))))) "Mode-line flag to show if default-directory for current buffer is remote.") (make-variable-buffer-local 'mode-line-remote) @@ -370,6 +371,7 @@ mouse-3: Toggle minor modes" `((-3 ,(propertize "%p" 'local-map mode-line-column-line-number-mode-map + 'mouse-face 'mode-line-highlight ;; XXX needs better description 'help-echo "Size indication mode\n\ mouse-1: Display Line and Column Mode Menu")) @@ -377,6 +379,7 @@ mouse-1: Display Line and Column Mode Menu")) (8 ,(propertize " of %I" 'local-map mode-line-column-line-number-mode-map + 'mouse-face 'mode-line-highlight ;; XXX needs better description 'help-echo "Size indication mode\n\ mouse-1: Display Line and Column Mode Menu"))) @@ -385,17 +388,20 @@ mouse-1: Display Line and Column Mode Menu"))) (10 ,(propertize " (%l,%c)" 'local-map mode-line-column-line-number-mode-map + 'mouse-face 'mode-line-highlight 'help-echo "Line number and Column number\n\ mouse-1: Display Line and Column Mode Menu")) (6 ,(propertize " L%l" 'local-map mode-line-column-line-number-mode-map + 'mouse-face 'mode-line-highlight 'help-echo "Line Number\n\ mouse-1: Display Line and Column Mode Menu")))) ((column-number-mode (5 ,(propertize " C%c" 'local-map mode-line-column-line-number-mode-map + 'mouse-face 'mode-line-highlight 'help-echo "Column number\n\ mouse-1: Display Line and Column Mode Menu")))))))) |