diff options
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) |