Mercurial > emacs
diff lisp/calc/calc-prog.el @ 49841:babed35678ca
(calc-macro-edit-variable): Fix character constant.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 18 Feb 2003 11:00:10 +0000 |
parents | 0d8b17d428b5 |
children | 695cf19ef79e |
line wrap: on
line diff
--- 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))