Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/edebug.el Fri Nov 05 19:06:24 2004 +0000 +++ b/lisp/emacs-lisp/edebug.el Fri Nov 05 19:07:07 2004 +0000 @@ -714,8 +714,10 @@ (if (and (eq (following-char) ?.) (save-excursion (forward-char 1) - (and (>= (following-char) ?0) - (<= (following-char) ?9)))) + (or (and (eq (aref edebug-read-syntax-table (following-char)) + 'symbol) + (not (= (following-char) ?\;))) + (memq (following-char) '(?\, ?\.))))) 'symbol (aref edebug-read-syntax-table (following-char))))