;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:03 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/language/devan-util.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`devan-util.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@109 Convert IS 13194 character CHAR to Devanagari basic characters. If CHAR is not IS 13194, return CHAR as is. (defalias 'indian-to-devanagari #[(char) "\302!\211@\303=\203\304\305\306!\307H\310 A@#\202)\207" [char charcodes split-char indian-is13194 make-char-internal charset-info indian-2-column 0 33] 5 (#$ . 632)]) #@127 Convert Devanagari basic character CHAR to IS 13194 characters. If CHAR is not Devanagari basic character, return CHAR as is. (defalias 'devanagari-to-indian #[(char) "\302!\211@\303=\203 A@\304U\203 \305\306\307!\310H\311 8\"\202!)\207" [char charcodes split-char indian-2-column 33 make-char-internal charset-info indian-is13194 0 2] 5 (#$ . 963)]) #@177 Convert IS 13194 characters in region to Devanagari basic characters. When called from a program, expects two arguments, positions (integers or markers) specifying the region. (defalias 'indian-to-devanagari-region #[(from to) "\212b\210` W\205'g\303\n!\304=\203 \305\306!\210\307\n!c\210\202#\306u\210)\202)\207" [from to char char-charset indian-is13194 delete-char 1 indian-to-devanagari] 2 (#$ . 1328) "r"]) #@175 Convert Devanagari basic characters in region to Indian characters. When called from a program, expects two arguments, positions (integers or markers) specifying the region. (defalias 'devanagari-to-indian-region #[(from to) "\212b\210` W\205'g\303\n!\304=\203 \305\306!\210\307\n!c\210\202#\306u\210)\202)\207" [from to char char-charset indian-2-column delete-char 1 devanagari-to-indian] 2 (#$ . 1754) "r"]) #@69 Convert Indian characters in STRING to Devanagari Basic characters. (defalias 'indian-to-devanagari-string #[(string) "G\304\305 \304\"\n W\203 \n\306\nH!I\210\nT\211\202 \260+\207" [string len i vec 0 make-vector indian-to-devanagari] 6 (#$ . 2178)]) #@27 Devanagari full consonant (defconst devanagari-full-cons "\\(\\([]\\)\\|[-؝ŝ]\\)" (#$ . 2447)) #@27 Devanagari pure consonant (defconst devanagari-pure-cons (concat "\\(" devanagari-full-cons "\\)") (#$ . 2598)) #@117 Devanagari Matra Signs. '˝̝' can also be created from the combination of 'ߝ۝' and nukta sign. (defconst devanagari-matra "\\(\\([ߝ۝]\\)\\|[-˝̝]\\)" (#$ . 2721)) #@112 Devanagari Vowels. '' can also be created from the combination of '' and nukta sign. (defconst devanagari-vowel "\\(\\([]\\)\\|[-]\\)" (#$ . 2943)) #@28 Devanagari vowel syllable. (defconst devanagari-vowel-syllable (concat devanagari-vowel "[]?") (#$ . 3159)) #@31 Devanagari consonant syllable (defconst devanagari-cons-syllable (concat devanagari-pure-cons "?" devanagari-pure-cons "?" devanagari-pure-cons "?" devanagari-pure-cons "$") (#$ . 3281)) #@38 Devanagari consonant vowel syllable. (defconst devanagari-cons-vowel-syllable (concat "\\(" devanagari-pure-cons "?" devanagari-pure-cons "?" devanagari-pure-cons "?" devanagari-pure-cons "\\)?" devanagari-full-cons devanagari-matra "?[]?") (#$ . 3474)) (byte-code "\301B\303\302B\304\301\207" [current-load-list devanagari-digit-viram-visarga devanagari-other-sign "[-]" "\\([]\\)\\|\\([]\\)"] 2) #@69 Regexp matching to Devanagari string to be composed form one glyph. (defconst devanagari-composite-glyph-unit (concat "\\(" devanagari-cons-syllable "\\)\\|\\(" devanagari-vowel-syllable "\\)\\|\\(" devanagari-cons-vowel-syllable "\\)\\|\\(" devanagari-other-sign "\\)\\|\\(" devanagari-digit-viram-visarga "\\)") (#$ . 3928)) #@76 Alist of regexps of Devanagari character sequences vs composed characters. (defconst devanagari-char-to-glyph-rules '(("^\\(ϝ\\)[-]" "") ("\\(ϝ\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(Ɲ\\)" "") ("\\(ϝ\\)" "") ("\\(\\)" "") ("\\(ԝ\\)" "" sanskrit) ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(֝\\)[-Ν-]" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(ϝ\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(Ɲ\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "" sanskrit) ("\\(֝\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(\\)" "") ("\\(\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)[]" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(ϝ\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "" sanskrit) ("\\(\\)" "" sanskrit) ("\\(ϝ\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(ϝ\\)[-Ν-]" "") ("\\(\\)" "") ("\\(\\)[-Ν-]" "") ("\\(Ý\\)" "Ý") ("\\(Ý\\)[-Ν-]" "") ("\\(ĝĝ\\)" "") ("\\(ĝŝ\\)" "") ("\\(ĝ˝\\)" "") ("\\(ĝ˝\\)" "") ("\\(ĝϝ\\)" "") ("\\(ĝԝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝĝ\\)" "") ("\\(ĝŝ\\)" "") ("\\(ĝ\\)ŝ[-Ν-]" "ĝ") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝ\\)ʝ" "ĝ") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ĝ\\)" "") ("\\(ŝƝ\\)[-Ν-]" "") ("\\(ŝ\\)" "") ("\\(ŝϝ\\)[-Ν-]" "") ("\\(ŝ\\)" "ŝ") ("\\(ŝ\\)[-Ν-]" "") ("\\(ƝƝ\\)[-Ν-]" "") ("\\(Ɲ\\)" "") ("\\(Ɲ\\)" "Ɲ") ("\\(Ɲ\\)[-Ν-]" "") ("\\(ǝ\\)[-Ν-]" "") ("\\(ȝ\\)" "") ("\\(ȝ\\)[-Ν-]" "") ("\\(ȝ\\)" "") ("\\(ȝ\\)" "") ("\\(ȝ\\)" "") ("\\(ȝ\\)" "") ("\\(ȝ\\)[-Ν-]" "") ("\\(ɝ\\)" "") ("\\(ɝ\\)[-Ν-]" "") ("\\(ɝ\\)" "") ("\\(ɝ\\)[-Ν-]" "") ("\\(ɝ\\)" "") ("\\(ʝ\\)Ɲ[-Ν-]" "") ("\\(ʝ\\)" "") ("\\(ʝ\\)ʝ[-Ν-]" "") ("\\(ʝ\\)" "") ("\\(ʝ\\)ԝ[-Ν-]" "") ("\\(ʝ\\)" "") ("\\(ʝ\\)" "ʝ") ("\\(ʝ\\)[-Ν-]" "") ("\\(˝\\)" "") ("\\(˝\\)" "˝") ("\\(˝\\)[-Ν-]" "") ("\\(̝\\)" "") ("\\(̝\\)" "") ("\\(̝\\)" "̝") ("\\(̝\\)[-Ν-]" "") ("\\(͝\\)[-Ν-]" "") ("\\(Ν\\)[-Ν-]" "") ("\\(ϝ\\)" "") ("\\(ϝ\\)" "") ("\\(Н\\)" "") ("\\(Н\\)" "") ("\\(ѝ\\)" "" sanskrit) ("\\(ѝ\\)[-Ν-]" "") ("\\(ҝ\\)[-Ν-]" "") ("\\(ӝ\\)[-Ν-]" "") ("\\(ԝ\\)" "") ("\\(ԝ\\)" "") ("\\(ԝ\\)" "ԝ") ("\\(ԝ\\)[-Ν-]" "") ("\\(՝\\)[-Ν-]" "") ("\\(՝\\)" "") ("\\(՝\\)" "") ("\\(՝\\)" "") ("\\(՝\\)" "") ("\\(՝\\)ԝ" "") ("\\(՝ԝ\\)[-Ν-]" "") ("\\(՝ϝ\\)" "") ("\\(՝ϝ\\)[-Ν-]" "") ("\\(՝\\)" "") ("\\(՝\\)[-Ν-]" "") ("\\(֝ϝ\\)" "") ("\\(֝\\)" "") ("\\(֝\\)" "") ("\\(֝\\)" "") ("\\(֝\\)" "") ("\\(֝\\)" "֝") ("\\(֝\\)[-Ν-]" "") ("\\(םƝ\\)[-Ν-]" "ם") ("\\(ם\\)" "") ("\\(ם\\)" "") ("\\(ם\\)[-Ν-]" "") ("\\(؝\\)" "") ("\\(؝\\)" "") ("\\(؝\\)" "") ("\\(؝\\)" "") ("\\(؝\\)" "") ("\\(؝\\)" "") ("\\(؝\\)" "") ("\\(؝\\)" "") ("[ĝϝНҝӝ]\\(\\)" "") ("[ÝŝƝȝʝ˝̝͝ԝ]\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(\\)" "") ("\\(۝\\)" "") ("\\(ܝ\\)" "") ("\\(ߝ\\)" "") ("\\(\\)" "") ("\\(ϝߝ\\)" "") ("\\(ϝ۝\\)" "") ("\\(ϝܝ\\)" "") ("\\(ϝ\\)" "") ("\\(\\)" "")) (#$ . 4261)) (byte-code " \203_ @\306\211\211\211 A\307\310@\"\210@\311\224\311\225O\312 !A\312 @!\313\f\314\315\316\f\314\"C\"#\210\317\nW\203[\316\n\320\"\204[\313\n\320 @ D\316\n\320\"B#\210-\202)\306\207" [devanagari-char-to-glyph-rules rules glyph glyphs char chars nil string-match "\\\\(\\(.+\\)\\\\)" 1 string-to-char put-char-code-property char-to-glyph append get-char-code-property 14586 glyph-to-char rule] 7) #@114 Return the maximum length of text that can match the pattern REGEXP. Only [...] pattern of regexp is recognized. (defalias 'max-match-len #[(regexp) "\303\211\304\305\n#\203 \303\224Z\\\306\\\303\225\202 *\207" [index len regexp 0 string-match "\\[\\([^]]\\)+\\]" 1] 4 (#$ . 13133)]) (defalias 'intersecting-p #[(list1 list2) "\303 \203\204 @\n>\203\304\202 A\211\204)\207" [found list1 list2 nil t] 3]) #@797 Convert string SOURCE by rules stored in SYMBOL property of each character. The remaining arguments forms a list SPECS that restricts applicable rules. The rules has the form ((REGEXP STR RULE-SPEC ...) ...). Each character sequence in STRING that matches REGEXP is replaced by STR. If SPECS is nil, only rules with no RULE-SPECs is applied. Otherwise rules with no RULE-SPECS and rules that have at least one member of SPECS in RULE-SPECs is applied. Rules are tested in the order of the list, thus more specific rules should be placed in front of less specific rules. If rule is given in the forms of regexp '...\(...\)...', a character sequence that matches the pattern inside of the parenthesis is the subject of the match. Otherwise, the entire expression is the subject of the match. (defalias 'string-conversion-by-rule #[(source symbol &rest specs) "\306\307 \nGW\203\265\310\311\312\n \310O! \"\f\203\242\f@\211@A@AA\310\203F\313\"\204F\fA\202\236\314\315\"\204[\316\317Q \202k \320\314\321\"\306\225O!Z\306W\203u\306\314\n#\203\233\322\224 U\203\225P\310\323\322\225\202\236\fA\202\236\fA-\202 \204\261\n \211TOP T*\202*\207" [dst-str pos source symbol rules found 0 "" nil get-char-code-property string-to-char intersecting-p string-match "\\\\(.+\\\\)" "\\(" "\\)" max-match-len "^[^\\\\]*" 1 t rule regexp replace-str rule-specs search-pos specs] 7 (#$ . 13569)]) #@108 Convert Devanagari characters in STRING to Devanagari glyphs. Ligatures and special rules are processed. (defalias 'char-to-glyph-devanagari #[(string &rest langs) "\302\303\304\305D \"\"\207" [string langs apply string-conversion-by-rule append char-to-glyph] 5 (#$ . 15036)]) (byte-code "\301B\302\301\207" [current-load-list devanagari-composition-rules ((446625 0 (tr . br)) (446626 0 (mr . mr)) (446627 0) (446628 0) (446629 0) (446630 0) (446631 0) (446632 0) (446633 0) (446634 0) (446635 0) (446636 0) (446637 0) (446638 0) (446639 0) (446640 0) (446641 0) (446642 0) (446643 0) (446644 0) (446645 0) (446646 0) (446647 0) (446648 0) (446649 0) (446650 0) (446651 0) (446652 0) (446653 0) (446654 0) (446655 0) (446656 0) (446657 0) (446658 0) (446659 0) (446660 0) (446661 0) (446662 0) (446663 0) (446664 0) (446665 0) (446666 0) (446667 0) (446668 0) (446669 0) (446670 0) (446671 0) (446672 0) (446673 0) (446674 0) (446675 0) (446676 0) (446677 0) (446678 0) (446679 0) (446680 0) (446681 0) (446682 0) (446683 0 (ml . mr)) (446684 0) (446685 0 (br . tr)) (446686 0 (br . tr)) (446687 0 (br . tr)) (446688 0 (mr . mr)) (446689 0 (mr . mr)) (446690 0 (mr . mr)) (446691 0 (mr . mr)) (446692 0) (446693 0) (446694 0) (446695 0) (446696 0 (br . tr)) (446697 0 (br . tr)) (446698 0) (nil 0) (nil 0) (nil 0) (nil 0) (nil 0) (nil 0) (446705 0) (446706 0) (446707 0) (446708 0) (446709 0) (446710 0) (446711 0) (446712 0) (446713 0) (446714 0) (nil 0) (nil 0) (nil 0) (nil 0) (446753 0) (446754 0) (446755 0) (446756 0) (446757 0) (446758 0) (446759 0) (446760 0) (446761 0) (446762 0) (446763 0) (446764 0) (446765 0) (446766 0) (446767 0) (446768 0) (446769 0) (446770 0) (446771 0) (446772 0) (446773 0) (446774 0) (446775 0) (446776 0) (446777 0) (446778 0) (446779 0) (446780 0) (446781 0) (446782 0) (446783 0) (446784 0) (446785 0) (446786 0) (446787 0) (446788 0) (446789 0) (446790 0) (446791 0) (446792 0) (446793 0) (446794 0) (446795 0) (446796 0) (446797 0) (446798 0) (446799 0) (446800 0) (446801 0) (446802 0) (446803 0) (446804 0) (446805 0) (446806 0) (446807 0) (446808 0) (446809 0) (446810 0) (446811 0) (446812 0) (446813 0) (446814 0) (446815 0) (446816 0) (446817 0) (446818 0) (446819 0) (446820 0) (446821 0) (446822 0) (446823 0) (446824 0) (446825 0) (446826 0) (446827 0) (446828 0) (446829 0) (446830 0) (446831 0) (446832 10 (mr . mr)) (446833 0 (br . br)) (446834 0 (br . tr)) (446835 0) (446836 0) (446837 0) (446838 0) (446839 0) (446840 0) (446841 0) (446842 0) (446843 0) (446844 0) (446845 0) (446846 0) (446881 0) (446882 0) (446883 0) (446884 0) (446885 0) (446886 0) (446887 0) (446888 0) (446889 0) (446890 0) (446891 0) (446892 0) (446893 0) (446894 0) (446895 0) (446896 0) (446897 0) (446898 0) (446899 0) (446900 0) (446901 0) (446902 0) (446903 0) (446904 0) (446905 0) (446906 0) (446907 0) (446908 0) (446909 0) (446910 0) (446911 0) (446912 0) (446913 0) (446914 0) (446915 0) (446916 0) (446917 0) (446918 0) (446919 0) (446920 0) (446921 0) (446922 0) (446923 0 (br . tr)) (446924 0 (br . tr)) (446925 0 (br . tr)) (446926 0) (446927 0) (446928 0) (446929 0) (446930 0) (446931 0) (446932 0) (446933 0) (446934 0) (446935 0) (446936 0) (446937 0) (446938 0) (446939 0) (446940 0) (446941 0) (446942 0) (446943 0) (446944 0) (446945 0) (446946 0) (446947 0) (446948 0) (446949 0) (446950 0) (446951 0) (446952 0) (446953 0) (446954 0) (446955 0) (446956 0) (446957 0) (446958 0) (446959 0) (446960 0) (446961 0) (446962 0) (446963 0) (446964 0) (446965 0) (446966 0) (446967 0) (446968 0) (446969 0) (446970 0) (446971 0) (446972 0) (446973 0) (446974 0) (447009 0) (447010 0) (447011 0) (447012 0) (447013 0) (447014 0) (447015 0) (447016 0) (447017 0) (447018 0) (447019 0) (447020 0) (447021 0) (447022 0) (447023 0) (447024 0) (447025 0) (447026 0) (447027 0) (447028 0) (447029 0) (447030 0) (447031 0) (447032 0) (447033 0) (447034 0) (447035 0) (447036 0) (447037 0) (447038 0) (447039 0) (447040 0) (447041 0) (447042 0) (447043 0) (447044 0) (447045 0) (447046 0) (447047 0) (447048 0) (447049 0) (447050 0) (447051 0) (447052 0) (447053 0) (447054 0) (447055 0) (447056 0) (447057 0) (447058 0) (447059 0) (447060 0) (447061 0) (447062 0) (447063 0) (447064 0) (447065 0) (447066 0) (447067 0) (447068 0) (447069 0) (447070 0) (447071 0) (447072 0) (447073 0) (447074 0) (447075 0) (447076 0) (447077 0) (447078 0) (447079 0) (447080 0) (447081 0) (447082 0) (447083 0) (447084 0) (447085 0) (447086 0) (447087 0) (447088 0) (447089 0) (447090 0) (447091 0) (447092 0) (447093 0) (447094 0) (447095 0) (447096 0) (447097 0) (447098 0) (447099 0) (447100 0) (447101 0) (447102 0))] 2) (defalias 'devanagari-reorder-glyphs-for-composition #[(string start end) "\306\n W\203\f\nH\nT\307 \n\236C\")\202\310 \311\"*\207" [start ordered-glyphs pos end string glyph nil append sort #[(x y) "A@ A@W\207" [x y] 2] devanagari-composition-rules] 4]) (defalias 'devanagari-compose-to-one-glyph #[(devanagari-string) "\305\306G#\211@@C A \2038 @\307 GW\203' AA@ @D\202+\310 @D A\311\n\f\"*\202\312\n!\211G\313U\203J\314\n@!\202N\315\316\n\"+\207" [devanagari-string o-glyph-list cmp-glyph-list o-glyph glyph devanagari-reorder-glyphs-for-composition 0 2 (mr . ml) append devanagari-wide-to-narrow 1 char-to-string apply compose-chars] 5]) (defalias 'devanagari-composition-component #[(string &optional start end) "\204\306 \204 \nG\307\n #\211@@C A \203F @\310 GW\2033 AA@ @D\2027\311 @D\f A\312\f\f\"*\202\313\f!*\207" [start end string o-glyph-list cmp-glyph-list o-glyph 0 devanagari-reorder-glyphs-for-composition 2 (mr . ml) append devanagari-wide-to-narrow glyph] 5]) (defalias 'devanagari-vertical-modifier-p #[(glyph) "\301\302!\303\"\207" [glyph string-match char-to-string "[ݝޝߝ˝̝]"] 3]) (defalias 'devanagari-non-vertical-modifier-p #[(glyph) "\301\302!\303\"\207" [glyph string-match char-to-string "[]"] 3]) #@139 Convert Devanagari character CHAR to the corresponding narrow character. If there's no corresponding narrow character, return CHAR as is. (defalias 'devanagari-wide-to-narrow-char #[(char) " \236A\211\206\n)\207" [char devanagari-1-column-char narrow] 3 (#$ . 21039)]) (defalias 'devanagari-wide-to-narrow #[(src-list) "\301\302\"\207" [src-list devanagari-wide-to-narrow-iter t] 3]) (defalias 'devanagari-wide-to-narrow-iter #[(src-list 2-col-glyph) "@\204 \304\202f \247\204 \305A\n\"B\202f\306 !\203,\307 !\305A\n\"B\202f\310 !\203L\n\203@ \305A\311\"B\202f\307 !\305A\n\"B\202f \236A\203_\307 !\305A\304\"B\202f \305A\311\"B)\207" [src-list glyph 2-col-glyph devanagari-1-column-char nil devanagari-wide-to-narrow-iter devanagari-non-vertical-modifier-p devanagari-wide-to-narrow-char devanagari-vertical-modifier-p t] 4]) #@33 Decompose Devanagari string STR (defalias 'devanagari-decompose-string #[(str) "\301\302!!\207" [str decompose-string copy-sequence] 3 (#$ . 21900)]) (defalias 'devanagari-decompose-region #[(from to) "\302 \"\207" [from to decompose-region] 3 nil "r"]) (defalias 'devanagari-compose-string #[(str &rest langs) "\306!\307\310\211\211\311 \f#\2036\307\224\307\225\312\313\314\n OB\"!\315\n $\210 +\202\f,\207" [str match-e match-b rest idx devanagari-composite-glyph-unit copy-sequence 0 nil string-match devanagari-composition-component apply char-to-glyph-devanagari compose-string langs cmps] 6]) (defalias 'devanagari-compose-region #[(from to &rest langs) "\212\214 }\210eb\210\306\n\307\310#\205.\311\224\311\225\312\313\314 \f{ B\"!\315 \f#\210+\202 *\207" [from to devanagari-composite-glyph-unit match-b match-e langs re-search-forward nil t 0 devanagari-composition-component apply char-to-glyph-devanagari compose-region cmps] 5 nil "r"]) #@69 Compose IS 13194 characters in the region to Devanagari characters. (defalias 'devanagari-compose-from-is13194-region #[(from to) "\212\214 }\210\302ed\"\210\303ed\"\210deZ*\207" [from to indian-to-devanagari-region devanagari-compose-region] 3 (#$ . 22887) "r"]) (defalias 'in-is13194-devanagari-post-read-conversion #[(len) "`\302\211 \\\")\207" [pos len devanagari-compose-from-is13194-region] 4]) #@71 Decompose Devanagari characters in the region to IS 13194 characters. (defalias 'devanagari-decompose-to-is13194-region #[(from to) "\212\214 }\210\302ed\"\210\303ed\"*\207" [from to devanagari-decompose-region devanagari-to-indian-region] 3 (#$ . 23297) "r"]) (defalias 'in-is13194-devanagari-pre-write-conversion #[(from to) "p\303\304!q\210 ;\203 c\210\202\305 \n#\210\306ed\"\210)\307\207" [old-buf from to generate-new-buffer " *temp*" insert-buffer-substring devanagari-decompose-to-is13194-region nil] 4]) (defalias 'devanagari-encode-itrans-region #[(from to) "\214 }\210\302ed\"\210\303ed\")\207" [from to devanagari-decompose-to-is13194-region indian-encode-itrans-region] 3 nil "r"]) (defalias 'devanagari-decode-itrans-region #[(from to) "\214 }\210\302ed\"\210\303ed\")\207" [from to indian-decode-itrans-region devanagari-compose-from-is13194-region] 3 nil "r"]) (provide 'devan-util)