305 |
|
|
306 |
(when eshell-status-in-modeline |
(when eshell-status-in-modeline |
307 |
(make-local-variable 'eshell-command-running-string) |
(make-local-variable 'eshell-command-running-string) |
308 |
(let ((fmt (eshell-copy-list mode-line-format))) |
(let ((fmt (copy-sequence mode-line-format))) |
309 |
(make-local-variable 'mode-line-format) |
(make-local-variable 'mode-line-format) |
310 |
(setq mode-line-format fmt)) |
(setq mode-line-format fmt)) |
311 |
(let ((modeline (memq 'mode-line-modified mode-line-format))) |
(let ((modeline (memq 'mode-line-modified mode-line-format))) |
382 |
(set (make-local-variable 'eshell-last-output-end) (point-marker)) |
(set (make-local-variable 'eshell-last-output-end) (point-marker)) |
383 |
(set (make-local-variable 'eshell-last-output-block-begin) (point)) |
(set (make-local-variable 'eshell-last-output-block-begin) (point)) |
384 |
|
|
385 |
(let ((modules-list (eshell-copy-list eshell-modules-list))) |
(let ((modules-list (copy-sequence eshell-modules-list))) |
386 |
(make-local-variable 'eshell-modules-list) |
(make-local-variable 'eshell-modules-list) |
387 |
(setq eshell-modules-list modules-list)) |
(setq eshell-modules-list modules-list)) |
388 |
|
|