;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:58 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/language/viet-util.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@54 Return VISCII character code of CHAR if appropriate.
(defalias 'viet-encode-viscii-char #[(char) "\301\302\"\207" [char encode-char viscii] 3 (#$ . 561)])
#@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 . "\\\\")) (#$ . 723))
(defconst viqr-regexp "[aeiouyAEIOUY]\\([(^+]?['`?~.]\\|[(^+]\\)\\|[Dd][Dd]")
#@195 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.
(defalias 'viet-decode-viqr-region #[(from to) "\214	}\210eb\210\306\n\307\310#\205-\311\224\311\225{\312\f\"@\211\203)\311\224\311\225|\210
c\210*\202)\207" [from to viqr-regexp viqr viet-viqr-alist ch re-search-forward nil t 0 rassoc] 5 (#$ . 2961) "r"])
#@74 Convert `VIQR' mnemonics of the current buffer to Vietnamese characters.
(defalias 'viet-decode-viqr-buffer #[nil "\300ed\"\207" [viet-decode-viqr-region] 3 (#$ . 3426) nil])
#@195 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.
(defalias 'viet-encode-viqr-region #[(from to) "\214	}\210eb\210\305\306\307\310#\205&h\211\236A\211\203\"\311\312!\210\fc\210*\202)\207" [from to ch viet-viqr-alist viqr re-search-forward "\\cv" nil t delete-char -1] 5 (#$ . 3608) "r"])
#@74 Convert Vietnamese characters of the current buffer to `VIQR' mnemonics.
(defalias 'viet-encode-viqr-buffer #[nil "\300ed\"\207" [viet-encode-viqr-region] 3 (#$ . 4054) nil])
(defalias 'viqr-post-read-conversion #[(len) "\212\214``\\}\210\301 \302ed\"\210\303	!\210deZ+\207" [len buffer-modified-p viet-decode-viqr-region set-buffer-modified-p] 3])
(defalias 'viqr-pre-write-conversion #[(from to) "p\303\304!q\210	;\203	c\210\202\305	\n#\210\306ed\"\210)\307\207" [old-buf from to generate-new-buffer " *temp*" insert-buffer-substring viet-encode-viqr-region nil] 4])
(provide 'viet-util)