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

7
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,8 +242,7 @@ 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.