mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

(compose-chars-after): Preserve match data.

Browse source
This commit is contained in:
Kenichi Handa 2000-07-27 05:37:42 +00:00
parent 90cf4474ca
commit 339cebdcbe
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/composite.el
View file

@ -338,17 +338,18 @@ This function is the default value of `compose-chars-after-function'."
(let ((tail (aref composition-function-table (char-after pos)))
pattern func result)
(when tail
(save-excursion
(while (and tail (not func))
(setq pattern (car (car tail))
func (cdr (car tail)))
(goto-char pos)
(if (if limit
(and (re-search-forward pattern limit t)
(= (match-beginning 0) pos))
(looking-at pattern))
(setq result (funcall func pos (match-end 0) pattern nil))
(setq func nil tail (cdr tail))))))
(save-match-data
(save-excursion
(while (and tail (not func))
(setq pattern (car (car tail))
func (cdr (car tail)))
(goto-char pos)
(if (if limit
(and (re-search-forward pattern limit t)
(= (match-beginning 0) pos))
(looking-at pattern))
(setq result (funcall func pos (match-end 0) pattern nil))
(setq func nil tail (cdr tail)))))))
result))
;;;###autoload