[climacs-cvs] CVS climacs

[thenriksen]

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