Mercurial > emacs
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) |