Protect compilation-auto-jump against code killing the buffer
* lisp/progmodes/compile.el (compilation-auto-jump): Something may have killed the buffer before the timer fired (bug#24585).
This commit is contained in:
parent
a30268907c
commit
eca6c9281f
1 changed files with 7 additions and 6 deletions
|
@ -1148,12 +1148,13 @@ POS and RES.")
|
|||
(setcdr l1 (cons (list ,key) l2)))))))
|
||||
|
||||
(defun compilation-auto-jump (buffer pos)
|
||||
(with-current-buffer buffer
|
||||
(goto-char pos)
|
||||
(let ((win (get-buffer-window buffer 0)))
|
||||
(if win (set-window-point win pos)))
|
||||
(if compilation-auto-jump-to-first-error
|
||||
(compile-goto-error))))
|
||||
(when (buffer-live-p buffer)
|
||||
(with-current-buffer buffer
|
||||
(goto-char pos)
|
||||
(let ((win (get-buffer-window buffer 0)))
|
||||
(if win (set-window-point win pos)))
|
||||
(if compilation-auto-jump-to-first-error
|
||||
(compile-goto-error)))))
|
||||
|
||||
;; This function is the central driver, called when font-locking to gather
|
||||
;; all information needed to later jump to corresponding source code.
|
||||
|
|
Loading…
Add table
Reference in a new issue