diff options
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/dired.el | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 383effb5eb..dde227b915 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2002-01-07 Richard M. Stallman <[email protected]> + * dired.el (dired-copy-filename-as-kill): Call kill-append + if following a kill command. + * help-fns.el (describe-variable, describe-function): Do save-excursion. diff --git a/lisp/dired.el b/lisp/dired.el index 48296ba26a..0ad019a321 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1615,7 +1615,9 @@ You can then feed the file name(s) to other commands with \\[yank]." (dired-get-marked-files t))) (dired-get-marked-files 'no-dir)) " ")))) - (kill-new string) + (if (eq last-command 'kill-region) + (kill-append string nil) + (kill-new string)) (message "%s" string))) |