(calc-mode): Replace `copy-list' with `copy-sequence'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 646bb06fed2e160ba05477d3b510a01a70ebd557..a428a13de4a28009d3b9d3b28a5ad04bf8cf8aec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-27  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc.el (calc-mode): Replace `copy-list' with `copy-sequence'.
+
 2009-04-26  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc/calc.el (calc-set-mode-line): Check to make sure that the

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 00a33f59374928379ead862ff1bf65c95cc3cf26..78513c891f6fbc55654946871c35b91f5b88c729 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1335,7 +1335,7 @@ Notations:  3.14e6     3.14 * 10^6
   (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