[MLton-commit] r6792

[Vesa Karvonen]

Use a custom goto-line implementation to avoid annoying "Mark set"
messages.

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

U   mlton/trunk/ide/emacs/def-use-sym.el
U   mlton/trunk/ide/emacs/def-use-util.el

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

Modified: mlton/trunk/ide/emacs/def-use-sym.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-sym.el	2008-08-23 21:29:29 UTC (rev 6791)
+++ mlton/trunk/ide/emacs/def-use-sym.el	2008-08-23 21:39:52 UTC (rev 6792)
@@ -11,7 +11,7 @@
 (defun def-use-pos-to-point (pos)
   "Returns the value of point in the current buffer at the position."
   (save-excursion
-    (goto-line (def-use-pos-line pos))
+    (def-use-goto-line (def-use-pos-line pos))
     (+ (point) (def-use-pos-col pos))))
 
 (defun def-use-point-to-pos (point)

Modified: mlton/trunk/ide/emacs/def-use-util.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-util.el	2008-08-23 21:29:29 UTC (rev 6791)
+++ mlton/trunk/ide/emacs/def-use-util.el	2008-08-23 21:39:52 UTC (rev 6792)
@@ -156,6 +156,15 @@
              (nequal 10) ;; inode
              ))))
 
+(defun def-use-goto-line (line)
+  "Goes to specified line quietly without setting mark.  By default, the
+standard `goto-line' function in latest Gnu Emacs sets the mark displaying
+the message \"Mark set\"."
+  (save-restriction
+    (widen)
+    (goto-char 1)
+    (forward-line (1- line))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (provide 'def-use-util)