diff options
| author | Juri Linkov <juri@jurta.org> | 2004-11-05 19:07:07 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2004-11-05 19:07:07 +0000 |
| commit | 392cf16dd0ee9358f8af0cd0d8048b822456bbeb (patch) | |
| tree | 6fafe02cd26d8ac269b0fb6b6fa009deaef8d165 /lisp/emacs-lisp/edebug.el | |
| parent | ca53db337fe95e923eb0b030999d313e16b100a9 (diff) | |
| download | emacs-392cf16dd0ee9358f8af0cd0d8048b822456bbeb.tar.gz | |
(edebug-next-token-class): Allow all symbol-constituent characters
after dot, not only digits.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 9a7b9efc333..0a6e3fed349 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -714,8 +714,10 @@ already is one.)" (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)))) |