diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-09-19 23:44:57 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-09-19 23:44:57 -0400 |
| commit | e6f0a80dd2bf0ee1101d6e6be2afc93966950cd0 (patch) | |
| tree | e29868b589edbb8b71105a7f5f300790f1204da0 /lisp/calc/calc-store.el | |
| parent | 7a04bee953b9b74c5ef24691e32c6b6d55ae1e4b (diff) | |
| download | emacs-e6f0a80dd2bf0ee1101d6e6be2afc93966950cd0.tar.gz emacs-e6f0a80dd2bf0ee1101d6e6be2afc93966950cd0.tar.bz2 emacs-e6f0a80dd2bf0ee1101d6e6be2afc93966950cd0.zip | |
* lisp/calc/calc.el: Remove redundant autoload shape check.
(sel-mode): Don't defvar.
(calc-get-stack-element): Add `sel-mode' arg instead.
(calc-top, calc-top-list): Pass it this additional argument.
* lisp/calc/calc-store.el (calc-store-map):
* lisp/calc/calc-map.el (calc-apply, calc-reduce, calc-map)
(calc-map-equation, calc-outer-product, calc-inner-product):
* lisp/calc/calc-aent.el (calc-alg-entry): Don't bind sel-mode.
Diffstat (limited to 'lisp/calc/calc-store.el')
| -rw-r--r-- | lisp/calc/calc-store.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el index 80d355ed5fa..64df10a40ca 100644 --- a/lisp/calc/calc-store.el +++ b/lisp/calc/calc-store.el @@ -235,8 +235,7 @@ (defun calc-store-map (&optional oper var) (interactive) (calc-wrapper - (let* ((sel-mode nil) - (calc-dollar-values (mapcar 'calc-get-stack-element + (let* ((calc-dollar-values (mapcar #'calc-get-stack-element (nthcdr calc-stack-top calc-stack))) (calc-dollar-used 0) (oper (or oper (calc-get-operator "Store Mapping"))) |