Lines Matching +defs:string +defs:char
70 (goto-char (point-min))
75 (defun kannada-compose-string (string)
77 (insert (decompose-string string))
79 (buffer-string)))
116 (defun kannada-composition-function (from to pattern &optional string)
120 (if string (kannada-compose-syllable-string string)
127 (aset composition-function-table (decode-char 'ucs ucs)
178 (defvar knd-char-glyph
248 (defvar knd-char-glyph-hash
251 knd-char-glyph)
254 (defvar knd-char-glyph-regexp
255 (kannada-regexp-of-hashtbl-keys knd-char-glyph-hash))
278 (put-char-code-property (aref (cdr x) 0) 'reference-point '(5 . 3))))
301 (mapcar (function (lambda (x) (indian-glyph-char x 'kannada)))
435 (put-char-code-property y 'composition-order (cdr x))))
439 (defun kannada-compose-syllable-string (string)
441 (insert (decompose-string string))
443 (buffer-string)))
450 (last-char (char-before to)) match-str pos
454 ;;; *** char-to-glyph conversion ***
456 (if (eq last-char ?$,1?M(B)
461 (goto-char (point-min))
465 (goto-char (+ 2 (point))))
467 (while (re-search-forward knd-char-glyph-regexp nil t)
468 (setq match-str (match-string 0))
469 (if (and (string-match kannada-consonant match-str)
472 (setq conj (concat conj (gethash (match-string 0 match-str)
475 (if (string-match "$,1?M(B" rest)
479 (if (string-match kannada-consonant match-str)
483 (while (string-match knd-char-glyph-regexp rest pos)
484 (setq match-str (match-string 0 rest))
487 (concat glyph-str (gethash match-str knd-char-glyph-hash))))
491 (goto-char (point-min))
494 (setq match-str (match-string 0))
500 (when (string-match knd-glyph-glyph-regexp glyph-str)
502 (replace-match (gethash (match-string 0 glyph-str)
506 (while (setq split-pos (string-match "$,45)(B\\|.$" glyph-str))
511 (sort (string-to-list glyph-block)
513 (< (get-char-code-property x 'composition-order)
514 (get-char-code-property y 'composition-order))))))
520 (setq co (get-char-code-property
534 (or (get-char-code-property x 'reference-point)