[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	climacs-lisp-syntax.lisp 
Log Message:
Fixed goto-location function in Lisp syntax.


--- /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2007/12/11 18:46:53	1.7
+++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2007/12/27 16:27:25	1.8
@@ -237,13 +237,14 @@
   (let ((view (find (file-name location)
                       (views *application-frame*)
                       :test #'string= :key #'(lambda (view)
-                                               (let ((path (filepath view)))
-                                                 (when path
-                                                   (namestring path)))))))
+                                               (when (typep view 'drei-buffer-view)
+                                                 (let ((path (filepath (buffer view))))
+                                                   (when path
+                                                     (namestring path))))))))
     (if view
         (climacs-core:switch-to-view (current-window) view)
         (find-file (file-name location)))
-    (goto-position (point (current-window))
+    (goto-position (point (current-view))
                    (char-position (source-position location)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;