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)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;