diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 45815a6f0f8..846acf52385 100644 --- 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. |