/[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.276.2.10 by miles, Fri Nov 19 06:55:10 2004 UTC revision 1.276.2.11 by miles, Wed Dec 8 05:02:27 2004 UTC
# Line 181  of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"? Line 181  of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?
181      (epc      (epc
182       "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1)       "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1)
183    
184      (ftnchek-file      (ftnchek
185       "^File \\(.+\\.f\\):$"       "\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)"
186       1 nil nil 0)       4 2 3 (1))
     (ftnchek-line-file  
      "\\(^Warning .* \\)?line \\([0-9]+\\)\\(?: col \\([0-9]+\\)\\)? file \\(.+\\.f\\)"  
      4 2 3 (1) nil (1 'default nil t))  
     (ftnchek-line  
      "\\(?:^\\(Warning\\) .* \\)?line \\([0-9]+\\)\\(?: col \\([0-9]+\\)\\)?"  
      nil 2 3 (1) nil (1 (compilation-face '(1)) nil t))  
187    
188      (iar      (iar
189       "^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:"       "^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:"
# Line 916  Returns the compilation buffer created." Line 910  Returns the compilation buffer created."
910          ;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make"          ;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make"
911          (cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command)          (cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command)
912                  (if (match-end 1)                  (if (match-end 1)
913                      (match-string 1 command)                      (substitute-env-vars (match-string 1 command))
914                    "~")                    "~")
915                default-directory))                default-directory))
916          (erase-buffer)          (erase-buffer)
# Line 1086  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)      ;; Don't inherit from compilation-minor-mode-map,
1084        ;; because that introduces a menu bar item we don't want.
1085        ;; That confuses C-down-mouse-3.
1086        (define-key map [mouse-2] 'compile-goto-error)
1087        (define-key map "\C-c\C-c" 'compile-goto-error)
1088        (define-key map "\C-m" 'compile-goto-error)
1089        (define-key map "\C-c\C-k" 'kill-compilation)
1090        (define-key map "\M-n" 'compilation-next-error)
1091        (define-key map "\M-p" 'compilation-previous-error)
1092        (define-key map "\M-{" 'compilation-previous-file)
1093        (define-key map "\M-}" 'compilation-next-file)
1094    
1095      (define-key map " " 'scroll-up)      (define-key map " " 'scroll-up)
1096      (define-key map "\^?" 'scroll-down)      (define-key map "\^?" 'scroll-down)
1097      (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)      (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
1098    
1099      ;; Set up the menu-bar      ;; Set up the menu-bar
1100      (define-key map [menu-bar compilation]      (let ((submap (make-sparse-keymap "Compile")))
1101        (cons "Compile" (make-sparse-keymap "Compile")))        (define-key map [menu-bar compilation]
1102            (cons "Compile" submap))
1103          (set-keymap-parent submap compilation-menu-map))
1104      (define-key map [menu-bar compilation compilation-separator2]      (define-key map [menu-bar compilation compilation-separator2]
1105        '("----" . nil))        '("----" . nil))
1106      (define-key map [menu-bar compilation compilation-grep]      (define-key map [menu-bar compilation compilation-grep]

Legend:
Removed from v.1.276.2.10  
changed lines
  Added in v.1.276.2.11

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