procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
with text property operations.
This commit is contained in:
Chong Yidong 2007-02-09 23:09:16 +00:00
parent 0c92208b5b
commit 029fd82cce
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/subr.el
View file

@ -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.