diff options
| author | Stephen Leake | 2019-04-14 09:23:24 -0700 |
|---|---|---|
| committer | Stephen Leake | 2019-04-14 09:23:24 -0700 |
| commit | ca449fb1c1f86589cbf4da49cda1750ffdb2cad4 (patch) | |
| tree | 10e04f4d63b60ecc5e5bb86dc145dd10bfcf29d7 | |
| parent | 7ba7def5caf7ec9d9bebffff489f0a658229fbda (diff) | |
| download | emacs-ca449fb1c1f86589cbf4da49cda1750ffdb2cad4.tar.gz emacs-ca449fb1c1f86589cbf4da49cda1750ffdb2cad4.zip | |
Rename new user variable `next-error-verbosity' to `next-error-verbose'
* etc/NEWS: Update entry to match renaming.
* lisp/simple.el (next-error-verbose): Rename.
(next-error, next-error-internal): Match rename.
| -rw-r--r-- | etc/NEWS | 2 | ||||
| -rw-r--r-- | lisp/simple.el | 10 |
2 files changed, 6 insertions, 6 deletions
| @@ -309,7 +309,7 @@ and directory-local variables. | |||
| 309 | longer. | 309 | longer. |
| 310 | 310 | ||
| 311 | --- | 311 | --- |
| 312 | ** next-error-verbosity controls when `next-error' outputs a message | 312 | ** next-error-verbose controls when `next-error' outputs a message |
| 313 | about the error locus. | 313 | about the error locus. |
| 314 | 314 | ||
| 315 | 315 | ||
diff --git a/lisp/simple.el b/lisp/simple.el index 37f92540dde..fb667350dcf 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -110,9 +110,9 @@ If non-nil, the value is passed directly to `recenter'." | |||
| 110 | :type 'hook | 110 | :type 'hook |
| 111 | :group 'next-error) | 111 | :group 'next-error) |
| 112 | 112 | ||
| 113 | (defcustom next-error-verbosity nil | 113 | (defcustom next-error-verbose t |
| 114 | "If nil, `next-error' always outputs the current error buffer. | 114 | "If non-nil, `next-error' always outputs the current error buffer. |
| 115 | If non-nil, the message is output only when the error buffer | 115 | If nil, the message is output only when the error buffer |
| 116 | changes." | 116 | changes." |
| 117 | :group 'next-error | 117 | :group 'next-error |
| 118 | :type 'boolean | 118 | :type 'boolean |
| @@ -323,7 +323,7 @@ To control which errors are matched, customize the variable | |||
| 323 | (funcall next-error-function (prefix-numeric-value arg) reset) | 323 | (funcall next-error-function (prefix-numeric-value arg) reset) |
| 324 | (let ((prev next-error-last-buffer)) | 324 | (let ((prev next-error-last-buffer)) |
| 325 | (next-error-found buffer (current-buffer)) | 325 | (next-error-found buffer (current-buffer)) |
| 326 | (when (or (not next-error-verbosity) | 326 | (when (or next-error-verbose |
| 327 | (not (eq prev next-error-last-buffer))) | 327 | (not (eq prev next-error-last-buffer))) |
| 328 | (message "%s locus from %s" | 328 | (message "%s locus from %s" |
| 329 | (cond (reset "First") | 329 | (cond (reset "First") |
| @@ -339,7 +339,7 @@ To control which errors are matched, customize the variable | |||
| 339 | (funcall next-error-function 0 nil) | 339 | (funcall next-error-function 0 nil) |
| 340 | (let ((prev next-error-last-buffer)) | 340 | (let ((prev next-error-last-buffer)) |
| 341 | (next-error-found buffer (current-buffer)) | 341 | (next-error-found buffer (current-buffer)) |
| 342 | (when (or (not next-error-verbosity) | 342 | (when (or next-error-verbose |
| 343 | (not (eq prev next-error-last-buffer))) | 343 | (not (eq prev next-error-last-buffer))) |
| 344 | (message "Current locus from %s" next-error-last-buffer))))) | 344 | (message "Current locus from %s" next-error-last-buffer))))) |
| 345 | 345 | ||