# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 713145410 0
# Node ID ef045ff2cb943893f05463f84fc1f63342ed618b
# Parent  758218342a399f29447c888d43174934534c0f55
*** empty log message ***

diff -r 758218342a39 -r ef045ff2cb94 lisp/progmodes/compile.el
--- 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)))