diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-18 11:00:10 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-18 11:00:10 +0000 |
| commit | 4a7238052293cf71167302a05412ada77712164d (patch) | |
| tree | 52b840ab93fe8c7dfcc5439def37fe7cf56188b4 /lisp/calc/calc-prog.el | |
| parent | 9b80830ca255c76ec250f4baf0c5cc9af4fb6659 (diff) | |
| download | emacs-4a7238052293cf71167302a05412ada77712164d.tar.gz | |
(calc-macro-edit-variable): Fix character constant.
Diffstat (limited to 'lisp/calc/calc-prog.el')
| -rw-r--r-- | lisp/calc/calc-prog.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index 3ea68584b4b..84bcbdd7a8b 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -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)) |