[MLton-commit] r5130

[Vesa Karvonen]

Refactoring.

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

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

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

Modified: mlton/trunk/ide/emacs/def-use-mode.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-mode.el	2007-02-05 07:19:50 UTC (rev 5129)
+++ mlton/trunk/ide/emacs/def-use-mode.el	2007-02-05 08:14:38 UTC (rev 5130)
@@ -134,10 +134,7 @@
           (save-excursion
             (goto-char point)
             ;; XXX Index this logic in a mode specific manner
-            (when (zerop (skip-chars-backward
-                          "a-zA-Z0-9_'" (def-use-point-at-current-line)))
-              (skip-chars-backward
-               "-!%&$#+/:<=>?@~`^|*\\" (def-use-point-at-current-line)))
+            (esml-du-move-to-symbol-beginning)
             (point)))))))
 
 (defun def-use-sym-at-point (point)

Modified: mlton/trunk/ide/emacs/esml-du-mlton.el
===================================================================
--- mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-05 07:19:50 UTC (rev 5129)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-05 08:14:38 UTC (rev 5130)
@@ -23,6 +23,13 @@
       (function esml-du-finalize)
       ctx)))
 
+(defun esml-du-move-to-symbol-beginning ()
+  "XXX"
+  (when (zerop (skip-chars-backward
+                "a-zA-Z0-9_'" (def-use-point-at-current-line)))
+    (skip-chars-backward
+     "-!%&$#+/:<=>?@~`^|*\\" (def-use-point-at-current-line))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Methods