diff options
-rw-r--r-- | .emacs.d/init.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 7a1dac68..ab935fe4 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -529,11 +529,13 @@ that's something we can determine.") (setq ,prev-buffers (window-prev-buffers ,window)) ret-val))) (transient-cycles-buffer-ring-cycler - :ring (cl-etypecase ret-val - (buffer (transient-cycles-buffer-siblings-ring ret-val)) - (window (transient-cycles-buffer-siblings-ring - (window-buffer ret-val))) - (ring ret-val)) + :ring (pcase ret-val + ((pred ring-p) ret-val) + ((cl-type buffer) + (transient-cycles-buffer-siblings-ring ret-val)) + ((cl-type window) + (transient-cycles-buffer-siblings-ring + (window-buffer ret-val)))) :action (if (windowp ret-val) (with-selected-window ret-val (let ((display-buffer-overriding-action |