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

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)

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

lisp/image/exif.el

@@ -271,8 +271,8 @@ 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
+    (ascii (substring value 0 (1- (length value))))
+    (rational (with-temp-buffer
                 (set-buffer-multibyte nil)
                 (insert value)
                 (goto-char (point-min))

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)

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