comparison lisp/calc/calc.el @ 103084:70bd50ad24da

(calc-mode): Replace `copy-list' with `copy-sequence'.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 27 Apr 2009 23:07:21 +0000
parents be74cb571117
children 671cf7805a1e
comparison
equal deleted inserted replaced
103083:dcf1f34f1713 103084:70bd50ad24da
1333 (require 'calc-menu) 1333 (require 'calc-menu)
1334 (run-mode-hooks 'calc-mode-hook) 1334 (run-mode-hooks 'calc-mode-hook)
1335 (calc-refresh t) 1335 (calc-refresh t)
1336 (calc-set-mode-line) 1336 (calc-set-mode-line)
1337 (calc-check-defines) 1337 (calc-check-defines)
1338 (if calc-buffer-list (setq calc-stack (copy-list calc-stack))) 1338 (if calc-buffer-list (setq calc-stack (copy-sequence calc-stack)))
1339 (add-to-list 'calc-buffer-list (current-buffer) t)) 1339 (add-to-list 'calc-buffer-list (current-buffer) t))
1340 1340
1341 (defvar calc-check-defines 'calc-check-defines) ; suitable for run-hooks 1341 (defvar calc-check-defines 'calc-check-defines) ; suitable for run-hooks
1342 (defun calc-check-defines () 1342 (defun calc-check-defines ()
1343 (if (symbol-plist 'calc-define) 1343 (if (symbol-plist 'calc-define)