Mercurial > emacs

diff lisp/emacs-lisp/edebug.el @ 57959:47b64fe4daa8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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))))