[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv19564

Modified Files:
	ChangeLog slime.el 
Log Message:
Don't use goto-line.

* slime.el (slime-goto-line): New function as replacement without
goto-line's cruft that we don't want.

--- /project/slime/cvsroot/slime/ChangeLog	2010/06/04 07:30:36	1.2109
+++ /project/slime/cvsroot/slime/ChangeLog	2010/06/18 12:31:43	1.2110
@@ -1,3 +1,10 @@
+2010-06-18  Helmut Eller  <heller at common-lisp.net>
+
+	Don't use goto-line.
+
+	* slime.el (slime-goto-line): New function as replacement without
+	goto-line's cruft that we don't want.
+
 2010-06-04  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el, swank.lisp: #'(lambda -> (lambda
--- /project/slime/cvsroot/slime/slime.el	2010/06/04 07:30:37	1.1327
+++ /project/slime/cvsroot/slime/slime.el	2010/06/18 12:31:43	1.1328
@@ -4035,12 +4035,21 @@
     (destructure-case what
       ((:filename file &key line column position)
        (find-file (slime-from-lisp-filename file))
-       (when line (goto-line line))
+       (when line (slime-goto-line line))
        (when column (move-to-column column))
        (when position (goto-char position)))
       ((:function-name name)
        (slime-edit-definition name)))))
 
+(defun slime-goto-line (line-number)
+  "Move to line LINE-NUMBER (1-based).
+This is similar to `goto-line' but without pushing the mark and
+the display stuff that we neither need nor want."
+  (assert (= (buffer-size) (- (point-max) (point-min))) ()
+          "slime-goto-line in narrowed buffer")
+  (goto-char (point-min))
+  (forward-line (1- line-number)))
+  
 (defun slime-y-or-n-p (thread tag question)
   (slime-dispatch-event `(:emacs-return ,thread ,tag ,(y-or-n-p question))))