Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 57959:47b64fe4daa8
(edebug-next-token-class): Allow all symbol-constituent characters
after dot, not only digits.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 05 Nov 2004 19:07:07 +0000 |
| parents | 397f87132b70 |
| children | f72b92ec53da cb7f41387eb3 |
comparison
equal
deleted
inserted
replaced
| 57958:117144126cd9 | 57959:47b64fe4daa8 |
|---|---|
| 712 ;; or symbol. | 712 ;; or symbol. |
| 713 (edebug-skip-whitespace) | 713 (edebug-skip-whitespace) |
| 714 (if (and (eq (following-char) ?.) | 714 (if (and (eq (following-char) ?.) |
| 715 (save-excursion | 715 (save-excursion |
| 716 (forward-char 1) | 716 (forward-char 1) |
| 717 (and (>= (following-char) ?0) | 717 (or (and (eq (aref edebug-read-syntax-table (following-char)) |
| 718 (<= (following-char) ?9)))) | 718 'symbol) |
| 719 (not (= (following-char) ?\;))) | |
| 720 (memq (following-char) '(?\, ?\.))))) | |
| 719 'symbol | 721 'symbol |
| 720 (aref edebug-read-syntax-table (following-char)))) | 722 (aref edebug-read-syntax-table (following-char)))) |
| 721 | 723 |
| 722 | 724 |
| 723 (defun edebug-skip-whitespace () | 725 (defun edebug-skip-whitespace () |