comparison lisp/emacs-lisp/edebug.el @ 25056:d29c2ded5971

Delete compatibility code. (edebug-next-token-class): If . is followed by a digit, return `symbol' for the token class.

25055:a29c760f50ee

;;; Code:

(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

(defconst edebug-maintainer-address "[e-mail]")

(defun edebug-next-token-class ()
  ;; Move to the next token and return its class.  We only care about
  ;; lparen, rparen, dot, quote, backquote, comma, string, char, vector,
  ;; or symbol.
  (edebug-skip-whitespace)
  (aref edebug-read-syntax-table (following-char)))


(defun edebug-skip-whitespace ()
  ;; Leave point before the next token, skipping white space and comments.
  (skip-chars-forward " \t\r\n\f")

25056:d29c2ded5971

;;; Code:

(defconst edebug-version
  (concat "In Emacs version " emacs-version))

;;; Bug reporting

(defconst edebug-maintainer-address "[e-mail]")

(defun edebug-next-token-class ()
  ;; Move to the next token and return its class.  We only care about
  ;; lparen, rparen, dot, quote, backquote, comma, string, char, vector,
  ;; or symbol.
  (edebug-skip-whitespace)
  (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 ()
  ;; Leave point before the next token, skipping white space and comments.
  (skip-chars-forward " \t\r\n\f")