* lisp/x-dnd.el (x-dnd-do-direct-save): Remove redundant stmts.
This commit is contained in:
parent
7ac578c57c
commit
4d6f40dfc9
1 changed files with 31 additions and 33 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Reference in a new issue