diff options
| author | Juri Linkov | 2020-06-17 02:14:12 +0300 |
|---|---|---|
| committer | Juri Linkov | 2020-06-17 02:14:12 +0300 |
| commit | cd4f75bb86e160158786b0d5a07319a49c3ad7b8 (patch) | |
| tree | 1ef135c29a521a917085999fca9558d015c3c5ca | |
| parent | 1dff0a89497fec15297a97fcd643ea8475f704da (diff) | |
| download | emacs-cd4f75bb86e160158786b0d5a07319a49c3ad7b8.tar.gz emacs-cd4f75bb86e160158786b0d5a07319a49c3ad7b8.zip | |
Rename default function to next-error-buffer-unnavigated-current (bug#40919)
* lisp/simple.el (next-error-find-buffer-function): Rename default function
from next-error-no-navigation-try-current
to next-error-buffer-unnavigated-current.
| -rw-r--r-- | lisp/simple.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 1555b376a36..e4958de113e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -199,7 +199,7 @@ rejected, and the function returns nil." | |||
| 199 | (and extra-test-inclusive | 199 | (and extra-test-inclusive |
| 200 | (funcall extra-test-inclusive)))))) | 200 | (funcall extra-test-inclusive)))))) |
| 201 | 201 | ||
| 202 | (defcustom next-error-find-buffer-function #'next-error-no-navigation-try-current | 202 | (defcustom next-error-find-buffer-function #'next-error-buffer-unnavigated-current |
| 203 | "Function called to find a `next-error' capable buffer. | 203 | "Function called to find a `next-error' capable buffer. |
| 204 | This functions takes the same three arguments as the function | 204 | This functions takes the same three arguments as the function |
| 205 | `next-error-find-buffer', and should return the buffer to be | 205 | `next-error-find-buffer', and should return the buffer to be |
| @@ -212,7 +212,7 @@ all other buffers." | |||
| 212 | (const :tag "Single next-error capable buffer on selected frame" | 212 | (const :tag "Single next-error capable buffer on selected frame" |
| 213 | next-error-buffer-on-selected-frame) | 213 | next-error-buffer-on-selected-frame) |
| 214 | (const :tag "Current buffer if next-error capable and outside navigation" | 214 | (const :tag "Current buffer if next-error capable and outside navigation" |
| 215 | next-error-no-navigation-try-current) | 215 | next-error-buffer-unnavigated-current) |
| 216 | (function :tag "Other function")) | 216 | (function :tag "Other function")) |
| 217 | :group 'next-error | 217 | :group 'next-error |
| 218 | :version "27.1") | 218 | :version "27.1") |
| @@ -242,10 +242,9 @@ from which next-error navigated, and a target buffer TO-BUFFER." | |||
| 242 | (if (eq (length window-buffers) 1) | 242 | (if (eq (length window-buffers) 1) |
| 243 | (car window-buffers)))) | 243 | (car window-buffers)))) |
| 244 | 244 | ||
| 245 | (defun next-error-no-navigation-try-current (&optional | 245 | (defun next-error-buffer-unnavigated-current (&optional avoid-current |
| 246 | avoid-current | 246 | extra-test-inclusive |
| 247 | extra-test-inclusive | 247 | extra-test-exclusive) |
| 248 | extra-test-exclusive) | ||
| 249 | "Try the current buffer when outside navigation. | 248 | "Try the current buffer when outside navigation. |
| 250 | But return nil if we navigated to the current buffer by the means | 249 | But return nil if we navigated to the current buffer by the means |
| 251 | of `next-error' command. Othewise, return it if it's next-error | 250 | of `next-error' command. Othewise, return it if it's next-error |