Mercurial > emacs
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 |