diff options
| author | Richard M. Stallman | 2002-06-10 08:32:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-06-10 08:32:57 +0000 |
| commit | 48e889be9af0f7ad425237758b5beaa7c8747bf8 (patch) | |
| tree | 9f1d42408f23ab5c9d070e0711d2fb980a8ff368 | |
| parent | 655e9ea9808931c783db44fdcac990144d4ae22d (diff) | |
| download | emacs-48e889be9af0f7ad425237758b5beaa7c8747bf8.tar.gz emacs-48e889be9af0f7ad425237758b5beaa7c8747bf8.zip | |
(eshell-mode, eshell-mode): Use copy-sequence.
| -rw-r--r-- | lisp/eshell/esh-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index 4e031b0e0b8..d4df95ea0f7 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el | |||
| @@ -305,7 +305,7 @@ This is used by `eshell-watch-for-password-prompt'." | |||
| 305 | 305 | ||
| 306 | (when eshell-status-in-modeline | 306 | (when eshell-status-in-modeline |
| 307 | (make-local-variable 'eshell-command-running-string) | 307 | (make-local-variable 'eshell-command-running-string) |
| 308 | (let ((fmt (eshell-copy-list mode-line-format))) | 308 | (let ((fmt (copy-sequence mode-line-format))) |
| 309 | (make-local-variable 'mode-line-format) | 309 | (make-local-variable 'mode-line-format) |
| 310 | (setq mode-line-format fmt)) | 310 | (setq mode-line-format fmt)) |
| 311 | (let ((modeline (memq 'mode-line-modified mode-line-format))) | 311 | (let ((modeline (memq 'mode-line-modified mode-line-format))) |
| @@ -382,7 +382,7 @@ This is used by `eshell-watch-for-password-prompt'." | |||
| 382 | (set (make-local-variable 'eshell-last-output-end) (point-marker)) | 382 | (set (make-local-variable 'eshell-last-output-end) (point-marker)) |
| 383 | (set (make-local-variable 'eshell-last-output-block-begin) (point)) | 383 | (set (make-local-variable 'eshell-last-output-block-begin) (point)) |
| 384 | 384 | ||
| 385 | (let ((modules-list (eshell-copy-list eshell-modules-list))) | 385 | (let ((modules-list (copy-sequence eshell-modules-list))) |
| 386 | (make-local-variable 'eshell-modules-list) | 386 | (make-local-variable 'eshell-modules-list) |
| 387 | (setq eshell-modules-list modules-list)) | 387 | (setq eshell-modules-list modules-list)) |
| 388 | 388 | ||