Mercurial > emacs

comparison lisp/emacs-lisp/edebug.el @ 91239:2fcaae6177a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author Miles Bader <miles@gnu.org>
date Sun, 16 Dec 2007 05:08:49 +0000
parents a0e466c4d599 e50a2e215441
children 606f2d163a64
comparison
equal deleted inserted replaced
91238:5cf14a2107b5 91239:2fcaae6177a5
3293 ;; Set the edebug mode to MODE. 3293 ;; Set the edebug mode to MODE.
3294 ;; Display SHORTMSG, or MSG if not within edebug. 3294 ;; Display SHORTMSG, or MSG if not within edebug.
3295 (if (eq (1+ edebug-recursion-depth) (recursion-depth)) 3295 (if (eq (1+ edebug-recursion-depth) (recursion-depth))
3296 (progn 3296 (progn
3297 (setq edebug-execution-mode mode) 3297 (setq edebug-execution-mode mode)
3298 (message shortmsg) 3298 (message "%s" shortmsg)
3299 ;; Continue execution 3299 ;; Continue execution
3300 (exit-recursive-edit)) 3300 (exit-recursive-edit))
3301 ;; This is not terribly useful!! 3301 ;; This is not terribly useful!!
3302 (setq edebug-next-execution-mode mode) 3302 (setq edebug-next-execution-mode mode)
3303 (message msg))) 3303 (message "%s" msg)))
3304 3304
3305 3305
3306 (defalias 'edebug-step-through-mode 'edebug-step-mode) 3306 (defalias 'edebug-step-through-mode 'edebug-step-mode)
3307 3307
3308 (defun edebug-step-mode () 3308 (defun edebug-step-mode ()