# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 854696896 0
# Node ID 156fd377c7d0aeb32afd4747d57e016e52b87522
# Parent  65952d6205d62af2f0fcd217b26ab62c3ddfec1a
(edmacro-parse-keys): Don't treat C-. or C-? as ASCII control char.

diff -r 65952d6205d6 -r 156fd377c7d0 lisp/edmacro.el
--- a/lisp/edmacro.el	Fri Jan 31 06:17:06 1997 +0000
+++ b/lisp/edmacro.el	Fri Jan 31 07:48:16 1997 +0000
@@ -693,7 +693,10 @@
 			(error "%s must prefix a single character, not %s"
 			       (substring orig-word 0 prefix) word))
 		       ((and (/= (logand bits ?\C-\^@) 0) (stringp word)
-			     (string-match "[@-_.a-z?]" word))
+			     ;; We used to accept . and ? here,
+			     ;; but . is simply wrong,
+			     ;; and C-? is not used (we use DEL instead).
+			     (string-match "[@-_a-z]" word))
 			(setq key (list (+ bits (- ?\C-\^@)
 					   (if (equal word "?") 127
 					     (logand (aref word 0) 31))))))