--- a/lisp/mule/mule-init.el	Mon Aug 13 09:40:48 2007 +0200
+++ b/lisp/mule/mule-init.el	Mon Aug 13 09:41:43 2007 +0200
@@ -45,11 +45,7 @@
 (setq language-environment-list
       (sort (language-environment-list) 'string-lessp))
 
-;; (defvar mule-keymap (make-sparse-keymap)
-;;   "Keymap for Mule specific commands.")
-;; (fset 'mule-prefix mule-keymap)
-
-;; (define-key ctl-x-map "\C-n" 'mule-prefix)
+;; MULE keymap codes were moved to mule-cmds.el.
 
 ;; Alternative key definitions
 ;; Original mapping will be altered by set-keyboard-coding-system.
@@ -68,15 +64,7 @@
 	(cons 'modeline-multibyte-status
 	      (cdr modeline-format))))
 
-;; (define-key mule-keymap "f" 'set-buffer-file-coding-system)
-;; (define-key mule-keymap "i" 'set-keyboard-coding-system)
-;; (define-key mule-keymap "d" 'set-terminal-coding-system)
-;; (define-key mule-keymap "p" 'set-current-process-coding-system)
-;; (define-key mule-keymap "F" 'set-default-buffer-file-coding-system)
-;; (define-key mule-keymap "P" 'set-default-process-coding-system)
-;; (define-key mule-keymap "c" 'list-coding-system-briefly)
-;; (define-key mule-keymap "C" 'list-coding-system)
-;; (define-key mule-keymap "r" 'toggle-display-direction)
+;; MULE keymap codes were moved to mule-cmds.el.
 
 (define-key help-map "T" 'help-with-tutorial-for-mule)