*** empty log message ***

1 files changed, 2 insertions, 5 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9a718924877..8bf1a279848 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -310,8 +310,8 @@ Returns the compilation buffer created."
     (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 @@ See variable `compilation-parse-errors-function' for the interface it uses."
 
       ;; 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 @@ See variable `compilation-parse-errors-function' for the interface it uses."
 		    (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 @@ See variable `compilation-parse-errors-function' for the interface it uses."
 				   (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)))