# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1045566010 0
# Node ID babed35678ca5453be917b4aca9b1d40f9ff6cd5
# Parent  e4b97a8e48e6eeebe4d0cc4d45c5509e4399d6b5
(calc-macro-edit-variable): Fix character constant.

diff -r e4b97a8e48e6 -r babed35678ca lisp/calc/calc-prog.el
--- a/lisp/calc/calc-prog.el	Tue Feb 18 10:58:50 2003 +0000
+++ b/lisp/calc/calc-prog.el	Tue Feb 18 11:00:10 2003 +0000
@@ -821,7 +821,7 @@
 (defun calc-macro-edit-variable (&optional no-cmd)
   (let ((str "") ch)
     (or no-cmd (insert (symbol-name key-symbol) "\n"))
-    (if (memq (MacEdit-peek-char) '(?\+ ?\- ?\* ?\/ ?\^ ?\|))
+    (if (memq (MacEdit-peek-char) '(?\+ ?\- ?\* ?\/ ?^ ?\|))
 	(setq str (char-to-string (MacEdit-read-char))))
     (if (and (setq ch (MacEdit-peek-char))
 	     (>= ch ?0) (<= ch ?9))