Mercurial > emacs
changeset 38730:098eb6e24910
(edebug-read-function): Fix handling of
#:, #x, #o, and similar constructs.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 08 Aug 2001 10:51:34 +0000 |
| parents | 7d62f0684e99 |
| children | 7eaa1dbf3c86 |
| files | lisp/emacs-lisp/edebug.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/edebug.el Tue Aug 07 15:22:40 2001 +0000 +++ b/lisp/emacs-lisp/edebug.el Wed Aug 08 10:51:34 2001 +0000 @@ -1,6 +1,6 @@ ;;; edebug.el --- a source-level debugger for Emacs Lisp -;; Copyright (C) 1988, 89, 90, 91, 92, 93, 94, 95, 97, 1999, 2000 +;; Copyright (C) 1988, 89, 90, 91, 92, 93, 94, 95, 97, 1999, 2000, 2001 ;; Free Software Foundation, Inc. ;; Author: Daniel LaLiberte <liberte@holonexus.org> @@ -909,10 +909,9 @@ (edebug-storing-offsets (point) (if (featurep 'cl) 'function* 'function)) (edebug-read-storing-offsets stream))) - ((memq (char-after) - ;; Other # read forms than these probably shouldn't be - ;; in source. - '(?: ?B ?O ?X ?b ?o ?x)) + ((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6 + ?7 ?8 ?9 ?0)) + (backward-char 1) (edebug-original-read stream)) (t (edebug-syntax-error "Bad char after #"))))