Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
88b52bf5
Commit
88b52bf5
authored
Apr 14, 1997
by
Richard M. Stallman
Browse files
(edebug-read-and-maybe-wrap-form): Protect
against pathological recursive calls.
parent
0a1a8ee9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
lisp/emacs-lisp/edebug.el
lisp/emacs-lisp/edebug.el
+6
-4
No files found.
lisp/emacs-lisp/edebug.el
View file @
88b52bf5
...
...
@@ -9,7 +9,7 @@
;; LCD Archive Entry:
;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
;; |A source level debugger for Emacs Lisp.
;; |$Date: 199
6/12/26 2
0:46
:51
$|$Revision: 3.1
3
$|~/modes/edebug.el|
;; |$Date: 199
7/04/12 08:3
0:46 $|$Revision: 3.1
4
$|~/modes/edebug.el|
;; This file is part of GNU Emacs.
...
...
@@ -86,7 +86,7 @@
;;; Code:
(
defconst
edebug-version
(
let
((
raw-version
"$Revision: 3.1
3
$"
))
(
let
((
raw-version
"$Revision: 3.1
4
$"
))
(
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment