Source

xemacs-base / debug.el

Diff from to

File debug.el

   (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)