Mercurial > emacs
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.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sun, 25 Jul 1999 05:45:50 +0000 |
parents | 73346cd4a77e |
children | edf16534a337 |
comparison
equal
deleted
inserted
replaced
25055:a29c760f50ee | 25056:d29c2ded5971 |
---|---|
54 | 54 |
55 ;;; Code: | 55 ;;; Code: |
56 | 56 |
57 (defconst edebug-version | 57 (defconst edebug-version |
58 (concat "In Emacs version " emacs-version)) | 58 (concat "In Emacs version " emacs-version)) |
59 | |
60 (require 'backquote) | |
61 | |
62 ;; Emacs 18 doesn't have defalias. | |
63 (eval-and-compile | |
64 (or (fboundp 'defalias) (fset 'defalias 'fset))) | |
65 | |
66 | 59 |
67 ;;; Bug reporting | 60 ;;; Bug reporting |
68 | 61 |
69 (defconst edebug-maintainer-address "bug-gnu-emacs@gnu.org") | 62 (defconst edebug-maintainer-address "bug-gnu-emacs@gnu.org") |
70 | 63 |
751 (defun edebug-next-token-class () | 744 (defun edebug-next-token-class () |
752 ;; Move to the next token and return its class. We only care about | 745 ;; Move to the next token and return its class. We only care about |
753 ;; lparen, rparen, dot, quote, backquote, comma, string, char, vector, | 746 ;; lparen, rparen, dot, quote, backquote, comma, string, char, vector, |
754 ;; or symbol. | 747 ;; or symbol. |
755 (edebug-skip-whitespace) | 748 (edebug-skip-whitespace) |
756 (aref edebug-read-syntax-table (following-char))) | 749 (if (and (eq (following-char) ?.) |
750 (save-excursion | |
751 (forward-char 1) | |
752 (and (>= (following-char) ?0) | |
753 (<= (following-char) ?9)))) | |
754 'symbol | |
755 (aref edebug-read-syntax-table (following-char)))) | |
757 | 756 |
758 | 757 |
759 (defun edebug-skip-whitespace () | 758 (defun edebug-skip-whitespace () |
760 ;; Leave point before the next token, skipping white space and comments. | 759 ;; Leave point before the next token, skipping white space and comments. |
761 (skip-chars-forward " \t\r\n\f") | 760 (skip-chars-forward " \t\r\n\f") |