Mercurial > emacs
changeset 7099:59c3c3a1b571
(compilation-next-error-locus): Use compilation-error-message instead of
"Moved past last error" when MOVE is 1 (default value).
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 25 Apr 1994 22:31:41 +0000 |
| parents | 9e9d5db094b5 |
| children | 3aaa031a8fe4 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Mon Apr 25 22:22:31 1994 +0000 +++ b/lisp/progmodes/compile.el Mon Apr 25 22:31:41 1994 +0000 @@ -853,9 +853,10 @@ (while (if (null next-error) (progn - (if move (if (> move 0) - (error "Moved past last error") - (error "Moved back past first error"))) + (and move (/= move 1) + (error (if (> move 0) + "Moved past last error") + "Moved back past first error")) (compilation-forget-errors) (error (concat compilation-error-message (and (get-buffer-process (current-buffer))