diff options
| author | Juanma Barranquero | 2019-11-26 15:03:57 +0100 |
|---|---|---|
| committer | Juanma Barranquero | 2019-11-26 15:03:57 +0100 |
| commit | e495dbea7035bcb1f26ed82f0d56a5abc90974fa (patch) | |
| tree | 67a6e689aa5ce4a87cce7c7f8f8686a45a37d140 | |
| parent | 90a7cd073bfc7461e0bc824e9883499fe9026727 (diff) | |
| download | emacs-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/NEWS | 4 | ||||
| -rw-r--r-- | lisp/window.el | 6 |
2 files changed, 8 insertions, 2 deletions
| @@ -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 |
| 2621 | position pointed to by the argument POS) is not in a symbol. | 2621 | position 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 | ||
| 2625 | is 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. |