Commit a5c41f64 authored by John Wiegley's avatar John Wiegley
Browse files

Added checks that distinguish between cygwin and windows in some

parent 851988cd
2002-08-05 John Wiegley <>
* pcomplete.el (pcomplete-entries): Don't set `above-cutoff' to a
value unless pcomplete-cycle-cutoff-length is non-nil.
2002-04-09 John Paul Wallington <>
* esh-util.el (eshell-under-cygwin-p): New function.
* em-cmpl.el (eshell-cmpl-ignore-case): Use it.
* em-dirs.el (eshell/cd): Ditto.
* em-glob.el (eshell-glob-case-insensitive): Ditto.
* em-hist.el (eshell-previous-matching-input-string-position): Ditto.
* esh-ext.el (eshell-binary-suffixes): Ditto.
2002-08-05 Richard M. Stallman <>
* international/mule-cmds.el (select-safe-coding-system): Check for
......@@ -142,7 +142,8 @@ to writing a completion function."
:type (get 'pcomplete-dir-ignore 'custom-type)
:group 'eshell-cmpl)
(defcustom eshell-cmpl-ignore-case (eshell-under-windows-p)
(defcustom eshell-cmpl-ignore-case (or (eshell-under-windows-p)
(documentation-property 'pcomplete-ignore-case
:type (get 'pcomplete-ignore-case 'custom-type)
......@@ -353,7 +353,8 @@ in the minibuffer:
(setq args (eshell-flatten-list args))
(let ((path (car args))
(subpath (car (cdr args)))
(case-fold-search (eshell-under-windows-p))
(case-fold-search (or (eshell-under-windows-p)
(if (numberp path)
(setq path (number-to-string path)))
......@@ -76,7 +76,8 @@ by zsh for filename generation."
:type 'boolean
:group 'eshell-glob)
(defcustom eshell-glob-case-insensitive (eshell-under-windows-p)
(defcustom eshell-glob-case-insensitive (or (eshell-under-windows-p)
"*If non-nil, glob pattern matching will ignore case."
:type 'boolean
:group 'eshell-glob)
......@@ -805,7 +805,8 @@ Moves relative to START, or `eshell-history-index'."
(motion (if (> arg 0) 1 -1))
(n (mod (- (or start (eshell-search-start arg)) motion) len))
(tried-each-ring-item nil)
(case-fold-search (eshell-under-windows-p))
(case-fold-search (or (eshell-under-windows-p)
(prev nil))
;; Do the whole search as many times as the argument says.
(while (and (/= arg 0) (not tried-each-ring-item))
......@@ -146,6 +146,10 @@ function `string-to-number'."
"Return non-nil if we are running under MS-DOS/Windows."
(memq system-type '(ms-dos windows-nt)))
(defsubst eshell-under-cygwin-p ()
"Return non-nil if we are running under Cygwin."
(eq system-type 'cygwin32))
(defmacro eshell-condition-case (tag form &rest handlers)
"Like `condition-case', but only if `eshell-pass-through-errors' is nil."
(if eshell-handle-errors
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment