# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1240873641 0
# Node ID 70bd50ad24daa1307a323b88ed90e5cb6efa857c
# Parent  dcf1f34f1713f0937c26bc1b9e90a7994509a882
(calc-mode): Replace `copy-list' with `copy-sequence'.

diff -r dcf1f34f1713 -r 70bd50ad24da lisp/calc/calc.el
--- a/lisp/calc/calc.el	Mon Apr 27 22:27:55 2009 +0000
+++ b/lisp/calc/calc.el	Mon Apr 27 23:07:21 2009 +0000
@@ -1335,7 +1335,7 @@
   (calc-refresh t)
   (calc-set-mode-line)
   (calc-check-defines)
-  (if calc-buffer-list (setq calc-stack (copy-list calc-stack)))
+  (if calc-buffer-list (setq calc-stack (copy-sequence calc-stack)))
   (add-to-list 'calc-buffer-list (current-buffer) t))
 
 (defvar calc-check-defines 'calc-check-defines)  ; suitable for run-hooks