[MLton-commit] r5289

Vesa Karvonen vesak at mlton.org
Wed Feb 21 10:22:11 PST 2007


Further tuning of symbol picking.
----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/esml-du-mlton.el

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

Modified: mlton/trunk/ide/emacs/esml-du-mlton.el
===================================================================
--- mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-21 17:34:51 UTC (rev 5288)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-21 18:22:04 UTC (rev 5289)
@@ -84,8 +84,13 @@
 change surprisingly after a jump."
   (let ((limit (def-use-point-at-current-line)))
     (let ((bef (esml-du-character-class (char-before)))
-          (aft (esml-du-character-class (char-after))))
+          (aft (esml-du-character-class (char-after)))
+          (fol (esml-du-character-class (char-after (1+ (point))))))
       (cond
+       ((and (eq bef 'alphanumeric)
+             (= ?= (char-after))
+             (not (eq fol 'symbolic)))
+        (skip-chars-backward esml-sml-alphanumeric-chars limit))
        ((and (eq bef 'symbolic) (not (eq aft 'alphanumeric)))
         (skip-chars-backward esml-sml-symbolic-chars limit))
        ((and (eq bef 'alphanumeric) (not (eq aft 'symbolic)))




More information about the MLton-commit mailing list