Commit 15d1a8da authored by Roland McGrath's avatar Roland McGrath
Browse files

*** empty log message ***

parent a5f8804e
...@@ -90,6 +90,7 @@ are found.") ...@@ -90,6 +90,7 @@ are found.")
(defvar compilation-error-regexp-alist (defvar compilation-error-regexp-alist
'( '(
;; NOTE! This first one is repeated in grep-regexp-alist, below.
;; 4.3BSD grep, cc, lint pass 1: ;; 4.3BSD grep, cc, lint pass 1:
;; /usr/src/foo/foo.c(8): warning: w may be used before set ;; /usr/src/foo/foo.c(8): warning: w may be used before set
;; or GNU utilities ;; or GNU utilities
...@@ -122,6 +123,10 @@ are found.") ...@@ -122,6 +123,10 @@ are found.")
compilation. If REGEXP matches, the FILE-IDX'th subexpression gives the file compilation. If REGEXP matches, the FILE-IDX'th subexpression gives the file
name, and the LINE-IDX'th subexpression gives the line number.") name, and the LINE-IDX'th subexpression gives the line number.")
(defvar grep-regexp-alist
'(("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2))
"Regexp used to match grep hits. See `compilation-error-regexp-alist'.")
;;;###autoload ;;;###autoload
(defvar compilation-search-path '(nil) (defvar compilation-search-path '(nil)
"*List of directories to search for source files named in error messages. "*List of directories to search for source files named in error messages.
...@@ -205,7 +210,9 @@ easily repeat a grep command." ...@@ -205,7 +210,9 @@ easily repeat a grep command."
(list (read-from-minibuffer "Run grep (like this): " (list (read-from-minibuffer "Run grep (like this): "
"grep -n " nil nil 'grep-history))) "grep -n " nil nil 'grep-history)))
(compile-internal (concat command-args " /dev/null") (compile-internal (concat command-args " /dev/null")
"No more grep hits" "grep")) "No more grep hits" "grep"
;; Give it a simpler regexp to match.
nil grep-regexp-alist))
(defun compile-internal (command error-message (defun compile-internal (command error-message
&optional name-of-mode parser regexp-alist &optional name-of-mode parser regexp-alist
...@@ -545,6 +552,9 @@ other kinds of prefix arguments are ignored." ...@@ -545,6 +552,9 @@ other kinds of prefix arguments are ignored."
(setq compilation-last-buffer (current-buffer)) (setq compilation-last-buffer (current-buffer))
(compile-reinitialize-errors argp (point)) (compile-reinitialize-errors argp (point))
;; Move to bol; the marker for the error on this line will point there.
(beginning-of-line)
;; Move compilation-error-list to the elt of compilation-old-error-list ;; Move compilation-error-list to the elt of compilation-old-error-list
;; we want. ;; we want.
(setq compilation-error-list compilation-old-error-list) (setq compilation-error-list compilation-old-error-list)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment