diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-13 18:19:26 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-13 18:19:26 +0200 |
commit | ef0c2e9940552e9b8612e8ae8c908466b2c99f0a (patch) | |
tree | 314c47448b946b9f0f27bda813298b66424e29d1 /lisp/image-mode.el | |
parent | 35d597348cca9159fefeb1adddebf7d1a146f47b (diff) | |
download | emacs-ef0c2e9940552e9b8612e8ae8c908466b2c99f0a.tar.gz |
Fix some misleading quoting in cl-case
* lisp/progmodes/compile.el (compilation-auto-jump):
* lisp/image/image-crop.el (image-crop--crop-image-1):
(image-crop--crop-image-1):
* lisp/image/exif.el (exif--process-value):
* lisp/image-mode.el (image-mode--next-file):
* lisp/dnd.el (dnd-begin-text-drag):
(dnd-begin-file-drag):
(dnd-begin-drag-files): Fix misleading quoting in cl-case (bug#51368).
Diffstat (limited to 'lisp/image-mode.el')
-rw-r--r-- | lisp/image-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 9485f1e0060..d27462ff0a2 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -1262,7 +1262,7 @@ If N is negative, go to the previous file." (save-window-excursion (switch-to-buffer (cdr buffer) t t) (cl-case (car buffer) - ('dired + (dired (dired-goto-file file) (let (found) (while (and (not found) @@ -1280,9 +1280,9 @@ If N is negative, go to the previous file." ;; If we didn't find a next/prev file, then restore ;; point. (dired-goto-file file)))) - ('archive + (archive (setq next (archive-next-file-displayer file regexp n))) - ('tar + (tar (setq next (tar-next-file-displayer file regexp n)))))) next)) |