/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.340 by pfeiffer, Mon Nov 22 23:31:28 2004 UTC revision 1.341 by rms, Thu Nov 25 03:01:10 2004 UTC
# Line 1080  exited abnormally with code %d\n" Line 1080  exited abnormally with code %d\n"
1080    
1081  (defvar compilation-mode-map  (defvar compilation-mode-map
1082    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
1083      (set-keymap-parent map compilation-minor-mode-map)      (define-key map [mouse-2] 'compile-goto-error)
1084        (define-key map "\C-c\C-c" 'compile-goto-error)
1085        (define-key map "\C-m" 'compile-goto-error)
1086        (define-key map "\C-c\C-k" 'kill-compilation)
1087        (define-key map "\M-n" 'compilation-next-error)
1088        (define-key map "\M-p" 'compilation-previous-error)
1089        (define-key map "\M-{" 'compilation-previous-file)
1090        (define-key map "\M-}" 'compilation-next-file)
1091    
1092      (define-key map " " 'scroll-up)      (define-key map " " 'scroll-up)
1093      (define-key map "\^?" 'scroll-down)      (define-key map "\^?" 'scroll-down)
1094      (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)      (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
1095    
1096      ;; Set up the menu-bar      ;; Set up the menu-bar
1097      (define-key map [menu-bar compilation]      (let ((submap (make-sparse-keymap "Compile")))
1098        (cons "Compile" (make-sparse-keymap "Compile")))        (define-key map [menu-bar compilation]
1099            (cons "Compile" submap))
1100          (set-keymap-parent submap compilation-menu-map))
1101      (define-key map [menu-bar compilation compilation-separator2]      (define-key map [menu-bar compilation compilation-separator2]
1102        '("----" . nil))        '("----" . nil))
1103      (define-key map [menu-bar compilation compilation-grep]      (define-key map [menu-bar compilation compilation-grep]

Legend:
Removed from v.1.340  
changed lines
  Added in v.1.341

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26