mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(compile-mouse-goto-error): Don't lose with

Browse Source 
null markers.
(compile-goto-error): Likewise.
This commit is contained in:
Dave Love 1999-02-05 15:19:54 +00:00
parent f3ac545f7d
commit 41a3354e11
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/progmodes/compile.el
View File

@ -1,6 +1,6 @@
;;; compile.el --- run compiler as inferior of Emacs, parse error messages.
;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@prep.ai.mit.edu>
;; Maintainer: FSF
@ -1295,7 +1295,11 @@ at the end of the line."
;; we want.
(setq compilation-error-list compilation-old-error-list)
(while (and compilation-error-list
(> (point) (car (car compilation-error-list))))
;; The marker can point nowhere if we previously
;; failed to find the relevant file. See
;; compilation-next-error-locus.
(or (null (marker-buffer (caar compilation-error-list)))
(> (point) (caar compilation-error-list))))
(setq compilation-error-list (cdr compilation-error-list)))
(or compilation-error-list
(error "No error to go to")))
@ -1322,7 +1326,11 @@ other kinds of prefix arguments are ignored."
;; we want.
(setq compilation-error-list compilation-old-error-list)
(while (and compilation-error-list
(> (point) (car (car compilation-error-list))))
;; The marker can point nowhere if we previously
;; failed to find the relevant file. See
;; compilation-next-error-locus.
(or (null (marker-buffer (caar compilation-error-list)))
(> (point) (caar compilation-error-list))))
(setq compilation-error-list (cdr compilation-error-list)))
(push-mark)