Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv14209
Modified Files: climacs-lisp-syntax.lisp Log Message: Fix running certain functions outside textual-drei-syntax-views.
--- /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp 2008/01/23 18:25:40 1.14 +++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp 2008/01/23 19:03:21 1.15 @@ -370,7 +370,8 @@
(defun edit-definition (symbol &optional type) (let ((all-definitions (find-definitions-for-drei - (get-usable-image (current-syntax)) + (get-usable-image (when (syntax-view-p (current-view)) + (current-syntax))) symbol))) (let ((definitions (if (not type) all-definitions @@ -384,7 +385,8 @@ (goto-definition symbol definitions))))))
(defun goto-definition (name definitions) - (push (list (offset (point)) (current-view)) *find-definition-stack*) + (when (point-mark-view-p (current-view)) + (push (list (offset (point)) (current-view)) *find-definition-stack*)) (cond ((null (cdr definitions)) (let* ((def (car definitions)) (xref (make-xref def)))