aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStephen Leake2019-04-14 09:23:24 -0700
committerStephen Leake2019-04-14 09:23:24 -0700
commitca449fb1c1f86589cbf4da49cda1750ffdb2cad4 (patch)
tree10e04f4d63b60ecc5e5bb86dc145dd10bfcf29d7
parent7ba7def5caf7ec9d9bebffff489f0a658229fbda (diff)
downloademacs-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/NEWS2
-rw-r--r--lisp/simple.el10
2 files changed, 6 insertions, 6 deletions
diff --git a/etc/NEWS b/etc/NEWS
index 9e3d993cab0..f41db027b28 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -309,7 +309,7 @@ and directory-local variables.
309longer. 309longer.
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.
115If non-nil, the message is output only when the error buffer 115If nil, the message is output only when the error buffer
116changes." 116changes."
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