[Emacs-diffs] Changes to emacs/lisp/bindings.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/03/05 04:09:26

Index: bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.197
retrieving revision 1.198
diff -u -b -r1.197 -r1.198
--- bindings.el 3 Mar 2008 08:30:18 -0000       1.197
+++ bindings.el 5 Mar 2008 04:09:24 -0000       1.198
@@ -260,14 +260,15 @@
 (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: ")
+                                              "Current directory is remote: "
+                                            "Current directory is local: ")
                                          default-directory)))))))
   "Mode-line flag to show if default-directory for current buffer is remote.")
 
@@ -370,6 +371,7 @@
        `((-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 @@
           (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 @@
             (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"))))))))