Mercurial > emacs
comparison lisp/calc/calc-misc.el @ 84888:23f1c8af4174
(another-calc): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:06:32 +0000 |
| parents | b98604865ea0 |
| children | 327601aefd65 bdb3fe0ba9fa |
comparison
equal
deleted
inserted
replaced
| 84887:786766804015 | 84888:23f1c8af4174 |
|---|---|
| 143 | 143 |
| 144 (defun another-calc () | 144 (defun another-calc () |
| 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)) |
| 154 | 154 |
| 155 (defun calc-info () | 155 (defun calc-info () |