Mercurial > emacs

changeset 901:38d1af64858c

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 Fri, 31 Jul 1992 00:08:13 +0000
parents 4fcbe8aa7ccc
children c81d26e85bef
files lisp/progmodes/compile.el
diffstat 1 files changed, 6 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Thu Jul 30 21:09:53 1992 +0000
+++ b/lisp/progmodes/compile.el	Fri Jul 31 00:08:13 1992 +0000
@@ -486,10 +486,10 @@
   (compile-reinitialize-errors argp (point))
 
   ;; Move compilation-error-list to the elt of compilation-old-error-list
-  ;; whose cadr is the error we want.
+  ;; we want.
   (setq compilation-error-list compilation-old-error-list)
-  (while (and (cdr compilation-error-list)
-	      (> (point) (car (car (cdr compilation-error-list)))))
+  (while (and compilation-error-list
+	      (> (point) (car (car compilation-error-list))))
     (setq compilation-error-list (cdr compilation-error-list)))
 
   ;; Move to another window, so that next-error's window changes
@@ -501,7 +501,7 @@
 	;; but we didn't want to do that.
 	(set-buffer compilation-last-buffer)))
 
-  (next-error 0))
+  (next-error 1))
 
 (defun compilation-buffer-p (buffer)
   (assq 'compilation-error-list (buffer-local-variables buffer)))
@@ -569,9 +569,8 @@
   (let (next-errors next-error)
     (save-excursion
       (set-buffer compilation-last-buffer)
-      ;; This code used to do something bizarre and incomprehensible.
-      ;; Was there a reason I wrote it like that?  --roland
-      (setq next-errors (nthcdr (prefix-numeric-value argp)
+      ;; compilation-error-list points to the "current" error.
+      (setq next-errors (nthcdr (1- (prefix-numeric-value argp))
 				compilation-error-list)
 	    next-error (car next-errors))
       (while