diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-29 06:32:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-29 06:32:44 +0000 |
| commit | e76b547b88446ac5581122f3b2a681cc62fab3ba (patch) | |
| tree | b5e94380a3f1df66120a9f3967cc85fe90c4e2cc /lisp/emacs-lisp | |
| parent | 88039caa2b0561b8bee4d0381604a9c78a1dffa5 (diff) | |
| download | emacs-e76b547b88446ac5581122f3b2a681cc62fab3ba.tar.gz emacs-e76b547b88446ac5581122f3b2a681cc62fab3ba.tar.bz2 emacs-e76b547b88446ac5581122f3b2a681cc62fab3ba.zip | |
(edebug-signal): Avoid infinite recursion.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 04e5e63b3ee..9839a38940d 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -9,7 +9,7 @@ ;; LCD Archive Entry: ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu ;; |A source level debugger for Emacs Lisp. -;; |$Date: 1997/04/14 20:57:39 $|$Revision: 3.15 $|~/modes/edebug.el| +;; |$Date: 1997/05/05 01:03:53 $|$Revision: 3.16 $|~/modes/edebug.el| ;; This file is part of GNU Emacs. @@ -86,7 +86,7 @@ ;;; Code: (defconst edebug-version - (let ((raw-version "$Revision: 3.15 $")) + (let ((raw-version "$Revision: 3.16 $")) (substring raw-version (string-match "[0-9.]*" raw-version) (match-end 0)))) @@ -2260,7 +2260,9 @@ error is signaled again." (edebug 'error (cons edebug-signal-name edebug-signal-data))) ;; If we reach here without another non-local exit, then send signal again. ;; i.e. the signal is not continuable, yet. - (signal edebug-signal-name edebug-signal-data)) + ;; Avoid infinite recursion. + (let ((signal-hook-function nil)) + (signal edebug-signal-name edebug-signal-data))) ;;; Entering Edebug |