diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-13 22:20:23 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-14 11:55:56 -0700 |
commit | ecd0e3d4dae68528f5c2f40c020b7cdf335baa7f (patch) | |
tree | 9c80279a2a7759604d89acad980cda971cab1ec7 | |
parent | 895b981cf4da9996b7661cfdebb49f2de780196d (diff) | |
download | dotfiles-ecd0e3d4dae68528f5c2f40c020b7cdf335baa7f.tar.gz |
fix "Unknown type: ring" warning
-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 |