procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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