diff options
| author | Miles Bader <miles@gnu.org> | 2004-11-12 02:53:04 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2004-11-12 02:53:04 +0000 |
| commit | 8b7e837d9c3266e775142a4865845b3d2a8b60aa (patch) | |
| tree | d1468612ab319b665728b9ebf94dbc0c0d4c20fc /lisp/emacs-lisp/edebug.el | |
| parent | d1a3e560ff62e047d9fa8e8b3b1bc1e56e104c26 (diff) | |
| parent | e22c7647c7ff33c846132f3d2877ac436b8b47e6 (diff) | |
| download | emacs-8b7e837d9c3266e775142a4865845b3d2a8b60aa.tar.gz emacs-8b7e837d9c3266e775142a4865845b3d2a8b60aa.tar.bz2 emacs-8b7e837d9c3266e775142a4865845b3d2a8b60aa.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-70
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-669
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-678
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-679
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-680
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-688
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-689
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-690
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-691
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-69
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-70
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-71
Update from CVS
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)))) |