# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1076713786 0
# Node ID bfe6c29e5283d5469ff1b3b9383ee19ac886a600
# Parent  5ef5871606566798c1d23f37ec482b9926a75da2
(kill-new): Put yank-handler property on the entire string.

diff -r 5ef587160656 -r bfe6c29e5283 lisp/simple.el
--- a/lisp/simple.el	Thu Feb 12 17:04:42 2004 +0000
+++ b/lisp/simple.el	Fri Feb 13 23:09:46 2004 +0000
@@ -1842,7 +1842,8 @@
 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"))))