mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(auto-compose-region): New function.

Browse Source
This commit is contained in:
Kenichi Handa 2003-09-26 11:24:10 +00:00
parent 47cb11b343
commit bd4a85b9ff
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/composite.el
View File

@ -456,6 +456,32 @@ With arg, enable it iff arg is positive."
(save-restriction
(widen)
(put-text-property (point-min) (point-max) 'auto-composed nil)))))
(defun auto-compose-region (from to)
"Force automatic character composition on the region FROM and TO."
(save-excursion
(if (get-text-property from 'auto-composed)
(setq from (next-single-property-change from 'auto-composed nil to)))
(goto-char from)
(let ((modified-p (buffer-modified-p))
(inhibit-read-only '(composition auto-composed))
(stop (next-single-property-change (point) 'auto-composed nil to)))
(while (< (point) to)
(if (= (point) stop)
(progn
(goto-char (next-single-property-change (point)
'auto-composed nil to))
(setq stop (next-single-property-change (point)
'auto-composed nil to)))
(let ((func (aref composition-function-table (following-char)))
(pos (point)))
(if (functionp func)
(goto-char (funcall func (point) nil)))
(if (<= (point) pos)
(forward-char 1)))))
(put-text-property from to 'auto-composed t)
(set-buffer-modified-p modified-p))))
;;; The following codes are only for backward compatibility with Emacs
;;; 20.4 and earlier.