| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/language/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(require 'robin)
(defvar exit-ethiopic-environment-data nil)
(defalias 'setup-ethiopic-environment-internal #[0 "\301\302\203! @@\262\211\303!BB\304@A\"\210A\262\202 \266\305\306\307\"\210\305\310\311\"\210\305\312\307\"\207" [exit-ethiopic-environment-data ((" " . ethio-insert-space) ([33554464] . ethio-insert-ethio-space) ([f3] . ethio-fidel-to-sera-buffer) ([S-f3] . ethio-fidel-to-sera-region) ([C-f3] . ethio-fidel-to-sera-marker) ([f4] . ethio-sera-to-fidel-buffer) ([S-f4] . ethio-sera-to-fidel-region) ([C-f4] . ethio-sera-to-fidel-marker) ([S-f6] . ethio-modify-vowel) ([S-f7] . ethio-replace-space) ([C-f9] . ethio-toggle-space) ([S-f9] . ethio-replace-space)) nil global-key-binding global-set-key add-hook find-file-hook ethio-find-file write-file-functions ethio-write-file after-save-hook] 5])
#@37 Exit Ethiopic language environment.
(defalias 'exit-ethiopic-environment #[0 "\203 \301@@@A\"\210A\211\204 \302\303\304\"\210\302\305\306\"\210\302\307\304\"\207" [exit-ethiopic-environment-data global-set-key remove-hook find-file-hook ethio-find-file write-file-functions ethio-write-file after-save-hook] 4 (#$ . 906)])
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\304\305\316\317&\210\310\320\312\313\321DD\322\304\305\316\323&\210\310\324\312\313\325DD\326\304\305\316\327&\210\310\330\312\313\331DD\332\304\305\316\327&\210\310\333\312\313\334DD\335\304\305\316\327&\210\310\336\312\313\337DD\340\304\305\316\327&\210\310\341\312\313\342DD\343\304\305\316\344&\210\310\345\312\313\346DD\347\304\305\316\327&\207" [custom-declare-group ethiopic nil "Options for writing Ethiopic." :version "28.1" :group languages custom-declare-variable ethio-primary-language funcall function #[0 "\300\207" [tigrigna] 1 #1=""] "Symbol that defines the primary language in SERA --> FIDEL conversion.\nThe value should be one of: `tigrigna', `amharic' or `english'." :type (choice (const :tag "Tigrigna" tigrigna) (const :tag "Amharic" amharic) (const :tag "English" english)) ethio-secondary-language #[0 "\300\207" [english] 1 #1#] "Symbol that defines the secondary language in SERA --> FIDEL conversion.\nThe value should be one of: `tigrigna', `amharic' or `english'." (choice (const :tag "Tigrigna" tigrigna) (const :tag "Amharic" amharic) (const :tag "English" english)) ethio-use-colon-for-colon #[0 "\300\207" [nil] 1 #1#] "Non-nil means associate ASCII colon with Ethiopic colon.\nIf nil, associate ASCII colon with Ethiopic word separator, i.e., two\nvertically stacked dots. All SERA <--> FIDEL converters refer this\nvariable." boolean ethio-use-three-dot-question #[0 "\300\207" [nil] 1 #1#] "If non-nil, associate ASCII question mark with Ethiopic question mark.\nThe Ethiopic old style question mark is three vertically stacked dots.\nIf nil, associate ASCII question mark with Ethiopic stylized question\nmark. All SERA <--> FIDEL converters refer this variable." ethio-quote-vowel-always #[0 "\300\207" [nil] 1 #1#] "Non-nil means always put an apostrophe before an isolated vowel.\nThis happens in FIDEL --> SERA conversions. Isolated vowels at\nword beginning do not get an apostrophe put before them.\nIf nil, put an apostrophe only between a 6th-form consonant and an\nisolated vowel." ethio-W-sixth-always #[0 "\300\207" [nil] 1 #1#] "Non-nil means convert the Wu-form of a 12-form consonant to \"W'\".\nThis is instead of \"Wu\" in FIDEL --> SERA conversion." ethio-numeric-reduction #[0 "\300\207" [0] 1 #1#] "Degree of reduction in converting Ethiopic digits into Arabic digits.\nShould be 0, 1 or 2.\nFor example, ({10}{9}{100}{80}{7}) is converted into:\n \\=`10\\=`9\\=`100\\=`80\\=`7 if `ethio-numeric-reduction' is 0,\n \\=`109100807 if `ethio-numeric-reduction' is 1,\n \\=`10900807 if `ethio-numeric-reduction' is 2." integer ethio-java-save-lowercase #[0 "\300\207" [nil] 1 #1#] "Non-nil means save Ethiopic characters in lowercase hex numbers to Java files.\nIf nil, use uppercases."] 8)
(defalias 'ethio-prefer-amharic-p #[0 "\302=\206 \303=?\205 \302=\207" [ethio-primary-language ethio-secondary-language amharic tigrigna] 2])
#@12
(fn ARG)
(defalias 'ethio-prefer-amharic #[257 "\211\203 \300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\210\300\301\310\311#\207\300\301\306\303#\210\300\301\310\305#\210\300\301\302\307#\210\300\301\304\311#\207" [robin-modify-package "ethiopic-sera" "'a" 4768 "a" "አ" "'A" 4771 "A" "ኣ"] 5 (#$ . 4239)])
#@12
(fn ARG)
(defalias 'ethio-use-colon-for-colon #[257 "\211\203 \300\301\302\303#\210\300\301\304\305#\207\300\301\306\305#\210\300\301\302\307#\210\300\301\310\303#\207" [robin-modify-package "ethiopic-sera" ":" 4965 "`:" 4961 " : " "፡" "-:"] 5 (#$ . 4570)])
#@12
(fn ARG)
(defalias 'ethio-use-three-dot-question #[257 "\211\203 \300\301\302\303#\210\300\301\304\305#\207\300\301\302\305#\210\300\301\304\303#\207" [robin-modify-package "ethiopic-sera" "?" 4967 "`?" 63] 5 (#$ . 4839)])
(defalias 'ethio-adjust-robin #[0 "\302\303 !\210\300!\210\301 !\207" [ethio-use-colon-for-colon ethio-use-three-dot-question ethio-prefer-amharic ethio-prefer-amharic-p] 2])
(add-hook 'robin-activate-hook 'ethio-adjust-robin)
#@557 Convert the current buffer from SERA to FIDEL.
The variable `ethio-primary-language' specifies the primary
language and `ethio-secondary-language' specifies the secondary.
If the 1st optional argument SECONDARY is non-nil, assume the
buffer begins with the secondary language; otherwise with the
primary language.
If the 2nd optional argument FORCE is non-nil, perform conversion
even if the buffer is read-only.
See also the descriptions of the variables
`ethio-use-colon-for-colon' and `ethio-use-three-dot-question'.
(fn &optional SECONDARY FORCE)
(defalias 'ethio-sera-to-fidel-buffer #[512 "\300ed$\207" [ethio-sera-to-fidel-region] 7 (#$ . 5300) "P"])
#@575 Convert the characters in region from SERA to FIDEL.
The variable `ethio-primary-language' specifies the primary
language and `ethio-secondary-language' specifies the secondary.
If the 3rd argument SECONDARY is given and non-nil, assume the
region begins with the secondary language; otherwise with the
primary language.
If the 4th argument FORCE is given and non-nil, perform
conversion even if the buffer is read-only.
See also the descriptions of the variables
`ethio-use-colon-for-colon' and `ethio-use-three-dot-question'.
(fn BEGIN END &optional SECONDARY FORCE)
(defalias 'ethio-sera-to-fidel-region #[1026 "\203 \211\204 \305\306!\204 \307\310!\210 \n\311\203 \n\202 \311\303!\210\304\f!\210\214}\210eb\210m\204s \312\267\202U \313\314!\210\315\316!\202W \313\311!\210\315\317!\202W \320 \262\211\321=\203m =\203i \n\202n \202n \211\262\2027 ,\266\322 \207" [buffer-read-only ethio-primary-language ethio-secondary-language ethio-use-colon-for-colon ethio-use-three-dot-question y-or-n-p "Buffer is read-only. Force to convert? " error "" nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (amharic 65 tigrigna 75)) ethio-prefer-amharic t ethio-sera-to-fidel-region-ethio amharic tigrigna ethio-sera-to-fidel-region-noethio toggle ethio-adjust-robin] 11 (#$ . 5972) "r\nP"])
#@67 Return next language as symbol: amharic, tigrigna, toggle or nil.
(defalias 'ethio-sera-to-fidel-region-noethio #[0 "\300\301\302\300\303#\204 \300\207\304\305!\210\306 \211\262\203 \207g\307U\203# \310u\210\300\207g\311U\203/ \304\310!\210\312\207\312\207" [nil search-forward "\\" 0 delete-char -1 ethio-process-language-flag 92 1 32 toggle] 5 (#$ . 7331)])
#@78 Return next language as symbol: amharic, tigrigna, toggle or nil.
(fn LANG)
(defalias 'ethio-sera-to-fidel-region-ethio #[257 "\214`\302\303\304\305#\203 \306\224\202 d}\210\307ed\310#\210db\210)\304g\311U\203, \312\313!\210\314 \210\207\315\316!\203^ \317\300!\203<