[Emacs-diffs] Changes to emacs/lisp/calc/calc-prog.el

[Juanma Barranquero]

Index: emacs/lisp/calc/calc-prog.el
diff -c emacs/lisp/calc/calc-prog.el:1.7 emacs/lisp/calc/calc-prog.el:1.8
*** emacs/lisp/calc/calc-prog.el:1.7    Tue Feb  4 07:47:10 2003
--- emacs/lisp/calc/calc-prog.el        Tue Feb 18 06:00:10 2003
***************
*** 821,827 ****
  (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) '(?\+ ?\- ?\* ?\/ ?\^ ?\|))
        (setq str (char-to-string (MacEdit-read-char))))
      (if (and (setq ch (MacEdit-peek-char))
             (>= ch ?0) (<= ch ?9))
--- 821,827 ----
  (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) '(?\+ ?\- ?\* ?\/ ?^ ?\|))
        (setq str (char-to-string (MacEdit-read-char))))
      (if (and (setq ch (MacEdit-peek-char))
             (>= ch ?0) (<= ch ?9))