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)