mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(calc-macro-edit-variable): Fix character constant.

Browse Source
This commit is contained in:
Juanma Barranquero 2003-02-18 11:00:10 +00:00
parent 9b80830ca2
commit 4a72380522
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/calc/calc-prog.el
View File

@ -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))