Function: next-error-quit-window

next-error-quit-window is a byte-compiled function defined in simple.el.gz.

Signature

(next-error-quit-window FROM-BUFFER TO-BUFFER)

Documentation

Quit window of FROM-BUFFER when the prefix arg is 0.

Intended to be used in next-error-found-function.

Probably introduced at or before Emacs version 28.1.

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun next-error-quit-window (from-buffer to-buffer)
  "Quit window of FROM-BUFFER when the prefix arg is 0.
Intended to be used in `next-error-found-function'."
  (when (and (eq current-prefix-arg 0) from-buffer
             (not (eq from-buffer to-buffer)))
    (let ((window (get-buffer-window from-buffer)))
      (when (window-live-p window)
        (quit-restore-window window)))))