From 057b57f6f9710e7e2a09dcb768f0e069bef16fc0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 8 Aug 2001 10:51:56 +0000 Subject: [PATCH] (edebug-read-function): Fix handling of #:, #x, #o, and similar constructs. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/edebug.el | 9 ++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d8d66ce469a..dd16b459da7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-08-08 Gerd Moellmann + + * emacs-lisp/edebug.el (edebug-read-function): Fix handling of + #:, #x, #o, and similar constructs. + 2001-08-07 Gerd Moellmann * vc.el (vc-transfer-file): Fix malformed autoload cookie. diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 60bfa9952d6..70f76e96f32 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -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 @@ -909,10 +909,9 @@ This controls how we read comma constructs.") (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 #")))) -- 2.39.2