mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(edebug-read-and-maybe-wrap-form): Protect

Browse Source 
against pathological recursive calls.
This commit is contained in:
Richard M. Stallman 1997-04-14 20:57:39 +00:00
parent 0a1a8ee95b
commit 88b52bf54e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/emacs-lisp/edebug.el
View File

@ -9,7 +9,7 @@
;; LCD Archive Entry:
;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
;; |A source level debugger for Emacs Lisp.
;; |$Date: 1996/12/26 20:46:51 $|$Revision: 3.13 $|~/modes/edebug.el|
;; |$Date: 1997/04/12 08:30:46 $|$Revision: 3.14 $|~/modes/edebug.el|
;; This file is part of GNU Emacs.
@ -86,7 +86,7 @@
;;; Code:
(defconst edebug-version
(let ((raw-version "$Revision: 3.13 $"))
(let ((raw-version "$Revision: 3.14 $"))
(substring raw-version (string-match "[0-9.]*" raw-version)
(match-end 0))))
@ -1132,8 +1132,10 @@ This controls how we read comma constructs.")
;; Here we just catch any no-match not caught below and signal an error.
;; Run the setup hook.
(run-hooks 'edebug-setup-hook)
(setq edebug-setup-hook nil)
;; If it gets an error, make it nil.
(let ((temp-hook edebug-setup-hook))
(setq edebug-setup-hook nil)
(run-hooks 'temp-hook))
(let (result
edebug-top-window-data