emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master ef0c2e9940: Fix some misleading quoting in cl-case


From: Lars Ingebrigtsen
Subject: master ef0c2e9940: Fix some misleading quoting in cl-case
Date: Tue, 13 Sep 2022 12:19:40 -0400 (EDT)

branch: master
commit ef0c2e9940552e9b8612e8ae8c908466b2c99f0a
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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               | 16 ++++++++--------
 lisp/image-mode.el        |  6 +++---
 lisp/image/exif.el        | 14 +++++++-------
 lisp/image/image-crop.el  | 12 ++++++------
 lisp/progmodes/compile.el |  4 ++--
 5 files changed, 26 insertions(+), 26 deletions(-)

diff --git a/lisp/dnd.el b/lisp/dnd.el
index 70852885a8..b2e93a63de 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 9485f1e006..d27462ff0a 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 b25968af53..53d2074ed7 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 1a533aaf42..adf2a49348 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 5ce80e0657..ded5d2130e 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]