aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2019-11-26 15:03:57 +0100
committerJuanma Barranquero2019-11-26 15:03:57 +0100
commite495dbea7035bcb1f26ed82f0d56a5abc90974fa (patch)
tree67a6e689aa5ce4a87cce7c7f8f8686a45a37d140
parent90a7cd073bfc7461e0bc824e9883499fe9026727 (diff)
downloademacs-e495dbea7035bcb1f26ed82f0d56a5abc90974fa.tar.gz
emacs-e495dbea7035bcb1f26ed82f0d56a5abc90974fa.zip
(next|previous)-buffer no longer fail silently (bug#38384)
* lisp/window.el (next-buffer, previous-buffer): Signal 'user-error' if there is no buffer to switch to. * etc/NEWS: Document it.
-rw-r--r--etc/NEWS4
-rw-r--r--lisp/window.el6
2 files changed, 8 insertions, 2 deletions
diff --git a/etc/NEWS b/etc/NEWS
index 2a14eb2ecfc..d3331daf17f 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2620,6 +2620,10 @@ scrolling.
2620** help-follow-symbol now signals 'user-error' if point (or the 2620** help-follow-symbol now signals 'user-error' if point (or the
2621position pointed to by the argument POS) is not in a symbol. 2621position pointed to by the argument POS) is not in a symbol.
2622 2622
2623---
2624*** next-buffer and previous-buffer now signal 'user-error' if there
2625is no buffer to switch to.
2626
2623 2627
2624* Lisp Changes in Emacs 27.1 2628* Lisp Changes in Emacs 27.1
2625 2629
diff --git a/lisp/window.el b/lisp/window.el
index 49fad75d3cd..c8a5816b8c9 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -4850,7 +4850,8 @@ minibuffer window or is dedicated to its buffer."
4850 (user-error "Window is strongly dedicated to its buffer")) 4850 (user-error "Window is strongly dedicated to its buffer"))
4851 (t 4851 (t
4852 (dotimes (_ (or arg 1)) 4852 (dotimes (_ (or arg 1))
4853 (switch-to-next-buffer))))) 4853 (unless (switch-to-next-buffer)
4854 (user-error "No next buffer"))))))
4854 4855
4855(defun previous-buffer (&optional arg) 4856(defun previous-buffer (&optional arg)
4856 "In selected window switch to ARGth previous buffer. 4857 "In selected window switch to ARGth previous buffer.
@@ -4864,7 +4865,8 @@ minibuffer window or is dedicated to its buffer."
4864 (user-error "Window is strongly dedicated to its buffer")) 4865 (user-error "Window is strongly dedicated to its buffer"))
4865 (t 4866 (t
4866 (dotimes (_ (or arg 1)) 4867 (dotimes (_ (or arg 1))
4867 (switch-to-prev-buffer))))) 4868 (unless (switch-to-prev-buffer)
4869 (user-error "No previous buffer"))))))
4868 4870
4869(defun delete-windows-on (&optional buffer-or-name frame) 4871(defun delete-windows-on (&optional buffer-or-name frame)
4870 "Delete all windows showing BUFFER-OR-NAME. 4872 "Delete all windows showing BUFFER-OR-NAME.