Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a5c41f64
Commit
a5c41f64
authored
Aug 05, 2002
by
John Wiegley
Browse files
Added checks that distinguish between cygwin and windows in some
places.
parent
851988cd
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
26 additions
and
4 deletions
+26
-4
lisp/ChangeLog
lisp/ChangeLog
+14
-0
lisp/eshell/em-cmpl.el
lisp/eshell/em-cmpl.el
+2
-1
lisp/eshell/em-dirs.el
lisp/eshell/em-dirs.el
+2
-1
lisp/eshell/em-glob.el
lisp/eshell/em-glob.el
+2
-1
lisp/eshell/em-hist.el
lisp/eshell/em-hist.el
+2
-1
lisp/eshell/esh-util.el
lisp/eshell/esh-util.el
+4
-0
No files found.
lisp/ChangeLog
View file @
a5c41f64
2002-08-05 John Wiegley <johnw@gnu.org>
* 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 <jpw@shootybangbang.com>
* 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 <rms@gnu.org>
* international/mule-cmds.el (select-safe-coding-system): Check for
...
...
lisp/eshell/em-cmpl.el
View file @
a5c41f64
...
...
@@ -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
)
(
eshell-under-cygwin-p
))
(
documentation-property
'pcomplete-ignore-case
'variable-documentation
)
:type
(
get
'pcomplete-ignore-case
'custom-type
)
...
...
lisp/eshell/em-dirs.el
View file @
a5c41f64
...
...
@@ -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
)
(
eshell-under-cygwin-p
)))
handled
)
(
if
(
numberp
path
)
(
setq
path
(
number-to-string
path
)))
...
...
lisp/eshell/em-glob.el
View file @
a5c41f64
...
...
@@ -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
)
(
eshell-under-cygwin-p
))
"*If non-nil, glob pattern matching will ignore case."
:type
'boolean
:group
'eshell-glob
)
...
...
lisp/eshell/em-hist.el
View file @
a5c41f64
...
...
@@ -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
)
(
eshell-under-cygwin-p
)))
(
prev
nil
))
;; Do the whole search as many times as the argument says.
(
while
(
and
(
/=
arg
0
)
(
not
tried-each-ring-item
))
...
...
lisp/eshell/esh-util.el
View file @
a5c41f64
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment