;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:42:26 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/ethio.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ethio.el' was compiled for Emacs 19.29 or later")) (byte-code "\nB" [[nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ("") nil nil nil nil ("") nil ("") nil nil nil nil nil nil nil nil nil nil nil ("") ("") nil nil nil nil nil ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "Ɲ") (117 "Ɲ") (105 "Ɲ") (69 "Ɲ") (39 "Ɲ"))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "Н") (117 "Н") (105 "Н") (69 "Н") (39 "Н")) (50 "" (124 "") (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (87 "" (97 "") (101 "ݝ") (117 "ݝ") (105 "ݝ") (69 "ݝ") (39 "ݝ")))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "Ν") (117 "Ν") (105 "Ν") (69 "Ν") (39 "Ν"))) ("" (101 "") (117 "") (105 "") (97 "") (69 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) nil nil nil nil nil ("`" (101 "") (117 "") (85 "") (105 "") (97 "") (65 "") (69 "") (73 "") (111 "") (79 "") (115 "" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "֝") (117 "֝") (105 "֝") (69 "֝") (39 "֝"))) (83 "" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "ݝ") (117 "ݝ") (105 "ݝ") (69 "ݝ") (39 "ݝ"))) (104 "" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 ""))) (107 "" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 ""))) ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "Ɲ") (117 "Ɲ") (105 "Ɲ") (69 "Ɲ") (39 "Ɲ"))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "ޝ") (117 "ޝ") (105 "ޝ") (69 "ޝ") (39 "ޝ"))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (50 "") (51 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 "")) (50 "" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 "")))) ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 "")) (50 "" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "ȝ") (117 "ȝ") (105 "ȝ") (69 "ȝ") (39 "ȝ")) (50 "" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "֝") (117 "֝") (105 "֝") (69 "֝") (39 "֝")))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "֝") (117 "֝") (105 "֝") (69 "֝") (39 "֝"))) ("" (50 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "Ν") (117 "Ν") (105 "Ν") (69 "Ν") (39 "Ν"))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (101 "") (117 "") (105 "") (97 "") (69 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 ""))) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "")) ("" (101 "") (117 "") (105 "") (97 "") (69 "") (111 "") (124 "") (87 "" (97 "") (101 "") (117 "") (105 "") (69 "") (39 "")))] sera-to-fidel-table current-load-list] 2) #@251 Translates the characters in region from SERA to FIDEL. If the 1st optional parameter ASCII-MODE is non-NIL, assumes that the region begins in ASCII script. If the 2nd optional parametr FORCE is non-NIL, translates even if the buffer is read-only. (defalias 'sera-to-fidel-region #[(beg end &optional ascii-mode force) " } \f\"*" [beg end sera-to-fidel-buffer ascii-mode force] 3 (#$ . 9779) "r\nP"]) #@253 Translates the current buffer from SERA to FIDEL. If the 1st optional parameter ASCII-MODE is non-NIL, assumes that the current buffer begins in ASCII script. If the 2nd optional panametr FORCE is non-NIL, translates even if the buffer is read-only. (defalias 'sera-to-fidel-buffer #[(&optional ascii-mode force) " !!Ɖ \n \febm`\fuh g\n U)\nU_!! ? ) )!)m) )\nU!)\nU!c)\nU!c)\nU!c)\nU!c))! U U U#) W) V) U@' Hg\"A-u@)\f`|@c)\nUZ!! ? ) )!)m) )\nU!)\n>u)).eb" [buffer-read-only force y-or-n-p "Buffer is read-only. Force to convert? " error "" nil table2 table hard fol pre start 1 ascii-mode 92 33 backward-delete-char delete-char sera-to-fidel-backslash 32 46 348752 44 348753 59 348754 58 348755 boundp sera-being-called-by-w3 60 38 search-forward ">" ";" 0 39 122 sera-to-fidel-table assoc t (46 44 59 58 124 39 96)] 7 (#$ . 10195) "P"]) #@107 Handle SERA backslash escapes common to ethio- and ascii-mode. Returns t if something has been processed. (defalias 'sera-to-fidel-backslash #[nil "gY\nX !\nU&c\nU2c\nU>c\nUJc\nUVc\nUg!\nUnc\nUzc\nUc\nUc\nc! *" [t converted ch 49 57 ethio-convert-digit delete-char 1 92 95 348751 42 348756 60 348757 62 348758 126 101 "" 69 "" 97 "" 65 "" backward-char nil] 3 (#$ . 11325)]) #@43 Convert Arabic digits to Ethiopic digits. (defalias 'ethio-convert-digit #[nil "gYm\nXm!gU(! T \"U>\nZHc SW\nUN\nZHcW UWc \"Ucc ϥ\"*" [nil z ch 49 57 delete-char 1 0 48 mod 2 [348768 348769 348770 348771 348772 348773 348774 348775 348776] [348760 348761 348762 348763 348764 348765 348766 348767] 50 "" 4 "" insert-char 348778] 4 (#$ . 11831)]) #@454 Does SERA to FIDEL conversion for reading/writing mail and news. If the buffer contains the markers "" and "", converts the segment between the two markers in Ethio start mode and the subject field in ASCII start mode. If invoked interactively and there is no marker, converts both the whole body and the subject field in Ethio start mode. For backward compatibility, "" and "<>" can be used instead of "" and "". (defalias 'sera-to-fidel-mail #[(&optional arg) "eb\f=ƂQ!#a̔b#J#`#D#`\"&eb\n#``##̔b##`##`\"meb\n#``#\nd\"eb\n#``\"\f=THd+" [nil buffer-read-only border search-forward major-mode rmail-mode "\n\n" "\n" mail-header-separator re-search-forward "^\n" t 0 replace-match "" sera-to-fidel-region "^\n" "^Subject: " ascii-start "^\n" "^<>\n" arg rmail-message-vector rmail-current-message] 6 (#$ . 12258) "p"]) #@179 If the buffer contains the markers "" and "", converts the segment between the two markers from SERA to Fidel in Ethio start mode. The markers will not be removed. (defalias 'sera-to-fidel-marker #[nil "!!eb#1`#)˔*d$)" [buffer-read-only y-or-n-p "Buffer is read-only. Force to convert? " error "" re-search-forward "" nil t sera-to-fidel-region "" 0 force] 6 (#$ . 13298) nil]) (byte-code "\nB" [["le" "lu" "li" "la" "lE" "l" "lo" "lWa" "me" "mu" "mi" "ma" "mE" "m" "mo" "mWa" "re" "ru" "ri" "ra" "rE" "r" "ro" "rWa" "xe" "xu" "xi" "xa" "xE" "x" "xo" "xWa" "be" "bu" "bi" "ba" "bE" "b" "bo" "bWa" "ve" "vu" "vi" "va" "vE" "v" "vo" "vWa" "te" "tu" "ti" "ta" "tE" "t" "to" "tWa" "ce" "cu" "ci" "ca" "cE" "c" "co" "cWa" "ne" "nu" "ni" "na" "nE" "n" "no" "nWa" "Ne" "Nu" "Ni" "Na" "NE" "N" "No" "NWa" "ze" "zu" "zi" "za" "zE" "z" "zo" "zWa" "Ze" "Zu" "Zi" "Za" "ZE" "Z" "Zo" "ZWa" "de" "du" "di" "da" "dE" "d" "do" "dWa" "Te" "Tu" "Ti" "Ta" "TE" "T" "To" "TWa" "Ce" "Cu" "Ci" "Ca" "CE" "C" "Co" "CWa" "fe" "fu" "fi" "fa" "fE" "f" "fo" "fWa" "se" "su" "si" "sa" "sE" "s" "so" "sWa" "Se" "Su" "Si" "Sa" "SE" "S" "So" "SWa" "a" "u" "i" "A" "E" "I" "o" "e3" "he" "hu" "hi" "ha" "hE" "h" "ho" "hWe" "hWu" "hWi" "hWa" "hWE" "ke" "ku" "ki" "ka" "kE" "k" "ko" "kWe" "kWu" "kWi" "kWa" "kWE" "Ke" "Ku" "Ki" "Ka" "KE" "K" "Ko" "KWe" "KWu" "KWi" "KWa" "KWE" "qe" "qu" "qi" "qa" "qE" "q" "qo" "qWe" "qWu" "qWi" "qWa" "qWE" "Qe" "Qu" "Qi" "Qa" "QE" "Q" "Qo" "QWe" "QWu" "QWi" "QWa" "QWE" "ge" "gu" "gi" "ga" "gE" "g" "go" "gWe" "gWu" "gWi" "gWa" "gWE" "we" "wu" "wi" "wa" "wE" "w" "wo" "wWe" "wWu" "wWi" "wWa" "wWE" "`se" "`su" "`si" "`sa" "`sE" "`s" "`so" "`Se" "`Su" "`Si" "`Sa" "`SE" "`S" "`So" "`e" "`u" "`i" "`a" "`E" "`I" "`o" "`he" "`hu" "`hi" "`ha" "`hE" "`h" "`ho" "`ke" "`ku" "`ki" "`ka" "`kE" "`k" "`ko" "Xe" "Xu" "Xi" "Xa" "XE" "X" "Xo" "He" "Hu" "Hi" "Ha" "HE" "H" "Ho" "ye" "yu" "yi" "ya" "yE" "y" "yo" "De" "Du" "Di" "Da" "DE" "D" "Do" "je" "ju" "ji" "ja" "jE" "j" "jo" "Ge" "Gu" "Gi" "Ga" "GE" "G" "Go" "Pe" "Pu" "Pi" "Pa" "PE" "P" "Po" "pe" "pu" "pi" "pa" "pE" "p" "po" " " "\\_" "." "," ";" ":" "\\*" "\\<" "\\>" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "20" "30" "40" "50" "60" "70" "80" "90" "100" "10000" "\\~e" "\\~E" "\\~a" "\\~A"] fidel-to-sera-map current-load-list] 2) #@122 *If non-NIL, use "e" instead of "a" for the first lone vowel translation in sera-to-fidel and fidel-to-sera conversions. (defvar ethio-use-tigrigna-style nil (#$ . -15653)) #@211 *If non-NIL, lone vowels are always transcribed by "an apostrophe + the vowel" except at word initial. Otherwise, they are quoted by an apostrophe only if the preceding Ethiopic character is a lone consonant. (defvar ethio-quote-vowel-always nil (#$ . -15833)) #@89 *If non-NIL, the Wu-form of a 12-form consonant is transcribed by "W'" instead of "Wu". (defvar ethio-W-sixth-always nil (#$ . -16101)) #@248 *Degree of reduction in transcribing Ethiopic digits by Arabic digits. For example, ߝ ({10}{9}{100}{80}{7}) will be transcribed by: 9@80 if ETHIO-NUMERIC-REDUCTION is 0, 9100807 is 1, 900807 is 2. (defvar ethio-numeric-reduction 0 (#$ . -16244)) #@265 Replaces all the FIDEL characters in the region to sera format. If the 1st optional parameter ASCII-MODE is non-NIL, converts the region so that it begins in ASCII script. If the 2nd optional parameter FORCE is non-NIL, converts even if the buffer is read-only. (defalias 'fidel-to-sera-region #[(begin end &optional ascii-mode force) " } \f\"*" [begin end fidel-to-sera-buffer ascii-mode force] 3 (#$ . 16547) "r\nP"]) #@405 Replace all the FIDEL characters in the current buffer to sera format. If the 1st optional parameter ASCII-MODE is non-NIL, convert the current buffer so that it begins in ASCII script. If the 2nd optional parameter FORCE is non-NIL, converts even if the buffer is read-only. See also the description of the variables ethio-use-tigrigna-style, ethio-quote-vowel-on-demand and ethio-numeric-reduction. (defalias 'fidel-to-sera-buffer #[(&optional ascii-mode force) " !!ɂI\f+͂,M@I\\A5*҉ebmg!UC!!Xc> cHc!_WV>cHc_(U\fH_(U0>0HOc_Hc_UPcYcXxYqXx>c>cu_eb#!eb#!-eb" [buffer-read-only force y-or-n-p "Buffer is read-only. Force to convert? " error "" fidel-to-sera-map 144 ethio-use-tigrigna-style "e" "a" 160 ethio-W-sixth-always ("hW'" "kW'" "KW'" "qW'" "QW'" "gW'" "wW'") ("hWu" "kWu" "KWu" "qWu" "QWu" "gWu" "wWu") x i 12 nil ch digit fidel lonec char-leading-char lc-ethio char-to-ethiocode delete-char 1 326 ascii-mode "\\ " (144 145 146 147 148 150 151) ethio-quote-vowel-always "'" ethio-lone-consonant-p t 336 355 (329 330 331 332) "\\" ethio-numeric-reduction 0 2 (345 354 355) 92 97 122 65 90 (124 39 96) (46 44 59 58) re-search-forward "\\([]!\"#$%&()*+/<=>?@[^_-]+\\)\\\\ " replace-match "\\\\ \\1" "\n\\([ ]*\\)\\\\ " "\\\\\n\\1"] 6 (#$ . 16982) "P"]) #@64 If the ethiocode CODE is an Ethiopic lone consonant, return t. (defalias 'ethio-lone-consonant-p #[(code) "W \"UWƇW\"\"UW.\"U" [code 144 mod 8 5 153 nil 236 12 1 327 7 3] 3 (#$ . 18612)]) #@354 Does FIDEL to SERA conversion for reading/writing mail and news. If the buffer contains at least one Ethiopic character, 1) inserts the string "" right after the header-body separator, 2) inserts "" at the end of the buffer, 3) converts the body into SERA in Ethiopic start mode, and 4) converts the subject field in ASCII start mode. (defalias 'fidel-to-sera-mail #[nil "eb#e‰eb=ɂ$ Q!c`d\"dbhU:cceb\f#Q``#=aTHd“*h!)" [re-search-forward "\\cE" nil t border buffer-read-only search-forward major-mode rmail-mode "\n\n" "\n" mail-header-separator "\n" fidel-to-sera-region 10 "\n" "^Subject: " ascii-start rmail-message-vector rmail-current-message message "No Ethiopic characters in this buffer."] 4 (#$ . 18840) nil]) #@179 If the buffer contains the markers "" and "", converts the segment between the two markers from Fidel to SERA in Ethio start mode. The markers will not be removed. (defalias 'fidel-to-sera-marker #[nil "!!eb#1`#)˔*d$)" [buffer-read-only y-or-n-p "Buffer is read-only. Force to convert? " error "" re-search-forward "^\n" nil t fidel-to-sera-region "^\n" 0 force] 6 (#$ . 19660) nil]) (byte-code "\n\" \nB\"\"" [assoc "\\.sera$" auto-mode-alist ("\\.sera$" . sera-to-fidel-find-file) add-hook write-file-hooks fidel-to-sera-write-file after-save-hook sera-to-fidel-after-save] 3) #@74 Intended to be called when a file whose name ends in ".sera" is read in. (defalias 'sera-to-fidel-find-file #[nil "\"!" [sera-to-fidel-buffer nil force set-buffer-modified-p] 3 (#$ . 20324)]) #@83 Intended to be used as write-file-hooks for the files whose name ends in ".sera". (defalias 'fidel-to-sera-write-file #[nil " \"\"!)ć" [string-match "\\.sera$" buffer-file-name fidel-to-sera-buffer nil force set-buffer-modified-p] 3 (#$ . 20531)]) #@82 Intended to be used as after-save-hook for the files whose name ends in ".sera". (defalias 'sera-to-fidel-after-save #[nil " \"\"!)ć" [string-match "\\.sera$" buffer-file-name sera-to-fidel-buffer nil force set-buffer-modified-p] 3 (#$ . 20800)]) #@57 Modify the vowel of the FIDEL that is under the cursor. (defalias 'ethio-modify-vowel #[nil "g\f!U\f!!\fY(\fX:\fY4\fX:\fY>!! >R!W GZ\fX\f֥_\f\"Ws\n \\ U\n\\ U\n\\B\n\\ \\B\fX\fZޥ_\f\"W\n \\\\ W\n \\\\ U\n\\!\fZԥ_ \\\\! : @! A!!  !c!," [nil vowel base newch ch char-leading-char lc-ethio char-to-ethiocode error "Not a valid character." 144 151 250 256 327 message "Modify vowel to: " read-char (101 117 105 97 69 39 111) "Not a valid vowel." 7 143 8 mod 3 5 232 231 235 152 12 159 160 236 delete-char 1 ethiocode-to-char backward-char 2] 5 (#$ . 21068) nil]) (defalias 'ethiocode-to-char #[(code) " \nå\\\n\"\\#" [make-character lc-ethio code 94 161 mod] 6]) (defalias 'char-to-ethiocode #[(ch) " !\nU \"Z_ \"Z\\" [char-leading-char ch lc-ethio char-component 1 161 94 2] 4]) #@74 In the specified region, replace spaces between two Ethiopic characters. (defalias 'ethio-replace-space #[(ch begin end) ">\n!\f }ebU*#ɉ#UU#?!0eb#!ӔbBUɉ#ٔ!a!Uaٕfa!Uaɉ#a**" [ch (49 50 51) error "" begin end 49 re-search-forward "[Ν]" nil t replace-match " " 50 search-forward "" "" "\\(\\cE\\)\\( \\)\\( *\\cE\\)" "\\1\\3" 2 51 succ pred "[ ]\\([ ]*\\)" char-before 0 char-leading-char lc-ethio "\\1"] 4 (#$ . 22035) "*cReplace spaces to: 1 (sg col), 2 (dbl col), 3 (Ethiopic)\nr"]) #@45 Allow the user to input special characters. (defalias 'ethio-input-special-character #[(arg) "U cUcUcU$c!" [arg 49 348779 50 348780 51 348781 52 348782 error ""] 2 (#$ . 22664) "*cInput number: 1. 2. 3. 4."]) (byte-code " # # # # # # # # # #\"\"!" [define-key global-map [f4] sera-to-fidel-buffer [S-f4] sera-to-fidel-region [C-f4] sera-to-fidel-marker [f5] fidel-to-sera-buffer [S-f5] fidel-to-sera-region [C-f5] fidel-to-sera-marker [f6] ethio-modify-vowel [f7] ethio-replace-space [S-f2] [f8] ethio-input-special-character add-hook rmail-mode-hook (lambda nil (define-key rmail-mode-map [C-f4] (quote sera-to-fidel-mail)) (define-key rmail-mode-map [C-f5] (quote fidel-to-sera-mail))) mail-mode-hook (lambda nil (define-key mail-mode-map [C-f4] (quote sera-to-fidel-mail)) (define-key mail-mode-map [C-f5] (quote fidel-to-sera-mail))) provide ethio] 4)