[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v |
Date: |
Wed, 05 Mar 2008 04:09:27 +0000 |
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.")