fix live process/dead buffer bub on w32

[bpt/emacs.git] / lisp / bindings.el

diff --git a/lisp/bindings.el b/lisp/bindings.el
index b712729..10a098b 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -187,7 +187,7 @@ Normally nil in most modes, since there is no process to display.")
        (propertize
         "%1+"
         'help-echo  (purecopy (lambda (window object point)
-                                (format "%sodified: mouse-2 toggles flag"
+                                (format "%sodified: mouse-2 toggles"
                                         (save-selected-window
                                           (select-window window)
                                           (if (buffer-modified-p)
@@ -324,7 +324,7 @@ Return a string to display in the mode line for the current mode name."
              :button (:toggle . highlight-changes-mode)))
 (define-key mode-line-mode-menu [glasses-mode]
   `(menu-item ,(purecopy "Glasses") glasses-mode
-             :button (:toggle . glasses-mode)))
+             :button (:toggle . (bound-and-true-p glasses-mode))))
 (define-key mode-line-mode-menu [hide-ifdef-mode]
   `(menu-item ,(purecopy "Hide ifdef") hide-ifdef-mode
              :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
@@ -414,8 +414,6 @@ buffer, mouse-2: prev, M-mouse-2: next, mouse-3: buffer menu")
         ".x86f" ".sparcf"
         ;; Libtool
         ".lo" ".la"
-        ;; Java
-        ".class"
         ;; Texinfo-related
         ".toc" ".log" ".aux"
         ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"
@@ -490,8 +488,10 @@ buffer, mouse-2: prev, M-mouse-2: next, mouse-3: buffer menu")
 
 (make-variable-buffer-local 'indent-tabs-mode)
 
-;; We have base64 functions built in now.
+;; We have base64 and md5 functions built in now.
 (add-to-list 'features 'base64)
+(add-to-list 'features 'md5)
+(add-to-list 'features 'overlay)
 
 (define-key esc-map "\t" 'complete-symbol)
 
@@ -731,9 +731,9 @@ language you are using."
 (define-key function-key-map [kp-end] [end])
 (define-key function-key-map [kp-begin] [begin])
 (define-key function-key-map [kp-insert] [insert])
-(define-key function-key-map [kp-delete] [delete])
 (define-key function-key-map [backspace] [?\C-?])
 (define-key function-key-map [delete] [?\C-?])
+(define-key function-key-map [kp-delete] [?\C-?])
 
 (define-key global-map [mouse-movement] 'ignore)