From: Luc Teirlinck <teirllm@auburn.edu>
Date: Fri, 13 Feb 2004 23:10:59 +0000 (+0000)
Subject: (kill-new): Put yank-handler property on the entire string.
X-Git-Tag: ttn-vms-21-2-B4~7642
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e46b7bf2402b2a333f597edf591c9b39c773838;p=emacs.git

(kill-new): Put yank-handler property on the entire string.
---

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  <teirllm@auburn.edu>
+
+	* simple.el (kill-new): Put yank-handler property on the entire
+	string.
+
 2004-02-11  Luc Teirlinck  <teirllm@auburn.edu>
 
 	* 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"))))