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))))) |