From: Juri Linkov Date: Fri, 5 Nov 2004 19:07:07 +0000 (+0000) Subject: (edebug-next-token-class): Allow all symbol-constituent characters X-Git-Tag: ttn-vms-21-2-B4~4173 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=392cf16dd0ee9358f8af0cd0d8048b822456bbeb;p=emacs.git (edebug-next-token-class): Allow all symbol-constituent characters after dot, not only digits. --- 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))))