diff options
| author | Juanma Barranquero | 2007-09-26 00:06:32 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-26 00:06:32 +0000 |
| commit | ab58914bb6b45edabc4bd1da9a01014ca49ea70a (patch) | |
| tree | 35209386415a8520b6cb4c5bf7346790deae72cc | |
| parent | c740ee8b90df32d7cb9f7d5c5a3149a0e82e3032 (diff) | |
| download | emacs-ab58914bb6b45edabc4bd1da9a01014ca49ea70a.tar.gz 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). | |||
| 145 | "Create another, independent Calculator buffer." | 145 | "Create another, independent Calculator buffer." |
| 146 | (interactive) | 146 | (interactive) |
| 147 | (if (eq major-mode 'calc-mode) | 147 | (if (eq major-mode 'calc-mode) |
| 148 | (mapcar (function | 148 | (mapc (function |
| 149 | (lambda (v) | 149 | (lambda (v) |
| 150 | (set-default v (symbol-value v)))) calc-local-var-list)) | 150 | (set-default v (symbol-value v)))) calc-local-var-list)) |
| 151 | (set-buffer (generate-new-buffer "*Calculator*")) | 151 | (set-buffer (generate-new-buffer "*Calculator*")) |
| 152 | (pop-to-buffer (current-buffer)) | 152 | (pop-to-buffer (current-buffer)) |
| 153 | (calc-mode)) | 153 | (calc-mode)) |