[COMMIT] Refuse to attempt debug on entry for special forms.

APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/xemacs-base/ChangeLog addition: 2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net&gt; * debug.el (debug-on-entry): Refuse to attempt this for special forms. XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/xemacs-base/debug.el =================================================================== RCS Index: xemacs-packages/xemacs-base/debug.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/debug.el,v retrieving revision 1.6 diff -u -u -r1.6 debug.el --- xemacs-packages/xemacs-base/debug.el 2006/03/16 07:11:50 1.6 +++ xemacs-packages/xemacs-base/debug.el 2009/01/11 12:45:26 ＠＠ -682,10 +682,12 ＠＠ (interactive "aDebug on entry (to function): ") (debugger-reenable) ;; Handle a function that has been aliased to some other function. - ;; #### We have no way of determining if a subr is unevalled -; (if (and (subrp (symbol-function function)) -; (eq (cdr (subr-arity (symbol-function function))) 'unevalled)) -; (error "Function %s is a special form" function)) + (if (and (subrp (symbol-function function)) + ;; XEmacs change; 21.4 has no way of checking if a subr is a + ;; special form, early 21.5 does not have #'subr-arity. + (fboundp 'special-form-p) + (special-form-p (symbol-function function))) + (error "Function %s is a special form" function)) (if (or (symbolp (symbol-function function)) (subrp (symbol-function function))) ;; Create a wrapper in which we can then add the necessary debug call. -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches