[MLton-commit] r5502

[Vesa Karvonen]

Treat tab as having width of 1.
----------------------------------------------------------------------

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-04-10 16:31:54 UTC (rev 5501)
+++ mlton/trunk/ide/emacs/def-use-mode.el	2007-04-11 11:59:17 UTC (rev 5502)
@@ -112,10 +112,10 @@
 current buffer."
   (save-excursion
     (goto-char point)
-    (def-use-pos
-      (+ (count-lines 1 (point))
-         (if (= (current-column) 0) 1 0))
-      (current-column))))
+    (beginning-of-line)
+    (let ((line (+ (count-lines 1 (point)) 1))
+          (col (- point (point))))
+      (def-use-pos line col))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; High-level symbol lookup