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