[MLton-commit] r5099

[Vesa Karvonen]

Temporary implementation of more accurate symbol skipping for SML.

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

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-01-31 11:51:59 UTC (rev 5098)
+++ mlton/trunk/ide/emacs/def-use-mode.el	2007-01-31 12:16:18 UTC (rev 5099)
@@ -114,7 +114,11 @@
     (def-use-point-to-pos
       (save-excursion
         (goto-char point)
-        (skip-syntax-backward "w." (def-use-point-at-current-line))
+        ;; 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)))
         (point)))))
 
 (defun def-use-sym-at-point (point)