Mercurial > emacs

changeset 25056:d29c2ded5971

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Delete compatibility code. (edebug-next-token-class): If . is followed by a digit, return `symbol' for the token class.
author Karl Heuer <kwzh@gnu.org>
date Sun, 25 Jul 1999 05:45:50 +0000
parents a29c760f50ee
children 6019ba9c1a95
files lisp/emacs-lisp/edebug.el
diffstat 1 files changed, 7 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/edebug.el	Sun Jul 25 05:44:56 1999 +0000
+++ b/lisp/emacs-lisp/edebug.el	Sun Jul 25 05:45:50 1999 +0000
@@ -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 @@
   ;; 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 ()