mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

Copy just non-empty strings to kill-ring

Browse Source 
* lisp/dired.el (dired-copy-filename-as-kill):
Do not change the kill ring when the string is empty (Bug#24103).
This commit is contained in:
Tino Calancha 2016-07-30 17:26:19 +09:00
parent 9c542a23a8
commit d81dc05258
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/dired.el
View File

@ -2467,10 +2467,11 @@ You can then feed the file name(s) to other commands with \\[yank]."
'no-dir (prefix-numeric-value arg))))
(dired-get-marked-files 'no-dir))
" "))))
(if (eq last-command 'kill-region)
(kill-append string nil)
(kill-new string))
(message "%s" string)))
(unless (string= string "")
(if (eq last-command 'kill-region)
(kill-append string nil)
(kill-new string))
(message "%s" string))))
;; Keeping Dired buffers in sync with the filesystem and with each other