comparison lisp/eshell/em-hist.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 5f44c387c856
children 6eb625bead4f
comparison
equal deleted inserted replaced
46819:acd6b7b35363 46820:543b32b4673d
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 (eshell-under-windows-p)) 808 (case-fold-search (or (eshell-under-windows-p)
809 (eshell-under-cygwin-p)))
809 (prev nil)) 810 (prev nil))
810 ;; Do the whole search as many times as the argument says. 811 ;; Do the whole search as many times as the argument says.
811 (while (and (/= arg 0) (not tried-each-ring-item)) 812 (while (and (/= arg 0) (not tried-each-ring-item))
812 ;; Step once. 813 ;; Step once.
813 (setq prev n 814 (setq prev n