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
f4897e40
Commit
f4897e40
authored
Dec 26, 1996
by
Richard M. Stallman
Browse files
(edebug-read-symbol, edebug-read-string): Don't back up after reading.
(edebug-read-sexp): Likewise.
parent
8172cd86
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
21 deletions
+6
-21
lisp/emacs-lisp/edebug.el
lisp/emacs-lisp/edebug.el
+6
-21
No files found.
lisp/emacs-lisp/edebug.el
View file @
f4897e40
...
...
@@ -8,7 +8,7 @@
;; LCD Archive Entry:
;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
;; |A source level debugger for Emacs Lisp.
;; |$Date: 1996/1
0
/0
2
21:4
1:56
$|$Revision: 3.1
1
$|~/modes/edebug.el|
;; |$Date: 1996/1
1
/0
9
21:4
8:07
$|$Revision: 3.1
2
$|~/modes/edebug.el|
;; This file is part of GNU Emacs.
...
...
@@ -85,7 +85,7 @@
;;; Code:
(
defconst
edebug-version
(
let
((
raw-version
"$Revision: 3.1
1
$"
))
(
let
((
raw-version
"$Revision: 3.1
2
$"
))
(
substring
raw-version
(
string-match
"[0-9.]*"
raw-version
)
(
match-end
0
))))
...
...
@@ -752,15 +752,8 @@ or if an error occurs, leave point after it with mark at the original point."
(
cond
;; read goes one too far if a (possibly quoted) string or symbol
;; is immediately followed by non-whitespace.
((
eq
class
'symbol
)
(
prog1
(
edebug-original-read
(
current-buffer
))
(
if
(
not
(
eq
(
aref
edebug-read-syntax-table
(
preceding-char
))
'symbol
))
(
forward-char
-1
))))
((
eq
class
'string
)
(
prog1
(
edebug-original-read
(
current-buffer
))
(
if
(
/=
(
preceding-char
)
?\"
)
(
forward-char
-1
))))
((
eq
class
'symbol
)
(
edebug-original-read
(
current-buffer
)))
((
eq
class
'string
)
(
edebug-original-read
(
current-buffer
)))
((
eq
class
'quote
)
(
forward-char
1
)
(
list
'quote
(
edebug-read-sexp
)))
((
eq
class
'backquote
)
...
...
@@ -872,18 +865,10 @@ or if an error occurs, leave point after it with mark at the original point."
)))
(
defun
edebug-read-symbol
(
stream
)
(
prog1
(
edebug-original-read
stream
)
;; loses for escaped chars
(
if
(
not
(
eq
(
aref
edebug-read-syntax-table
(
preceding-char
))
'symbol
))
(
forward-char
-1
))))
(
edebug-original-read
stream
))
(
defun
edebug-read-string
(
stream
)
(
prog1
(
edebug-original-read
stream
)
(
if
(
/=
(
preceding-char
)
?\"
)
(
forward-char
-1
))))
(
edebug-original-read
stream
))
(
defun
edebug-read-quote
(
stream
)
;; Turn 'thing into (quote thing)
...
...
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