Commit 029fd82c authored by Chong Yidong's avatar Chong Yidong
Browse files

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

with text property operations.
parent 0c92208b
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment