From 392cf16dd0ee9358f8af0cd0d8048b822456bbeb Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 5 Nov 2004 19:07:07 +0000 Subject: (edebug-next-token-class): Allow all symbol-constituent characters after dot, not only digits. --- lisp/emacs-lisp/edebug.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 9a7b9efc33..0a6e3fed34 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)))) -- cgit v1.2.3