]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix some misleading quoting in cl-case
authorLars Ingebrigtsen <larsi@gnus.org>
Tue, 13 Sep 2022 16:19:26 +0000 (18:19 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Tue, 13 Sep 2022 16:19:26 +0000 (18:19 +0200)
* 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
lisp/image-mode.el
lisp/image/exif.el
lisp/image/image-crop.el
lisp/progmodes/compile.el

index 70852885a86ecf6a1001ed61186bd1430b70bd18..b2e93a63defce9a18db170ceb987fa2e069975dc 100644 (file)
@@ -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)
index 9485f1e0060beb33b0472d7141e89283cd337568..d27462ff0a2370926b8eb541e6894eaa49cd5fc7 100644 (file)
@@ -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))
 
index b25968af53682af46146e09ae5171c0ef26bc2b8..53d2074ed71545d48b39c3a57fecf777cb17a080 100644 (file)
@@ -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)
index 1a533aaf42bcd1a71cea3def45cf2a20c782c06b..adf2a4934830e06604ca4729e4669b52e15c954a 100644 (file)
@@ -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)
index 5ce80e065776f84eff5a5842ae7bec339f3fc011..ded5d2130e5a2aa6f2b7b491b3f35e694ef2a0c4 100644 (file)
@@ -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