Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-init.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
64 (cons 'modeline-multibyte-status 64 (cons 'modeline-multibyte-status
65 (cdr modeline-format)))) 65 (cdr modeline-format))))
66 66
67 ;; MULE keymap codes were moved to mule-cmds.el. 67 ;; MULE keymap codes were moved to mule-cmds.el.
68 68
69 (define-key help-map "T" 'help-with-tutorial-for-mule) 69 ;; (define-key help-map "T" 'help-with-tutorial-for-mule)
70 70
71 (defvar help-with-tutorial-language-alist 71 ;; (defvar help-with-tutorial-language-alist
72 '(("Japanese" . ".jp") 72 ;; '(("Japanese" . ".jp")
73 ("Korean" . ".kr") 73 ;; ("Korean" . ".kr")
74 ("Thai" . ".th"))) 74 ;; ("Thai" . ".th")))
75 75
76 (defun help-with-tutorial-for-mule (language) 76 ;(defun help-with-tutorial-for-mule (language)
77 "Select the Mule learn-by-doing tutorial." 77 ; "Select the Mule learn-by-doing tutorial."
78 (interactive (list (let ((completion-ignore-case t) 78 ; (interactive (list (let ((completion-ignore-case t)
79 lang) 79 ; lang)
80 (completing-read 80 ; (completing-read
81 "Language: " 81 ; "Language: "
82 help-with-tutorial-language-alist)))) 82 ; help-with-tutorial-language-alist))))
83 (setq language (cdr (assoc language help-with-tutorial-language-alist))) 83 ; (setq language (cdr (assoc language help-with-tutorial-language-alist)))
84 (help-with-tutorial (concat "mule/TUTORIAL" (or language "")))) 84 ; (help-with-tutorial (concat "mule/TUTORIAL" (or language ""))))
85 85
86 (defvar auto-language-alist 86 (defvar auto-language-alist
87 '(("^ja" . "Japanese") 87 '(("^ja" . "Japanese")
88 ("^zh" . "Chinese") 88 ("^zh" . "Chinese")
89 ("^ko" . "Korean")) 89 ("^ko" . "Korean"))