mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

Rename default function to next-error-buffer-unnavigated-current (bug#40919)

Browse Source 
* lisp/simple.el (next-error-find-buffer-function): Rename default function
from next-error-no-navigation-try-current
to next-error-buffer-unnavigated-current.
This commit is contained in:
Juri Linkov 2020-06-17 02:14:12 +03:00
parent 1dff0a8949
commit cd4f75bb86
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/simple.el
View File

@ -199,7 +199,7 @@ rejected, and the function returns nil."
(and extra-test-inclusive
(funcall extra-test-inclusive))))))
(defcustom next-error-find-buffer-function #'next-error-no-navigation-try-current
(defcustom next-error-find-buffer-function #'next-error-buffer-unnavigated-current
"Function called to find a `next-error' capable buffer.
This functions takes the same three arguments as the function
`next-error-find-buffer', and should return the buffer to be
@ -212,7 +212,7 @@ all other buffers."
(const :tag "Single next-error capable buffer on selected frame"
next-error-buffer-on-selected-frame)
(const :tag "Current buffer if next-error capable and outside navigation"
next-error-no-navigation-try-current)
next-error-buffer-unnavigated-current)
(function :tag "Other function"))
:group 'next-error
:version "27.1")
@ -242,10 +242,9 @@ from which next-error navigated, and a target buffer TO-BUFFER."
(if (eq (length window-buffers) 1)
(car window-buffers))))
(defun next-error-no-navigation-try-current (&optional
avoid-current
extra-test-inclusive
extra-test-exclusive)
(defun next-error-buffer-unnavigated-current (&optional avoid-current
extra-test-inclusive
extra-test-exclusive)
"Try the current buffer when outside navigation.
But return nil if we navigated to the current buffer by the means
of `next-error' command. Othewise, return it if it's next-error