diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-02-13 23:10:59 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-02-13 23:10:59 +0000 |
| commit | 7e46b7bf2402b2a333f597edf591c9b39c773838 (patch) | |
| tree | 9b6c022044c7ce9d43f14435338e90e221bdbc58 /lisp/simple.el | |
| parent | 6f6b0433436856f8e6c1c506f49c976687a59d4d (diff) | |
| download | emacs-7e46b7bf2402b2a333f597edf591c9b39c773838.tar.gz | |
(kill-new): Put yank-handler property on the entire string.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
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")))) |