diff options
| author | Stefan Monnier | 2026-03-09 10:34:05 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2026-03-09 10:34:05 -0400 |
| commit | 0487d68ab9992be4fa70cfd908909001f71e66af (patch) | |
| tree | 8c93da3b94717d184f88277e277de949ecb2fb9c /lisp/ibuffer.el | |
| parent | 798dceb467d4ead092979822f24090c8378f8320 (diff) | |
| download | emacs-scratch/error-API.tar.gz emacs-scratch/error-API.zip | |
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 99fe5cd2f5a..6777d652c44 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el | |||
| @@ -1127,11 +1127,12 @@ a new window in the current frame, splitting vertically." | |||
| 1127 | (error | 1127 | (error |
| 1128 | ;; Handle a failure | 1128 | ;; Handle a failure |
| 1129 | (if (or (> (incf attempts) 4) | 1129 | (if (or (> (incf attempts) 4) |
| 1130 | (and (stringp (cadr err)) | 1130 | (let ((msg (error-slot-value err 1))) |
| 1131 | ;; This definitely falls in the | 1131 | (and (stringp msg) |
| 1132 | ;; ghetto hack category... | 1132 | ;; This definitely falls in the |
| 1133 | (not (string-match-p "too small" (cadr err))))) | 1133 | ;; ghetto hack category... |
| 1134 | (signal (car err) (cdr err)) | 1134 | (not (string-match-p "too small" msg))))) |
| 1135 | (signal err) | ||
| 1135 | (enlarge-window 3)))))) | 1136 | (enlarge-window 3)))))) |
| 1136 | (select-window (next-window)) | 1137 | (select-window (next-window)) |
| 1137 | (switch-to-buffer buf) | 1138 | (switch-to-buffer buf) |