;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@65 Return VISCII character code of CHAR if appropriate.

(fn CHAR)
(defalias 'viet-encode-viscii-char #[257 "\300
\301\"\207" [encode-char viscii] 4 (#$ . 84)])
#@64 Alist of Vietnamese characters vs corresponding `VIQR' string.
(defvar viet-viqr-alist '((7855 . "a('") (7857 . "a(`") (7863 . "a(.") (7845 . "a^'") (7847 . "a^`") (7849 . "a^?") (7853 . "a^.") (7869 . "e~") (7865 . "e.") (7871 . "e^'") (7873 . "e^`") (7875 . "e^?") (7877 . "e^~") (7879 . "e^.") (7889 . "o^'") (7891 . "o^`") (7893 . "o^?") (7895 . "o^~") (7897 . "o^.") (7901 . "o+`") (7903 . "o+?") (7883 . "i.") (417 . "o+") (7899 . "o+'") (7859 . "a(?") (7861 . "a(~") (7923 . "y`") (7913 . "u+'") (7841 . "a.") (7927 . "y?") (7915 . "u+`") (7917 . "u+?") (7929 . "y~") (7925 . "y.") (7905 . "o+~") (432 . "u+") (224 . "a`") (225 . "a'") (226 . "a^") (227 . "a~") (7843 . "a?") (259 . "a(") (7919 . "u+~") (7851 . "a^~") (232 . "e`") (233 . "e'") (234 . "e^") (7867 . "e?") (236 . "i`") (237 . "i'") (297 . "i~") (7881 . "i?") (273 . "dd") (7921 . "u+.") (242 . "o`") (243 . "o'") (244 . "o^") (245 . "o~") (7887 . "o?") (7885 . "o.") (7909 . "u.") (249 . "u`") (250 . "u'") (361 . "u~") (7911 . "u?") (253 . "y'") (7907 . "o+.") (7854 . "A('") (7856 . "A(`") (7862 . "A(.") (7844 . "A^'") (7846 . "A^`") (7848 . "A^?") (7852 . "A^.") (7868 . "E~") (7864 . "E.") (7870 . "E^'") (7872 . "E^`") (7874 . "E^?") (7876 . "E^~") (7878 . "E^.") (7888 . "O^'") (7890 . "O^`") (7892 . "O^?") (7894 . "O^~") (7896 . "O^.") (7900 . "O+`") (7902 . "O+?") (7882 . "I.") (416 . "O+") (7898 . "O+'") (7858 . "A(?") (7860 . "A(~") (7922 . "Y`") (7912 . "U+'") (7840 . "A.") (7926 . "Y?") (7914 . "U+`") (7916 . "U+?") (7928 . "Y~") (7924 . "Y.") (7904 . "O+~") (431 . "U+") (192 . "A`") (193 . "A'") (194 . "A^") (195 . "A~") (7842 . "A?") (258 . "A(") (7918 . "U+~") (7850 . "A^~") (200 . "E`") (201 . "E'") (202 . "E^") (7866 . "E?") (204 . "I`") (205 . "I'") (296 . "I~") (7880 . "I?") (272 . "DD") (272 . "dD") (272 . "Dd") (7920 . "U+.") (210 . "O`") (211 . "O'") (212 . "O^") (213 . "O~") (7886 . "O?") (7884 . "O.") (7908 . "U.") (217 . "U`") (218 . "U'") (360 . "U~") (7910 . "U?") (221 . "Y'") (7906 . "O+.") (40 . "\\(") (94 . "\\^") (43 . "\\+") (39 . "\\'") (96 . "\\`") (63 . "\\?") (126 . "\\~") (46 . "\\.") (100 . "\\d") (92 . "\\\\")) (#$ . 248))
(defconst viqr-regexp "[aeiouyAEIOUY]\\([(^+]?['`?~.]\\|[(^+]\\)\\|[Dd][Dd]")
#@209 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.

(fn FROM TO)
(defalias 'viet-decode-viqr-region #[514 "\214

}\210eb\210\302\303\304#\205,\305\224\305\225{\306
	\"@\211\203'\305\224\305\225|\210\211c\210\266\202)\207" [viqr-regexp viet-viqr-alist re-search-forward nil t 0 rassoc] 6 (#$ . 2486) "r"])
#@74 Convert `VIQR' mnemonics of the current buffer to Vietnamese characters.
(defalias 'viet-decode-viqr-buffer #[0 "\300ed\"\207" [viet-decode-viqr-region] 3 (#$ . 2946) nil])
#@209 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.

(fn FROM TO)
(defalias 'viet-encode-viqr-region #[514 "\214

}\210eb\210\301\302\303\304#\205%h\211\236A\211\203 \305\306!\210\211c\210\266\202)\207" [viet-viqr-alist re-search-forward "\\cv" nil t delete-char -1] 6 (#$ . 3126) "r"])
#@74 Convert Vietnamese characters of the current buffer to `VIQR' mnemonics.
(defalias 'viet-encode-viqr-buffer #[0 "\300ed\"\207" [viet-encode-viqr-region] 3 (#$ . 3567) nil])
#@12 

(fn LEN)
(defalias 'viqr-post-read-conversion #[257 "\212\214``\\}\210\300 \301ed\"\210\302
!\210deZ\262
*\207" [buffer-modified-p viet-decode-viqr-region set-buffer-modified-p] 5 (#$ . 3746)])
#@16 

(fn FROM TO)
(defalias 'viqr-pre-write-conversion #[514 "p\300\301!q\210;\203c\210\202\302
#\210\303ed\"\210\304\207" [generate-new-buffer " *temp*" insert-buffer-substring viet-encode-viqr-region nil] 7 (#$ . 3949)])
(provide 'viet-util)