(insert-for-yank-1): Prevent read-only properties from interfering

with text property operations.

diff --git a/lisp/subr.el b/lisp/subr.el
index 45815a6f0f88d6bae3e27fbd8834b62c45a94feb..846acf52385df15e90f7fc429e9222205c6235f7 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2171,6 +2171,7 @@ If UNDO is present and non-nil, it is a function that will be called
                       (get-text-property 0 'yank-handler string)))
         (param (or (nth 1 handler) string))
         (opoint (point))
+        (inhibit-read-only inhibit-read-only)
         end)
 
     (setq yank-undo-function t)
@@ -2179,6 +2180,10 @@ If UNDO is present and non-nil, it is a function that will be called
       (insert param))
     (setq end (point))
 
+    ;; Prevent read-only properties from interfering with the
+    ;; following text property changes.
+    (setq inhibit-read-only t)
+
     ;; What should we do with `font-lock-face' properties?
     (if font-lock-defaults
        ;; No, just wipe them.