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).

5 files changed, 26 insertions, 26 deletions

diff --git a/lisp/dnd.el b/lisp/dnd.el
index 70852885a86..b2e93a63def 100644
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -370,8 +370,8 @@ currently being held down.  It should only be called upon a
                          ;; the standard (i.e. Qt programs).
                          "text/plain" "text/plain;charset=utf-8")
                        (cl-ecase action
-                         ('copy 'XdndActionCopy)
-                         ('move 'XdndActionMove))
+                         (copy 'XdndActionCopy)
+                         (move 'XdndActionMove))
                        frame nil allow-same-frame)))
     (cond
      ((eq return-value 'XdndActionCopy) 'copy)
@@ -457,9 +457,9 @@ currently being held down.  It should only be called upon a
                              ;; programs.
                              "_DT_NETFILE")
                            (cl-ecase action
-                             ('copy 'XdndActionCopy)
-                             ('move 'XdndActionMove)
-                             ('link 'XdndActionLink))
+                             (copy 'XdndActionCopy)
+                             (move 'XdndActionMove)
+                             (link 'XdndActionLink))
                            frame nil allow-same-frame)))
         (cond
          ((eq return-value 'XdndActionCopy) 'copy)
@@ -527,9 +527,9 @@ FILES will be dragged."
                            ;; and Haiku.
                            "FILE_NAME" "HOST_NAME")
                          (cl-ecase action
-                           ('copy 'XdndActionCopy)
-                           ('move 'XdndActionMove)
-                           ('link 'XdndActionLink))
+                           (copy 'XdndActionCopy)
+                           (move 'XdndActionMove)
+                           (link 'XdndActionLink))
                          frame nil allow-same-frame)))
       (cond
        ((eq return-value 'XdndActionCopy) 'copy)
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))
 
diff --git a/lisp/image/exif.el b/lisp/image/exif.el
index b25968af536..53d2074ed71 100644
--- a/lisp/image/exif.el
+++ b/lisp/image/exif.el
@@ -271,13 +271,13 @@ VALUE is an integer representing BYTES characters."
   "Do type-based post-processing of the value."
   (cl-case type
     ;; Chop off trailing zero byte.
-    ('ascii (substring value 0 (1- (length value))))
-    ('rational (with-temp-buffer
-                 (set-buffer-multibyte nil)
-                 (insert value)
-                 (goto-char (point-min))
-                 (cons (exif--read-number 4 le)
-                       (exif--read-number 4 le))))
+    (ascii (substring value 0 (1- (length value))))
+    (rational (with-temp-buffer
+                (set-buffer-multibyte nil)
+                (insert value)
+                (goto-char (point-min))
+                (cons (exif--read-number 4 le)
+                      (exif--read-number 4 le))))
     (otherwise value)))
 
 (defun exif--read-chunk (bytes)
diff --git a/lisp/image/image-crop.el b/lisp/image/image-crop.el
index 1a533aaf42b..adf2a493483 100644
--- a/lisp/image/image-crop.el
+++ b/lisp/image/image-crop.el
@@ -208,7 +208,7 @@ After cropping an image, it can be saved by `M-x image-save' or
 	    ()
 	  (let ((pos (nth 8 (cadr event))))
 	    (cl-case state
-	      ('begin
+	      (begin
 	       (cond
 		((eq (car event) 'down-mouse-1)
 		 (setq state 'stretch
@@ -217,7 +217,7 @@ After cropping an image, it can be saved by `M-x image-save' or
 		       (cl-getf area :top) (cdr pos)
 		       (cl-getf area :right) (car pos)
 		       (cl-getf area :bottom) (cdr pos)))))
-	      ('stretch
+	      (stretch
 	       (cond
 		((eq (car event) 'mouse-movement)
 		 (setf (cl-getf area :right) (car pos)
@@ -225,7 +225,7 @@ After cropping an image, it can be saved by `M-x image-save' or
 		((memq (car event) '(mouse-1 drag-mouse-1))
 		 (setq state 'corner
 		       prompt "Choose corner to adjust (RET to crop)"))))
-	      ('corner
+	      (corner
 	       (cond
 		((eq (car event) 'down-mouse-1)
 		 ;; Find out what corner we're close to.
@@ -238,7 +238,7 @@ After cropping an image, it can be saved by `M-x image-save' or
 		 (when corner
 		   (setq state 'adjust
 			 prompt "Adjust crop")))))
-	      ('adjust
+	      (adjust
 	       (cond
 		((memq (car event) '(mouse drag-mouse-1))
 		 (setq state 'corner
@@ -246,12 +246,12 @@ After cropping an image, it can be saved by `M-x image-save' or
 		((eq (car event) 'mouse-movement)
 		 (setf (cl-getf area (car corner)) (car pos)
 		       (cl-getf area (cadr corner)) (cdr pos)))))
-	      ('move-unclick
+	      (move-unclick
 	       (cond
 		((eq (car event) 'down-mouse-1)
 		 (setq state 'move-click
 		       prompt "Move"))))
-	      ('move-click
+	      (move-click
 	       (cond
 		((eq (car event) 'mouse-movement)
 		 (setf (cl-getf area :left) (car pos)
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 5ce80e06577..ded5d2130e5 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1235,10 +1235,10 @@ POS and RES.")
         (if win (set-window-point win pos)))
       (when compilation-auto-jump-to-first-error
         (cl-case compilation-auto-jump-to-first-error
-          ('if-location-known
+          (if-location-known
            (when (compilation--file-known-p)
 	     (compile-goto-error)))
-          ('first-known
+          (first-known
            (let (match)
              (while (and (not (compilation--file-known-p))
                          (setq match (text-property-search-forward