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