diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:06:32 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:06:32 +0000 |
| commit | ab58914bb6b45edabc4bd1da9a01014ca49ea70a (patch) | |
| tree | 35209386415a8520b6cb4c5bf7346790deae72cc | |
| parent | c740ee8b90df32d7cb9f7d5c5a3149a0e82e3032 (diff) | |
| download | emacs-ab58914bb6b45edabc4bd1da9a01014ca49ea70a.tar.gz emacs-ab58914bb6b45edabc4bd1da9a01014ca49ea70a.tar.bz2 emacs-ab58914bb6b45edabc4bd1da9a01014ca49ea70a.zip | |
(another-calc): Use `mapc' rather than `mapcar'.
| -rw-r--r-- | lisp/calc/calc-misc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index 10222fc1625..b660e046a21 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -145,9 +145,9 @@ Calc user interface as before (either C-x * C or C-x * K; initially C-x * C). "Create another, independent Calculator buffer." (interactive) (if (eq major-mode 'calc-mode) - (mapcar (function - (lambda (v) - (set-default v (symbol-value v)))) calc-local-var-list)) + (mapc (function + (lambda (v) + (set-default v (symbol-value v)))) calc-local-var-list)) (set-buffer (generate-new-buffer "*Calculator*")) (pop-to-buffer (current-buffer)) (calc-mode)) |