[MLton-commit] r5412

Vesa Karvonen vesak at mlton.org
Sat Mar 10 02:35:15 PST 2007


Restore point.
----------------------------------------------------------------------

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-03-10 05:46:12 UTC (rev 5411)
+++ mlton/trunk/ide/emacs/def-use-data.el	2007-03-10 10:35:14 UTC (rev 5412)
@@ -97,7 +97,7 @@
   (let ((buffer (get-buffer def-use-show-dus-buffer-name)))
     (when buffer
       (with-current-buffer buffer
-        (save-excursion
+        (let ((point (point)))
           (setq buffer-read-only nil)
           (goto-char 1)
           (delete-char (buffer-size))
@@ -107,7 +107,8 @@
                  (lambda (dus)
                    (insert (def-use-dus-title dus) "\n")))
                 def-use-dus-list)
-          (setq buffer-read-only t))))))
+          (setq buffer-read-only t)
+          (goto-char point))))))
 
 (defun def-use-show-dus-del ()
   "Kill the def-use source on the current line."




More information about the MLton-commit mailing list