Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mule/mule-init.el	Mon Aug 13 10:03:54 2007 +0200
+++ b/lisp/mule/mule-init.el	Mon Aug 13 10:04:58 2007 +0200
@@ -66,22 +66,22 @@
 
 ;; MULE keymap codes were moved to mule-cmds.el.
 
-(define-key help-map "T" 'help-with-tutorial-for-mule)
+;; (define-key help-map "T" 'help-with-tutorial-for-mule)
 
-(defvar help-with-tutorial-language-alist
-  '(("Japanese" . ".jp")
-    ("Korean"   . ".kr")
-    ("Thai"     . ".th")))
+;; (defvar help-with-tutorial-language-alist
+;;  '(("Japanese" . ".jp")
+;;    ("Korean"   . ".kr")
+;;    ("Thai"     . ".th")))
 
-(defun help-with-tutorial-for-mule (language)
-  "Select the Mule learn-by-doing tutorial."
-  (interactive (list (let ((completion-ignore-case t)
-			   lang)
-		       (completing-read
-			"Language: "
-			help-with-tutorial-language-alist))))
-  (setq language (cdr (assoc language help-with-tutorial-language-alist)))
-  (help-with-tutorial (concat "mule/TUTORIAL" (or language ""))))
+;(defun help-with-tutorial-for-mule (language)
+;  "Select the Mule learn-by-doing tutorial."
+;  (interactive (list (let ((completion-ignore-case t)
+;			   lang)
+;		       (completing-read
+;			"Language: "
+;			help-with-tutorial-language-alist))))
+;  (setq language (cdr (assoc language help-with-tutorial-language-alist)))
+;  (help-with-tutorial (concat "mule/TUTORIAL" (or language ""))))
 
 (defvar auto-language-alist
   '(("^ja" . "Japanese")