[MLton-commit] r5685

[Vesa Karvonen]

Use the symbolic constant.
----------------------------------------------------------------------

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-06-28 01:56:39 UTC (rev 5684)
+++ mlton/trunk/ide/emacs/def-use-data.el	2007-06-28 10:24:04 UTC (rev 5685)
@@ -85,7 +85,7 @@
 (defun def-use-show-dus ()
   "Show a list of def-use sources."
   (interactive)
-  (let ((buffer (get-buffer-create "<:Def-Use Sources:>")))
+  (let ((buffer (get-buffer-create def-use-show-dus-buffer-name)))
     (with-current-buffer buffer
       (buffer-disable-undo)
       (setq buffer-read-only t)