Function: ethio-composition-function

ethio-composition-function is an autoloaded and byte-compiled function defined in ethio-util.el.gz.

Signature

(ethio-composition-function POS TO FONT-OBJECT STRING DIRECTION)

Source Code

;; Defined in /usr/src/emacs/lisp/language/ethio-util.el.gz
;;
;; Gemination
;;

;;;###autoload
(defun ethio-composition-function (pos _to _font-object string _direction)
  (setq pos (1- pos))
  (let ((pattern "\\ce\\(፟\\|\x1A01CA\\)"))
    (if string
	(if (and (>= pos 0)
		 (eq (string-match pattern string pos) pos))
	    (prog1 (match-end 0)
	      (compose-string string pos (match-end 0))))
      (if (>= pos (point-min))
	  (progn
	    (goto-char pos)
	    (if (looking-at pattern)
		(prog1 (match-end 0)
		  (compose-region pos (match-end 0)))))))))