Mercurial > emacs

diff lisp/language/tibet-util.el @ 22987:708271862495

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-XXX-environment): Just call set-language-environment. If they used to do some other jobs than what done by set-language-environment, those jobs are done in setup-XXX-environment-internal now.
author Kenichi Handa <handa@m17n.org>
date Mon, 10 Aug 1998 06:42:41 +0000
parents f510736ce3d1
children 0f86fe9632e0
line wrap: on
line diff
--- a/lisp/language/tibet-util.el	Mon Aug 10 06:29:02 1998 +0000
+++ b/lisp/language/tibet-util.el	Mon Aug 10 06:42:41 1998 +0000
@@ -35,9 +35,7 @@
 ;;;###autoload
 (defun setup-tibetan-environment ()
   (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Tibetan")
-  (setq default-input-method  "tibetan-wylie"))
+  (set-language-environment "Tibetan"))
 
 ;;; This function makes a transcription string for
 ;;; re-composing a character.
@@ -106,7 +104,7 @@
 ;;;
 ;;; Here are examples of the words "bsgrubs" and "h'uM"
 ;;;
-;;;            $(7"72%q`"U1"7"G(B         2$(7"H`#A`"U0"_1(B        
+;;;            $(7"7(B2$(7%q`"U(B1$(7"7"G(B         2$(7"H`#A`"U0"_(B1        
 ;;;
 ;;;                             M
 ;;;             b s b s         h