Mercurial > emacs

comparison lisp/emacs-lisp/debug.el @ 90224:2d92f5c9d6ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-78 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 514-518) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 104-105) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 26 Aug 2005 09:51:52 +0000
parents fbb2bea03df9 5b1a238fcbb4
children ee12d75eb214
comparison
equal deleted inserted replaced
90223:edf295560b5a 90224:2d92f5c9d6ae
1 ;;; debug.el --- debuggers and related commands for Emacs 1 ;;; debug.el --- debuggers and related commands for Emacs
2 2
3 ;; Copyright (C) 1985, 1986, 1994, 2001, 2003, 2005 3 ;; Copyright (C) 1985, 1986, 1994, 2001, 2002, 2003, 2004,
4 ;; Free Software Foundation, Inc. 4 ;; 2005 Free Software Foundation, Inc.
5 5
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: lisp, tools, maint 7 ;; Keywords: lisp, tools, maint
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
707 Redefining FUNCTION also cancels it." 707 Redefining FUNCTION also cancels it."
708 (interactive 708 (interactive
709 (let ((fn (function-called-at-point)) val) 709 (let ((fn (function-called-at-point)) val)
710 (when (debugger-special-form-p fn) 710 (when (debugger-special-form-p fn)
711 (setq fn nil)) 711 (setq fn nil))
712 (setq val (completing-read 712 (setq val (completing-read
713 (if fn 713 (if fn
714 (format "Debug on entry to function (default %s): " fn) 714 (format "Debug on entry to function (default %s): " fn)
715 "Debug on entry to function: ") 715 "Debug on entry to function: ")
716 obarray 716 obarray
717 #'(lambda (symbol) 717 #'(lambda (symbol)