Mercurial > emacs
comparison lisp/eshell/em-hist.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 | f4d32be2d504 |
comparison
equal
deleted
inserted
replaced
46851:57dbd7f9adb9 | 46852:6eb625bead4f |
---|---|
803 (error "No history")) | 803 (error "No history")) |
804 (let* ((len (ring-length eshell-history-ring)) | 804 (let* ((len (ring-length eshell-history-ring)) |
805 (motion (if (> arg 0) 1 -1)) | 805 (motion (if (> arg 0) 1 -1)) |
806 (n (mod (- (or start (eshell-search-start arg)) motion) len)) | 806 (n (mod (- (or start (eshell-search-start arg)) motion) len)) |
807 (tried-each-ring-item nil) | 807 (tried-each-ring-item nil) |
808 (case-fold-search (or (eshell-under-windows-p) | 808 (case-fold-search (eshell-under-windows-p)) |
809 (eshell-under-cygwin-p))) | |
810 (prev nil)) | 809 (prev nil)) |
811 ;; Do the whole search as many times as the argument says. | 810 ;; Do the whole search as many times as the argument says. |
812 (while (and (/= arg 0) (not tried-each-ring-item)) | 811 (while (and (/= arg 0) (not tried-each-ring-item)) |
813 ;; Step once. | 812 ;; Step once. |
814 (setq prev n | 813 (setq prev n |