Mercurial > emacs
diff lisp/language/vietnamese.el @ 17993:73869115ae0a
Most of setup-LANGUAGE-environment functions are
moved form LANGUAGE.el to LANG-util.el. These functions now at
first call setup-english-environment to reset various values to
the defaults.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 28 May 1997 03:39:03 +0000 |
parents | 084d922fcd78 |
children | 0745f30aec66 |
line wrap: on
line diff
--- a/lisp/language/vietnamese.el Wed May 28 03:37:33 1997 +0000 +++ b/lisp/language/vietnamese.el Wed May 28 03:39:03 1997 +0000 @@ -226,33 +226,15 @@ (register-input-method "Vietnamese" '("quail-viqr" quail-use-package "quail/viqr")) -(defun setup-vietnamese-environment () - "Setup multilingual environment (MULE) for Vietnamese." - (interactive) - ;; for VISCII users - (setq coding-category-binary 'viscii) - - ;; for VSCII users - ;; (setq coding-category-binary 'vscii) - - (set-coding-priority - '(coding-category-iso-7 - coding-category-binary)) - - (setq-default buffer-file-coding-system 'viscii) - - (setq default-input-method '("Vietnamese" . "quail-viqr")) - ) - (set-language-info-alist "Vietnamese" '((setup-function . setup-vietnamese-environment) (charset . (vietnamese-viscii-lower vietnamese-viscii-upper)) (coding-system . (viscii vscii viqr)) (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn") - (documentation . '("\ + (documentation . "\ For Vietnamese, Emacs uses special charasets internally. -They can be decoded from and encoded to VISCC, VSCII, and VIQR.")) +They can be decoded from and encoded to VISCC, VSCII, and VIQR.") )) ;;; vietnamese.el ends here