From 7e46b7bf2402b2a333f597edf591c9b39c773838 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Fri, 13 Feb 2004 23:10:59 +0000 Subject: [PATCH] (kill-new): Put yank-handler property on the entire string. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8a93bde3575..6e6f513b0e9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-02-13 Luc Teirlinck + + * simple.el (kill-new): Put yank-handler property on the entire + string. + 2004-02-11 Luc Teirlinck * simple.el (kill-append): Doc fix. diff --git a/lisp/simple.el b/lisp/simple.el index 4fa209f161e..8017878dd2a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1842,7 +1842,8 @@ may access and use elements from the kill-ring directly, the STRING argument should still be a \"useful\" string for such uses." (if (> (length string) 0) (if yank-handler - (put-text-property 0 1 'yank-handler yank-handler string)) + (put-text-property 0 (length string) + 'yank-handler yank-handler string)) (if yank-handler (signal 'args-out-of-range (list string "yank-handler specified for empty string")))) -- 2.39.2