(when eshell-status-in-modeline
(make-local-variable 'eshell-command-running-string)
- (let ((fmt (copy-list mode-line-format)))
+ (let ((fmt (eshell-copy-list mode-line-format)))
(make-local-variable 'mode-line-format)
(setq mode-line-format fmt))
(let ((modeline (memq 'mode-line-modified mode-line-format)))
(set (make-local-variable 'eshell-last-output-end) (point-marker))
(set (make-local-variable 'eshell-last-output-block-begin) (point))
- (let ((modules-list (copy-list eshell-modules-list)))
+ (let ((modules-list (eshell-copy-list eshell-modules-list)))
(make-local-variable 'eshell-modules-list)
(setq eshell-modules-list modules-list))