;ELC   
;;; compiled by nk@localhost.localdomain on Fri Dec  1 22:48:58 2006
;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/viet-util.el
;;; emacs version 21.4 (patch 19) "Constant Variable" XEmacs Lucid.
;;; bytecomp version 2.27 XEmacs; 2000-09-12.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 19.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "20")))
    (error "`viet-util.el' was compiled for Emacs 20"))

(or (boundp 'current-load-list) (setq current-load-list nil))

(require 'mule)
;;;###coding system: escape-quoted

(defalias 'viet-encode-viscii-char #[(char) "Â	Ã\"H‡" [char viet-viscii-nonascii-translation-table char-table-extra-slot 0] 3 "\
Return VISCII character code of CHAR if appropriate."])
(defalias 'setup-vietnamese-environment #[nil "ÀÁ!‡" [set-language-environment "Vietnamese"] 2 "\
Setup multilingual environment (MULE) for Vietnamese VISCII users." nil])
(defvar viet-viqr-alist '((?-1¡ . "a('") (?¢ . "a(`") (?£ . "a(.") (?¤ . "a^'") (?¥ . "a^`") (?¦ . "a^?") (?§ . "a^.") (?¨ . "e~") (?© . "e.") (?ª . "e^'") (?« . "e^`") (?¬ . "e^?") (?­ . "e^~") (?® . "e^.") (?¯ . "o^'") (?° . "o^`") (?± . "o^?") (?² . "o^~") (?µ . "o^.") (?¶ . "o+`") (?· . "o+?") (?¸ . "i.") (?½ . "o+") (?¾ . "o+'") (?Æ . "a(?") (?Ç . "a(~") (?Ï . "y`") (?Ñ . "u+'") (?Õ . "a.") (?Ö . "y?") (?× . "u+`") (?Ø . "u+?") (?Û . "y~") (?Ü . "y.") (?Þ . "o+~") (?ß . "u+") (?à . "a`") (?á . "a'") (?â . "a^") (?ã . "a~") (?ä . "a?") (?å . "a(") (?æ . "u+~") (?ç . "a^~") (?è . "e`") (?é . "e'") (?ê . "e^") (?ë . "e?") (?ì . "i`") (?í . "i'") (?î . "i~") (?ï . "i?") (?ð . "dd") (?ñ . "u+.") (?ò . "o`") (?ó . "o'") (?ô . "o^") (?õ . "o~") (?ö . "o?") (?÷ . "o.") (?ø . "u.") (?ù . "u`") (?ú . "u'") (?û . "u~") (?ü . "u?") (?ý . "y'") (?þ . "o+.") (?-2¡ . "A('") (?¢ . "A(`") (?£ . "A(.") (?¤ . "A^'") (?¥ . "A^`") (?¦ . "A^?") (?§ . "A^.") (?¨ . "E~") (?© . "E.") (?ª . "E^'") (?« . "E^`") (?¬ . "E^?") (?­ . "E^~") (?® . "E^.") (?¯ . "O^'") (?° . "O^`") (?± . "O^?") (?² . "O^~") (?µ . "O^.") (?¶ . "O+`") (?· . "O+?") (?¸ . "I.") (?½ . "O+") (?¾ . "O+'") (?Æ . "A(?") (?Ç . "A(~") (?Ï . "Y`") (?Ñ . "U+'") (?Õ . "A.") (?Ö . "Y?") (?× . "U+`") (?Ø . "U+?") (?Û . "Y~") (?Ü . "Y.") (?Þ . "O+~") (?ß . "U+") (?à . "A`") (?á . "A'") (?â . "A^") (?ã . "A~") (?ä . "A?") (?å . "A(") (?æ . "U+~") (?ç . "A^~") (?è . "E`") (?é . "E'") (?ê . "E^") (?ë . "E?") (?ì . "I`") (?í . "I'") (?î . "I~") (?ï . "I?") (?ð . "DD") (?ð . "dD") (?ð . "Dd") (?ñ . "U+.") (?ò . "O`") (?ó . "O'") (?ô . "O^") (?õ . "O~") (?ö . "O?") (?÷ . "O.") (?ø . "U.") (?ù . "U`") (?ú . "U'") (?û . "U~") (?ü . "U?") (?ý . "Y'") (?þ . "O+.") (?\( . "\\(") (?^ . "\\^") (?+ . "\\+") (?\' . "\\'") (?\` . "\\`") (?\? . "\\?") (?~ . "\\~") (?\. . "\\.") (?d . "\\d") (?\\ . "\\\\")) "\-A
Alist of Vietnamese characters vs corresponding `VIQR' string.")
(byte-code "À	BÂÀ‡" [viqr-regexp current-load-list "[aeiouyAEIOUY]\\([(^+]?['`?~.]\\|[(^+]\\)\\|[Dd][Dd]"] 2)
(defalias 'viet-decode-viqr-region #[(from to) "Œ\n}ˆebˆÆ	ÇÈ#­›É”É•{Ê\"@‰«‰É”É•|ˆcˆ*ª^)‡" [viet-viqr-alist viqr-regexp to from ch viqr re-search-forward nil t 0 rassoc] 5 "\
Convert `VIQR' mnemonics of the current region to Vietnamese characters.
When called from a program, expects two arguments,
positions (integers or markers) specifying the stretch of the region." "r"])
(defalias 'viet-decode-viqr-buffer #[nil "Àed\"‡" [viet-decode-viqr-region] 3 "\
Convert `VIQR' mnemonics of the current buffer to Vietnamese characters." nil])
(defalias 'viet-encode-viqr-region #[(from to) "Œ\n}ˆebˆÅÆÇÈ#­”h‰·A‰«‡ÉÊ!ˆcˆ*ªe)‡" [viet-viqr-alist ch to from viqr re-search-forward "\\cv" nil t delete-char -1] 5 "\
Convert Vietnamese characters of the current region to `VIQR' mnemonics.
When called from a program, expects two arguments,
positions (integers or markers) specifying the stretch of the region." "r"])
(defalias 'viet-encode-viqr-buffer #[nil "Àed\"‡" [viet-encode-viqr-region] 3 "\
Convert Vietnamese characters of the current buffer to `VIQR' mnemonics." nil])
(defalias 'viqr-post-read-conversion #[(len) "ŠŒ``\\}ˆÁ Âed\"ˆÃ	!ˆdeZ+‡" [len buffer-modified-p viet-decode-viqr-region set-buffer-modified-p] 3])
(defalias 'viqr-pre-write-conversion #[(from to) "pÃÄ!qˆ\n;«…\ncˆª†Å	\n#ˆÆed\"ˆ)Ç‡" [to old-buf from generate-new-buffer " *temp*" insert-buffer-substring viet-encode-viqr-region nil] 4])
(provide 'viet-util)