821 |
(defun calc-macro-edit-variable (&optional no-cmd) |
(defun calc-macro-edit-variable (&optional no-cmd) |
822 |
(let ((str "") ch) |
(let ((str "") ch) |
823 |
(or no-cmd (insert (symbol-name key-symbol) "\n")) |
(or no-cmd (insert (symbol-name key-symbol) "\n")) |
824 |
(if (memq (MacEdit-peek-char) '(?\+ ?\- ?\* ?\/ ?\^ ?\|)) |
(if (memq (MacEdit-peek-char) '(?\+ ?\- ?\* ?\/ ?^ ?\|)) |
825 |
(setq str (char-to-string (MacEdit-read-char)))) |
(setq str (char-to-string (MacEdit-read-char)))) |
826 |
(if (and (setq ch (MacEdit-peek-char)) |
(if (and (setq ch (MacEdit-peek-char)) |
827 |
(>= ch ?0) (<= ch ?9)) |
(>= ch ?0) (<= ch ?9)) |