diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-04-19 00:23:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-04-19 00:23:18 +0000 |
| commit | e7c765c3fc0adbfd1f397bae54b6d24f985927f9 (patch) | |
| tree | 539778764d1349b92554e344dab058dd226c8224 /lisp/register.el | |
| parent | afa0467f08f00add1f7056f8d0ccc0a3aa034d4b (diff) | |
| download | emacs-e7c765c3fc0adbfd1f397bae54b6d24f985927f9.tar.gz | |
(insert-register): Use insert-for-yank.
(describe-register-1): Discard text props in yank-excluded-properties.
Diffstat (limited to 'lisp/register.el')
| -rw-r--r-- | lisp/register.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/register.el b/lisp/register.el index c93d52c9f9b..98adce7ae86 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -230,6 +230,9 @@ The Lisp value REGISTER is a character." (princ (car val)))) ((stringp val) + (setq val + (remove-list-of-text-properties 0 (length val) + yank-excluded-properties val)) (if verbose (progn (princ "the text:\n") @@ -253,7 +256,7 @@ Interactively, second arg is non-nil if prefix arg is supplied." ((consp val) (insert-rectangle val)) ((stringp val) - (insert val)) + (insert-for-yank val)) ((numberp val) (princ val (current-buffer))) ((and (markerp val) (marker-position val)) |