mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(eshell-mode, eshell-mode): Use copy-sequence.

Browse Source
This commit is contained in:
Richard M. Stallman 2002-06-10 08:32:57 +00:00
parent 655e9ea980
commit 48e889be9a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/eshell/esh-mode.el
View File

@ -305,7 +305,7 @@ This is used by `eshell-watch-for-password-prompt'."
(when eshell-status-in-modeline
(make-local-variable 'eshell-command-running-string)
(let ((fmt (eshell-copy-list mode-line-format)))
(let ((fmt (copy-sequence mode-line-format)))
(make-local-variable 'mode-line-format)
(setq mode-line-format fmt))
(let ((modeline (memq 'mode-line-modified mode-line-format)))
@ -382,7 +382,7 @@ This is used by `eshell-watch-for-password-prompt'."
(set (make-local-variable 'eshell-last-output-end) (point-marker))
(set (make-local-variable 'eshell-last-output-block-begin) (point))
(let ((modules-list (eshell-copy-list eshell-modules-list)))
(let ((modules-list (copy-sequence eshell-modules-list)))
(make-local-variable 'eshell-modules-list)
(setq eshell-modules-list modules-list))