;;; Code:
;; This file is autoloaded from calc-ext.el.
-(require 'calc-ext)
+(require 'calc-ext)
(require 'calc-macs)
-(defun calc-Need-calc-store () nil)
-
-
;;; Memory commands.
(defvar calc-store-keep nil)
(defun calc-read-var-name (prompt &optional calc-store-opers)
(setq calc-given-value nil
calc-aborted-prefix nil)
- (let ((var (let ((minibuffer-completion-table obarray)
- (minibuffer-completion-predicate 'boundp)
- (minibuffer-completion-confirm t))
- (read-from-minibuffer prompt "var-" calc-var-name-map nil))))
+ (let ((var (concat
+ "var-"
+ (let ((minibuffer-completion-table
+ (mapcar (lambda (x) (substring x 4))
+ (all-completions "var-" obarray)))
+ (minibuffer-completion-predicate
+ (lambda (x) (boundp (intern (concat "var-" x)))))
+ (minibuffer-completion-confirm t))
+ (read-from-minibuffer prompt nil calc-var-name-map nil)))))
(setq calc-aborted-prefix "")
- (and (not (equal var ""))
- (not (equal var "var-"))
+ (and (not (equal var "var-"))
(if (string-match "\\`\\([-a-zA-Z0-9]+\\) *:?=" var)
(if (null calc-given-value-flag)
(error "Assignment is not allowed in this command")
(defun calcVar-digit ()
(interactive)
- (if (calc-minibuffer-contains "var-\\'")
+ (if (calc-minibuffer-contains "\\'")
(if (eq calc-store-opers 0)
(beep)
(insert "q")
(defun calcVar-oper ()
(interactive)
(if (and (eq calc-store-opers t)
- (calc-minibuffer-contains "var-\\'"))
+ (calc-minibuffer-contains "\\'"))
(progn
(erase-buffer)
(self-insert-and-exit))
(if var1
(let ((value (calc-var-value var1)))
(or value
- (error "No such variable: \"%s\"" (calc-var-name var)))
+ (error "No such variable: \"%s\"" (calc-var-name var1)))
(or var2 (setq var2 (calc-read-var-name
- (format "Copy variable: %s, to: " var1))))
+ (format "Copy variable: %s, to: "
+ (calc-var-name var1)))))
(if var2
(calc-store-value var2 value ""))))))
(setq calc-last-edited-variable var)
(calc-edit-mode (list 'calc-finish-stack-edit (list 'quote var))
t
- (concat "Editing " (calc-var-name var)))
+ (concat "Editing variable `" (calc-var-name var) "'. "))
(and value
(insert (math-format-nice-expr value (frame-width)) "\n")))))
(calc-show-edit-buffer))
(setq rp nil)))
(not rp)))))
(calc-unread-command ?\C-a)
- (setq decl (read-string (format "Declare: %s to be: " var)
+ (setq decl (read-string (format "Declare: %s to be: " (calc-var-name var))
(and rp
(math-format-flat-expr (nth 2 (car dp)) 0))))
(setq decl (and (string-match "[^ \t]" decl)
(calc-slow-wrapper
(calc-binary-op "sub" 'calcFunc-subscr arg)))
+(provide 'calc-store)
+
;;; arch-tag: 2fbfec82-a521-42ca-bcd8-4f254ae6313e
;;; calc-store.el ends here