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 | d74a60e101966370a9bb780f62ae16aeb580bee8 (patch) | |
| tree | 64d9d552e4736bfdfbb7d5216fc6c3be58fe869c | |
| parent | 17048a9d1578fb88d6a008d2cdc6f1bff25e9b46 (diff) | |
| download | emacs-d74a60e101966370a9bb780f62ae16aeb580bee8.tar.gz | |
(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)) |