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

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

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

revision 1.6 by pj, Sat Feb 16 09:42:53 2002 UTC revision 1.6.4.1 by miles, Fri Apr 4 06:20:20 2003 UTC
# Line 396  it defaults to `insert'." Line 396  it defaults to `insert'."
396          (if (and (listp current)          (if (and (listp current)
397                   (not (member where current)))                   (not (member where current)))
398              (setq current (append current (list where)))              (setq current (append current (list where)))
399            (setq current where))            (setq current (list where)))
400          (if (not (aref eshell-current-handles index))          (if (not (aref eshell-current-handles index))
401              (aset eshell-current-handles index (cons nil 1)))              (aset eshell-current-handles index (cons nil 1)))
402          (setcar (aref eshell-current-handles index) current)))))          (setcar (aref eshell-current-handles index) current)))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.4.1

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