Mercurial > emacs
changeset 18820:ac2b130c513a
(yank, yank-pop): Clear out read-only prop.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 16 Jul 1997 05:33:34 +0000 |
| parents | 881a46c98ddf |
| children | 83425393d550 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 11 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Jul 16 05:30:34 1997 +0000 +++ b/lisp/simple.el Wed Jul 16 05:33:34 1997 +0000 @@ -1492,7 +1492,10 @@ (before (< (point) (mark t)))) (delete-region (point) (mark t)) (set-marker (mark-marker) (point) (current-buffer)) - (insert (current-kill arg)) + (let ((opoint (point)) + (inhibit-read-only t)) + (insert (current-kill arg)) + (remove-text-properties opoint (point) '(read-only nil))) (if before ;; This is like exchange-point-and-mark, but doesn't activate the mark. ;; It is cleaner to avoid activation, even though the command @@ -1514,10 +1517,13 @@ ;; for the following command. (setq this-command t) (push-mark (point)) - (insert (current-kill (cond - ((listp arg) 0) - ((eq arg '-) -1) - (t (1- arg))))) + (let ((opoint (point)) + (inhibit-read-only t)) + (insert (current-kill (cond + ((listp arg) 0) + ((eq arg '-) -1) + (t (1- arg))))) + (remove-text-properties opoint (point) '(read-only nil))) (if (consp arg) ;; This is like exchange-point-and-mark, but doesn't activate the mark. ;; It is cleaner to avoid activation, even though the command