[MLton-commit] r5126

[Vesa Karvonen]

Tuning.

----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/def-use-data.el

----------------------------------------------------------------------

Modified: mlton/trunk/ide/emacs/def-use-data.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-data.el	2007-02-04 19:03:31 UTC (rev 5125)
+++ mlton/trunk/ide/emacs/def-use-data.el	2007-02-04 19:06:35 UTC (rev 5126)
@@ -65,7 +65,7 @@
 
 (defconst def-use-show-dus-buffer-name "<:Def-Use Sources:>")
 
-(defconst def-use-dus-mode-map
+(defconst def-use-show-dus-mode-map
   (let ((result (make-sparse-keymap)))
     (mapc (function
            (lambda (key-command)
@@ -78,7 +78,7 @@
              . ,(function def-use-show-dus-del))))
     result))
 
-(define-derived-mode def-use-dus-mode fundamental-mode "Def-Use-DUS"
+(define-derived-mode def-use-show-dus-mode fundamental-mode "Def-Use-DUS"
   "Major mode for browsing def-use sources."
   :group 'def-use-dus)
 
@@ -89,7 +89,7 @@
     (with-current-buffer buffer
       (buffer-disable-undo)
       (setq buffer-read-only t)
-      (def-use-dus-mode))
+      (def-use-show-dus-mode))
     (switch-to-buffer buffer))
   (def-use-show-dus-update))