CVS update by youngs packages/xemacs-packages/xemacs-base ...
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>
* 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>
+
+ * 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>
* 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)