User: youngs Date: 06/03/16 08:11:51 Modified: packages/xemacs-packages/xemacs-base ChangeLog debug.el Log: 2006-03-16 Nelson Ferreira <njsf(a)tuxie.homelinux.net&gt; * debug.el (cancel-debug-on-entry): Fixed alist generation for completing-read, thus allowing interactive use of cancel-debug-on-entry to cancel debug of an individual function. Revision Changes Path 1.176 +6 -0 XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog,v retrieving revision 1.175 retrieving revision 1.176 diff -u -p -r1.175 -r1.176 --- ChangeLog 2005/12/31 16:08:24 1.175 +++ ChangeLog 2006/03/16 07:11:49 1.176 ＠＠ -1,3 +1,9 ＠＠ +2006-03-16 Nelson Ferreira <njsf(a)tuxie.homelinux.net&gt; + + * debug.el (cancel-debug-on-entry): Fixed alist generation for + completing-read, thus allowing interactive use of + cancel-debug-on-entry to cancel debug of an individual function. + 2005-12-31 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 2.01 released. 1.6 +3 -1 XEmacs/packages/xemacs-packages/xemacs-base/debug.el Index: debug.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/debug.el,v retrieving revision 1.5 retrieving revision 1.6 diff -u -p -r1.5 -r1.6 --- debug.el 2004/11/07 23:43:09 1.5 +++ debug.el 2006/03/16 07:11:50 1.6 ＠＠ -709,7 +709,9 ＠＠ If argument is nil or an empty string, c (interactive (list (let ((name (completing-read "Cancel debug on entry (to function): " - (mapcar 'symbol-name debug-function-list) + (mapcar (lambda (sym) + (cons (symbol-name sym) sym)) + debug-function-list) nil t nil))) (if name (intern name))))) (debugger-reenable)