Mercurial > emacs

comparison lisp/calc/calc-store.el @ 59211:999144478c9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-copy-variable): Fix mistyped variable name. Display variable name differently in message.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 30 Dec 2004 17:43:09 +0000
parents ce01a490300d
children eb45d1b6dbc3
comparison
equal deleted inserted replaced
59210:6e385b257cef 59211:999144478c9a
371 (calc-wrapper 371 (calc-wrapper
372 (or var1 (setq var1 (calc-read-var-name "Copy variable: "))) 372 (or var1 (setq var1 (calc-read-var-name "Copy variable: ")))
373 (if var1 373 (if var1
374 (let ((value (calc-var-value var1))) 374 (let ((value (calc-var-value var1)))
375 (or value 375 (or value
376 (error "No such variable: \"%s\"" (calc-var-name var))) 376 (error "No such variable: \"%s\"" (calc-var-name var1)))
377 (or var2 (setq var2 (calc-read-var-name 377 (or var2 (setq var2 (calc-read-var-name
378 (format "Copy variable: %s, to: " var1)))) 378 (format "Copy variable: %s, to: "
379 (calc-var-name var1)))))
379 (if var2 380 (if var2
380 (calc-store-value var2 value "")))))) 381 (calc-store-value var2 value ""))))))
381 382
382 (defvar calc-last-edited-variable nil) 383 (defvar calc-last-edited-variable nil)
383 (defun calc-edit-variable (&optional var) 384 (defun calc-edit-variable (&optional var)