diff lisp/progmodes/compile.el @ 92493:402ee2cfca27

* 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.

--- a/lisp/progmodes/compile.el	Wed Mar 05 03:57:43 2008 +0000
+++ b/lisp/progmodes/compile.el	Wed Mar 05 04:09:24 2008 +0000
@@ -1291,7 +1291,8 @@
   (let ((map (make-sparse-keymap "Errors"))
 	(opt-map (make-sparse-keymap "Skip")))
     (define-key map [stop-subjob]
-      '("Stop Compilation" . kill-compilation))
+      '(menu-item "Stop Compilation" kill-compilation
+		  :help "Kill the process made by the M-x compile or M-x grep commands"))
     (define-key map [compilation-mode-separator3]
       '("----" . nil))
     (define-key map [compilation-next-error-follow-minor-mode]
@@ -1325,11 +1326,14 @@
     (define-key map [compilation-mode-separator2]
       '("----" . nil))
     (define-key map [compilation-first-error]
-      '("First Error" . first-error))
+      '(menu-item "First Error" first-error
+		  :help "Restart at the first error, visit corresponding source code"))
     (define-key map [compilation-previous-error]
-      '("Previous Error" . previous-error))
+      '(menu-item "Previous Error" previous-error
+		  :help "Visit previous `next-error' message and corresponding source code"))
     (define-key map [compilation-next-error]
-      '("Next Error" . next-error))
+      '(menu-item "Next Error" next-error
+		  :help "Visit next `next-error' message and corresponding source code"))
     map))
 
 (defvar compilation-minor-mode-map
@@ -1400,11 +1404,14 @@
     (define-key map [menu-bar compilation compilation-separator2]
       '("----" . nil))
     (define-key map [menu-bar compilation compilation-grep]
-      '("Search Files (grep)..." . grep))
+      '(menu-item "Search Files (grep)..." grep
+		  :help "Run grep, with user-specified args, and collect output in a buffer"))
     (define-key map [menu-bar compilation compilation-recompile]
-      '("Recompile" . recompile))
+      '(menu-item "Recompile" recompile
+	:help "Re-compile the program including the current buffer"))
     (define-key map [menu-bar compilation compilation-compile]
-      '("Compile..." . compile))
+      '(menu-item "Compile..." compile
+		  :help "Compile the program including the current buffer.  Default: run `make'"))
     map)
   "Keymap for compilation log buffers.
 `compilation-minor-mode-map' is a parent of this.")