diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-16 03:55:11 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-16 03:55:11 +0000 |
| commit | 04587c6eb4e74308ca969a6a73b03275ccf24dba (patch) | |
| tree | b28b0d977ea525a3818666d7873f939aa4606009 /lisp/calc/calc-store.el | |
| parent | 7337012df41f5709c675bf9be62b2c7fa8dd245a (diff) | |
(calc-copy-special-constant): New function.
Diffstat (limited to 'lisp/calc/calc-store.el')
| -rw-r--r-- | lisp/calc/calc-store.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el index 966f9acbdd..fa61acb0f5 100644 --- a/lisp/calc/calc-store.el +++ b/lisp/calc/calc-store.el @@ -387,6 +387,26 @@ (interactive) (calc-recall (intern (format "var-q%c" last-command-char)))) +(defun calc-copy-special-constant (&optional sconst var) + (interactive) + (let ((sc '(("") + ("e" . (special-const (math-e))) + ("pi" . (special-const (math-pi))) + ("i" . (special-const (math-imaginary 1))) + ("phi" . (special-const (math-phi))) + ("gamma" . (special-const (math-gamma-const)))))) + (calc-wrapper + (or sconst (setq sconst (completing-read "Special constant: " sc nil t))) + (unless (string= sconst "") + (let ((value (cdr (assoc sconst sc)))) + (or var (setq var (calc-read-var-name + (format "Copy special constant %s, to: " + sconst)))) + (if var + (let ((msg (calc-store-value var value ""))) + (message (concat "Special constant \"%s\" copied to \"%s\"" msg) + sconst (calc-var-name var))))))))) + (defun calc-copy-variable (&optional var1 var2) (interactive) (calc-wrapper |