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/dnd.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/dnd.el')
-rw-r--r-- | lisp/dnd.el | 16 |
1 files changed, 8 insertions, 8 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) |