/[emacs]/emacs/lisp/calc/calc-prog.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-prog.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by lektu, Tue Feb 4 12:47:10 2003 UTC revision 1.8 by lektu, Tue Feb 18 11:00:10 2003 UTC
# Line 821  Line 821 
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))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26