mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 23:40:24 -08:00
Code Issues Projects Releases Wiki Activity

Delete compatibility code.

Browse source 
(edebug-next-token-class): If . is followed by a digit,
return `symbol' for the token class.
This commit is contained in:
Karl Heuer 1999-07-25 05:45:50 +00:00
parent 694e6b248d
commit e4773f3943
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/edebug.el
View file

@ -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 ()