diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-07-25 05:45:50 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-07-25 05:45:50 +0000 |
| commit | e4773f3943bfd08ad03ff075faf6d6d2e99edf4b (patch) | |
| tree | e632c0630a34714807ec4fc5ed3fdb90b1a12b54 /lisp/emacs-lisp/edebug.el | |
| parent | 694e6b248dedecb0e1806bd600f4b1bbc50dabc8 (diff) | |
| download | emacs-e4773f3943bfd08ad03ff075faf6d6d2e99edf4b.tar.gz emacs-e4773f3943bfd08ad03ff075faf6d6d2e99edf4b.tar.bz2 emacs-e4773f3943bfd08ad03ff075faf6d6d2e99edf4b.zip | |
Delete compatibility code.
(edebug-next-token-class): If . is followed by a digit,
return `symbol' for the token class.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 81ab472ad9d..517862358ce 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -56,13 +56,6 @@ (defconst edebug-version (concat "In Emacs version " emacs-version)) - -(require 'backquote) - -;; Emacs 18 doesn't have defalias. -(eval-and-compile - (or (fboundp 'defalias) (fset 'defalias 'fset))) - ;;; Bug reporting @@ -753,7 +746,13 @@ or if an error occurs, leave point after it with mark at the original point." ;; lparen, rparen, dot, quote, backquote, comma, string, char, vector, ;; or symbol. (edebug-skip-whitespace) - (aref edebug-read-syntax-table (following-char))) + (if (and (eq (following-char) ?.) + (save-excursion + (forward-char 1) + (and (>= (following-char) ?0) + (<= (following-char) ?9)))) + 'symbol + (aref edebug-read-syntax-table (following-char)))) (defun edebug-skip-whitespace () |