[MLton-commit] r5125

Vesa Karvonen vesak at mlton.org
Sun Feb 4 11:03:38 PST 2007


Tuning.

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

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

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

Modified: mlton/trunk/ide/emacs/def-use-mode.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-mode.el	2007-02-04 18:56:44 UTC (rev 5124)
+++ mlton/trunk/ide/emacs/def-use-mode.el	2007-02-04 19:03:31 UTC (rev 5125)
@@ -222,7 +222,7 @@
             ("[(m)]"
              . ,(function def-use-list-view-mark-all))
             ("[(u)]"
-             . ,(function def-use-list-view-kill-marks))
+             . ,(function def-use-list-view-unmark-all))
             ("[(q)]"
              . ,(function def-use-kill-current-buffer))
             ("[(return)]"
@@ -252,7 +252,7 @@
           (buffer-disable-undo)
           (def-use-list-mode)
           (add-hook
-           'kill-buffer-hook (function def-use-list-view-kill-marks) nil t)
+           'kill-buffer-hook (function def-use-list-view-unmark-all) nil t)
           (set (make-local-variable 'def-use-list-sym)
                sym)
           (insert (def-use-format-sym sym) "\n"
@@ -300,7 +300,7 @@
                  (pop-to-buffer b))))
             def-use-list-ref-to-overlay-alist))))
 
-(defun def-use-list-view-kill-marks ()
+(defun def-use-list-view-unmark-all ()
   "Kills all the marks associated with the list view."
   (interactive)
   (when def-use-list-ref-to-overlay-alist
@@ -392,7 +392,6 @@
 
 (defun def-use-highlight-current ()
   "Highlights the symbol at the point."
-  (interactive)
   (def-use-highlight-sym (def-use-current-sym)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




More information about the MLton-commit mailing list