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

This commit is contained in:
Po Lu 2025-02-14 17:56:22 +08:00
parent 7ac578c57c
commit 4d6f40dfc9

View file

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