[Emacs-diffs] Changes to emacs/lisp/eshell/esh-mode.el

[Richard M. Stallman]

Index: emacs/lisp/eshell/esh-mode.el
diff -c emacs/lisp/eshell/esh-mode.el:1.15 emacs/lisp/eshell/esh-mode.el:1.16
*** emacs/lisp/eshell/esh-mode.el:1.15  Sat Feb 16 04:43:17 2002
--- emacs/lisp/eshell/esh-mode.el       Mon Jun 10 04:32:57 2002
***************
*** 305,311 ****
  
    (when eshell-status-in-modeline
      (make-local-variable 'eshell-command-running-string)
!     (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)))
--- 305,311 ----
  
    (when eshell-status-in-modeline
      (make-local-variable 'eshell-command-running-string)
!     (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,388 ****
    (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)))
      (make-local-variable 'eshell-modules-list)
      (setq eshell-modules-list modules-list))
  
--- 382,388 ----
    (set (make-local-variable 'eshell-last-output-end) (point-marker))
    (set (make-local-variable 'eshell-last-output-block-begin) (point))
  
!   (let ((modules-list (copy-sequence eshell-modules-list)))
      (make-local-variable 'eshell-modules-list)
      (setq eshell-modules-list modules-list))