mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(auto-composition-after-change): Remove

Browse Source 
`auto-composed' property instead of put nil to it.
(toggle-auto-composition): Likewise.
This commit is contained in:
Kenichi Handa 2006-10-05 12:20:14 +00:00
parent 42f557e541
commit c02e996e47
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/composite.el
View File

@ -543,7 +543,7 @@ Auto Composition mode in all buffers (this is the default)."
end (1+ end)) end (1+ end))
(setq func2 nil)))) (setq func2 nil))))
(if (< start end) (if (< start end)
(put-text-property start end 'auto-composed nil)))))) (remove-text-properties start end '(auto-composed nil)))))))
(defun turn-on-auto-composition-if-enabled () (defun turn-on-auto-composition-if-enabled ()
(if enable-multibyte-characters (if enable-multibyte-characters
@ -576,7 +576,8 @@ With arg, enable it iff arg is positive."
(save-buffer-state nil (save-buffer-state nil
(save-restriction (save-restriction
(widen) (widen)
(put-text-property (point-min) (point-max) 'auto-composed nil))))) (remove-text-properties (point-min) (point-max)
'(auto-composed nil))))))
(defun auto-compose-region (from to) (defun auto-compose-region (from to)
"Force automatic character composition on the region FROM and TO." "Force automatic character composition on the region FROM and TO."