mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/x-dnd.el (x-dnd-do-direct-save): Remove redundant stmts.

Browse source
This commit is contained in:
Po Lu 2025-02-14 17:56:22 +08:00
parent 7ac578c57c
commit 4d6f40dfc9
1 changed files with 31 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/x-dnd.el
View file

@ -1544,10 +1544,8 @@ was taken, or the direct save failed."
(x-dnd-use-offix-drop nil) (x-dnd-use-offix-drop nil)
(x-dnd-use-unsupported-drop nil) (x-dnd-use-unsupported-drop nil)
(prop-deleted nil) (prop-deleted nil)
(action nil)
encoded-name) encoded-name)
(unwind-protect (unwind-protect
(setq action
(progn (progn
(when (file-remote-p file) (when (file-remote-p file)
(setq file-name (file-local-copy file)) (setq file-name (file-local-copy file))
@ -1578,7 +1576,7 @@ was taken, or the direct save failed."
(and (or (null property) (and (or (null property)
(and (stringp property) (and (stringp property)
(not (equal property "")))) (not (equal property ""))))
action)))))) action)))))
(unless prop-deleted (unless prop-deleted
(x-delete-window-property "XdndDirectSave0" frame)) (x-delete-window-property "XdndDirectSave0" frame))
;; Delete any remote copy that was made. ;; Delete any remote copy that was made.