[MLton-commit] r5118

Vesa Karvonen vesak at mlton.org
Sat Feb 3 12:41:59 PST 2007


Fixed line counting.
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/ide/emacs/def-use-data.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-data.el	2007-02-03 20:26:21 UTC (rev 5117)
+++ mlton/trunk/ide/emacs/def-use-data.el	2007-02-03 20:41:51 UTC (rev 5118)
@@ -112,7 +112,7 @@
 (defun def-use-show-dus-del ()
   "Kill the def-use source on the current line."
   (interactive)
-  (let ((idx (- (count-lines 1 (point)) 3)))
+  (let ((idx (- (count-lines 1 (def-use-point-at-current-line)) 2)))
     (when (and (<= 0 idx)
                (< idx (length def-use-dus-list)))
       (def-use-rem-dus (nth idx def-use-dus-list)))))




More information about the MLton-commit mailing list