/[emacs]/emacs/lisp/eshell/esh-mode.el
ViewVC logotype

Diff of /emacs/lisp/eshell/esh-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by pj, Sat Feb 16 09:43:17 2002 UTC revision 1.16 by rms, Mon Jun 10 08:32:57 2002 UTC
# Line 305  This is used by `eshell-watch-for-passwo Line 305  This is used by `eshell-watch-for-passwo
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)))
# Line 382  This is used by `eshell-watch-for-passwo Line 382  This is used by `eshell-watch-for-passwo
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    

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26