From 7ae13091e55958e35133ebf2f003c389609b8d55 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 16 Jul 1997 05:33:34 +0000 Subject: [PATCH] (yank, yank-pop): Clear out read-only prop. --- lisp/simple.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index a4bb36f8714..6349f1058ae 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1492,7 +1492,10 @@ comes the newest one." (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 @@ See also the command \\[yank-pop]." ;; 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 -- 2.39.5