[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv16960

Modified Files:
	lisp-syntax.lisp 
Log Message:
Unbreak `goto-location'.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/07/27 19:55:27	1.101
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/07/28 10:37:55	1.102
@@ -3043,7 +3043,8 @@
      (beep)
      (return-from goto-location))
    (switch-to-buffer buffer)
-   (goto-position (source-position location))))
+   (goto-position (point (current-window))
+                  (char-position (source-position location)))))
 
 (defmethod goto-location ((location file-location))
  (let ((buffer (find (file-name location)
@@ -3055,7 +3056,8 @@
    (if buffer
        (switch-to-buffer buffer)
        (climacs-commands::find-file (file-name location)))
-   (goto-position (source-position location))))
+   (goto-position (point (current-window))
+                  (char-position (source-position location)))))
 
 ;;; Macroexpansion and evaluation