Mercurial > emacs
comparison lisp/eshell/em-dirs.el @ 46820:543b32b4673d
Added checks that distinguish between cygwin and windows in some
places.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Mon, 05 Aug 2002 20:09:16 +0000 |
| parents | 6303529069a9 |
| children | 6eb625bead4f |
comparison
equal
deleted
inserted
replaced
| 46819:acd6b7b35363 | 46820:543b32b4673d |
|---|---|
| 351 (defun eshell/cd (&rest args) ; all but first ignored | 351 (defun eshell/cd (&rest args) ; all but first ignored |
| 352 "Alias to extend the behavior of `cd'." | 352 "Alias to extend the behavior of `cd'." |
| 353 (setq args (eshell-flatten-list args)) | 353 (setq args (eshell-flatten-list args)) |
| 354 (let ((path (car args)) | 354 (let ((path (car args)) |
| 355 (subpath (car (cdr args))) | 355 (subpath (car (cdr args))) |
| 356 (case-fold-search (eshell-under-windows-p)) | 356 (case-fold-search (or (eshell-under-windows-p) |
| 357 (eshell-under-cygwin-p))) | |
| 357 handled) | 358 handled) |
| 358 (if (numberp path) | 359 (if (numberp path) |
| 359 (setq path (number-to-string path))) | 360 (setq path (number-to-string path))) |
| 360 (if (numberp subpath) | 361 (if (numberp subpath) |
| 361 (setq subpath (number-to-string subpath))) | 362 (setq subpath (number-to-string subpath))) |