edebug bug fix to handle #' function quoting

xemacs-vanilla in *scratch* buffer type: (defun loser () (funcall #'ding)) then do M-x edebug-defun within the form. It squinnies: Invalid read syntax: Expected, ("lambda" cl-lambda-list def-body) This is a 4 year old bug: http://list-archive.xemacs.org/xemacs-beta/199810/msg00123.html A fix follows. Before posting to xemacs-patches, I would appreciate it if people could test the fix, and yell if it fucks anything else up. Index: cl-specs.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edebug/cl-specs.el,v retrieving revision 1.1.1.1 diff -u -r1.1.1.1 cl-specs.el --- cl-specs.el 1998/01/14 06:31:38 1.1.1.1 +++ cl-specs.el 2002/07/16 00:07:31 ＠＠ -281,12 +281,21 ＠＠ def-body))) ;; Redefine function-form to also match function* +; (def-edebug-spec function-form +; ;; form at the end could also handle "function", +; ;; but recognize it specially to avoid wrapping function forms. +; (&or ([&or "quote" "function"] &or symbolp lambda-expr) +; ("function*" cl-lambda-expr) +; form)) + +;; from XEmacs edebug.el: +;; A function-form is for an argument that may be a function or a form. +;; This specially recognizes anonymous functions quoted with quote. (def-edebug-spec function-form ;; form at the end could also handle "function", ;; but recognize it specially to avoid wrapping function forms. - (&or ([&or "quote" "function"] &or symbolp lambda-expr) - ("function*" cl-lambda-expr) - form)) + ;; XEmacs change. + (&or ([&or "quote" "function" "function*"] &or symbolp lambda-expr) form)) ;;====================================================== ;; Structures -- John Paul Wallington