CVS update by youngs packages/xemacs-packages/edebug ...

[xemacs-cvs at xemacs.org]

  User: youngs  
  Date: 06/11/18 23:06:13

  Modified:    packages/xemacs-packages/edebug ChangeLog edebug.el
Log:
2006-11-19  Steve Youngs  <steve at sxemacs.org>

	* edebug.el (edebug-read-function): Add ?r to make edebug work
	with SXEmacs raw strings.

Revision  Changes    Path
1.27      +5 -0      XEmacs/packages/xemacs-packages/edebug/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edebug/ChangeLog,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -p -r1.26 -r1.27
--- ChangeLog	2004/07/05 06:28:29	1.26
+++ ChangeLog	2006/11/18 22:06:12	1.27
@@ -1,3 +1,8 @@
+2006-11-19  Steve Youngs  <steve at sxemacs.org>
+
+	* edebug.el (edebug-read-function): Add ?r to make edebug work
+	with SXEmacs raw strings.
+
 2004-07-05  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.21 released.



1.12      +2 -1      XEmacs/packages/xemacs-packages/edebug/edebug.el

Index: edebug.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edebug/edebug.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -p -r1.11 -r1.12
--- edebug.el	2004/07/02 16:29:38	1.11
+++ edebug.el	2006/11/18 22:06:12	1.12
@@ -912,8 +912,9 @@ It should never be negative.  This contr
 	    (if (featurep 'cl) 'function* 'function))
 	  (edebug-read-storing-offsets stream)))
 	;; XEmacs: Add #* for bit vectors
+	;; SXEmacs: Add #r for raw strings
 	((memq (char-after) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6
-			      ?7 ?8 ?9 ?0 ?*))
+			      ?7 ?8 ?9 ?0 ?* ?r))
 	 (backward-char 1)
 	 (edebug-original-read stream))
 	(t (edebug-syntax-error "Bad char after #"))))