diff options
author | Stephen Leake <stephen_leake@stephe-leake.org> | 2019-04-14 09:23:24 -0700 |
---|---|---|
committer | Stephen Leake <stephen_leake@stephe-leake.org> | 2019-04-14 09:23:24 -0700 |
commit | ca449fb1c1f86589cbf4da49cda1750ffdb2cad4 (patch) | |
tree | 10e04f4d63b60ecc5e5bb86dc145dd10bfcf29d7 | |
parent | 7ba7def5caf7ec9d9bebffff489f0a658229fbda (diff) | |
download | emacs-ca449fb1c1f86589cbf4da49cda1750ffdb2cad4.tar.gz |
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. longer. --- -** next-error-verbosity controls when `next-error' outputs a message +** next-error-verbose controls when `next-error' outputs a message about the error locus. 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'." :type 'hook :group 'next-error) -(defcustom next-error-verbosity nil - "If nil, `next-error' always outputs the current error buffer. -If non-nil, the message is output only when the error buffer +(defcustom next-error-verbose t + "If non-nil, `next-error' always outputs the current error buffer. +If nil, the message is output only when the error buffer changes." :group 'next-error :type 'boolean @@ -323,7 +323,7 @@ To control which errors are matched, customize the variable (funcall next-error-function (prefix-numeric-value arg) reset) (let ((prev next-error-last-buffer)) (next-error-found buffer (current-buffer)) - (when (or (not next-error-verbosity) + (when (or next-error-verbose (not (eq prev next-error-last-buffer))) (message "%s locus from %s" (cond (reset "First") @@ -339,7 +339,7 @@ To control which errors are matched, customize the variable (funcall next-error-function 0 nil) (let ((prev next-error-last-buffer)) (next-error-found buffer (current-buffer)) - (when (or (not next-error-verbosity) + (when (or next-error-verbose (not (eq prev next-error-last-buffer))) (message "Current locus from %s" next-error-last-buffer))))) |