Mercurial > emacs
comparison lisp/eshell/em-dirs.el @ 46852:6eb625bead4f
Removed eshell-under-cygwin-p, and all uses of it.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Sat, 10 Aug 2002 00:18:18 +0000 |
| parents | 543b32b4673d |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 46851:57dbd7f9adb9 | 46852:6eb625bead4f |
|---|---|
| 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 (or (eshell-under-windows-p) | 356 (case-fold-search (eshell-under-windows-p)) |
| 357 (eshell-under-cygwin-p))) | |
| 358 handled) | 357 handled) |
| 359 (if (numberp path) | 358 (if (numberp path) |
| 360 (setq path (number-to-string path))) | 359 (setq path (number-to-string path))) |
| 361 (if (numberp subpath) | 360 (if (numberp subpath) |
| 362 (setq subpath (number-to-string subpath))) | 361 (setq subpath (number-to-string subpath))) |