From e4773f3943bfd08ad03ff075faf6d6d2e99edf4b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 25 Jul 1999 05:45:50 +0000 Subject: [PATCH] Delete compatibility code. (edebug-next-token-class): If . is followed by a digit, return `symbol' for the token class. --- lisp/emacs-lisp/edebug.el | 15 +++++++-------- 1 file 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 () -- 2.39.5