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

[Dan Nicolaescu]

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

Index: progmodes/compile.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.461
retrieving revision 1.462
diff -u -b -r1.461 -r1.462
--- progmodes/compile.el        2 Mar 2008 01:10:29 -0000       1.461
+++ progmodes/compile.el        5 Mar 2008 04:09:23 -0000       1.462
@@ -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.")