Mercurial > emacs

changeset 946:ef045ff2cb94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Thu, 06 Aug 1992 23:56:50 +0000
parents 758218342a39
children c45ba80a9da9
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Thu Aug 06 03:32:15 1992 +0000
+++ b/lisp/progmodes/compile.el	Thu Aug 06 23:56:50 1992 +0000
@@ -310,8 +310,8 @@
     (define-key map "\^?" 'scroll-down)
     (define-key map "\M-n" 'compilation-next-error)
     (define-key map "\M-p" 'compilation-previous-error)
-    (define-key map "\C-x[" 'compilation-previous-file)
-    (define-key map "\C-x]" 'compilation-next-file)
+    (define-key map "\M-{" 'compilation-previous-file)
+    (define-key map "\M-}" 'compilation-next-file)
     map)
   "Keymap for compilation log buffers.")
 
@@ -872,7 +872,6 @@
 
       ;; Figure out which constituent regexp matched.
       (cond ((match-beginning enter-group)
-	     (funcall progress)
 	     ;; The match was the enter-directory regexp.
 	     (let ((dir
 		    (file-name-as-directory
@@ -885,7 +884,6 @@
 		    (setq default-directory dir))))
 	    
 	    ((match-beginning leave-group)
-	     (funcall progress)
 	     ;; The match was the leave-directory regexp.
 	     (let ((beg (match-beginning (+ leave-group 1)))
 		   (stack compilation-directory-stack))
@@ -939,7 +937,6 @@
 				   (cons filename linenum))
 			     compilation-error-list))))
 	     (setq nfound (1+ nfound))
-	     (funcall progress)
 	     (and find-at-least (>= nfound find-at-least)
 		  ;; We have found as many new errors as the user wants.
 		  (setq found-desired t)))