From 4de547e4a7344c26c0bc04915b27371b335ceb14 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Jan 2002 05:31:29 +0000 Subject: [PATCH] (dired-copy-filename-as-kill): Call kill-append if following a kill command. --- lisp/ChangeLog | 3 +++ lisp/dired.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 383effb5eb7..dde227b915d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2002-01-07 Richard M. Stallman + * 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 48296ba26ab..0ad019a321d 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))) -- 2.39.2