;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:42:31 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/viet.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 "`viet.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ\nBÁ‡" ["[aeiouyAEIOUY]\\([(^+]?['`?~.]\\|[(^+]\\)\\|[Dd][Dd]" viqr-regexp current-load-list] 2) #@88 Convert 'VIQR' mnemonics of the current region to pre-composed Vietnamese characaters. (defalias 'vn-compose-viqr #[(from to) "À‰‰‰ÅÆ!ˆÇ\f8Œ }ˆebˆÊ ÀÌ#…^͔͕{Î \n\"‰§ƒD ÇVƒD\nÍ SOÎ \n\"Ï !ƒÍ”bˆ``\nG\\|ˆÐ Ì\"cˆ‚-‡" [nil def key map quail-current-package quail-use-package "viqr" 2 from to re-search-forward viqr-regexp t 0 lookup-key keymapp quail-get-candidate] 5 (#$ . 596) "r"]) (defalias 'vn-compose-viqr-buffer #[nil "Àed\"‡" [vn-compose-viqr] 3 nil nil]) #@88 Convert pre-composed Vietnamese characaters of the current region to 'VIQR' mnemonics. (defalias 'vn-decompose-viqr #[(from to) "À‰‰‰ÅÆ!ˆÇ\f8Œ }ˆebˆÊËÀÌ#…:Íh!Î \"‰ƒÏÐ!ˆ\nAcˆ‚-‡" [nil def key decode-map quail-current-package quail-use-package "viqr" 11 from to re-search-forward "\\cv" t char-to-string assoc delete-char -1] 4 (#$ . 1082) "r"]) (defalias 'vn-decompose-viqr-buffer #[nil "Àed\"‡" [vn-decompose-viqr] 3 nil nil]) (provide (quote viet))