diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-26 20:46:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-26 20:46:51 +0000 |
| commit | b04fbea50c364ec98704ddf5467ec77c6c1d1663 (patch) | |
| tree | 16f5c40c1b595f83f2d449e5c10d352b1c9be82c /lisp | |
| parent | 8d5b5b59de89b3043bdb9990315df919fb2bf624 (diff) | |
| download | emacs-b04fbea50c364ec98704ddf5467ec77c6c1d1663.tar.gz | |
(edebug-read-symbol, edebug-read-string): Don't back up after reading.
(edebug-read-sexp): Likewise.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 76a3443b065..f6831f6f29d 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -8,7 +8,7 @@ ;; LCD Archive Entry: ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu ;; |A source level debugger for Emacs Lisp. -;; |$Date: 1996/10/02 21:41:56 $|$Revision: 3.11 $|~/modes/edebug.el| +;; |$Date: 1996/11/09 21:48:07 $|$Revision: 3.12 $|~/modes/edebug.el| ;; This file is part of GNU Emacs. @@ -85,7 +85,7 @@ ;;; Code: (defconst edebug-version - (let ((raw-version "$Revision: 3.11 $")) + (let ((raw-version "$Revision: 3.12 $")) (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) |