mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(another-calc): Use mapc' rather than mapcar'.

Browse Source
This commit is contained in:
Juanma Barranquero 2007-09-26 00:06:32 +00:00
parent c740ee8b90
commit ab58914bb6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/calc/calc-misc.el
View File

@ -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))