[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	climacs-lisp-syntax.lisp 
Log Message:
Fix M-. for toplevel symbols.


--- /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2008/01/20 19:51:48	1.13
+++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2008/01/23 18:25:40	1.14
@@ -358,13 +358,14 @@
              (when form-operator
                (form-equal syntax form-operator symbol-form)))
            (find-local-binding (form)
-             (or (when (locally-binding-p form)
-                   (loop for binding in (form-children (first (form-operands form)))
-                      when (and (form-list-p binding)
-                                (match (form-operator binding)))
-                      return binding))
-                 (unless (form-at-top-level-p form)
-                   (find-local-binding (parent form))))))
+             (when form
+               (or (when (locally-binding-p form)
+                     (loop for binding in (form-children (first (form-operands form)))
+                        when (and (form-list-p binding)
+                                  (match (form-operator binding)))
+                        return binding))
+                   (unless (form-at-top-level-p form)
+                     (find-local-binding (parent form)))))))
     (find-local-binding (list-at-mark syntax (start-offset symbol-form)))))
 
 (defun edit-definition (symbol &optional type)