diff options
| author | Ken Brown <kbrown@cornell.edu> | 2016-11-13 22:00:24 -0500 |
|---|---|---|
| committer | Ken Brown <kbrown@cornell.edu> | 2016-11-13 22:01:59 -0500 |
| commit | cbed42838e44e54460a27e643858d34b53f74c99 (patch) | |
| tree | 83eaaa497588ce29091755fe07b689d7420792ca /lisp/emacs-lisp | |
| parent | 181bd848eb9662759f076b31a32f6588e9eb58b4 (diff) | |
| download | emacs-cbed42838e44e54460a27e643858d34b53f74c99.tar.gz emacs-cbed42838e44e54460a27e643858d34b53f74c99.tar.bz2 emacs-cbed42838e44e54460a27e643858d34b53f74c99.zip | |
Use the new 'file-name-case-insensitive-p' function
* lisp/international/mule.el (auto-coding-alist-lookup):
* lisp/files.el (file-truename):
(abbreviate-file-name, set-auto-mode, file-relative-name):
* package.el (package-untar-buffer): Use
'file-name-case-insensitive-p' instead of 'system-type' to test
case-insensitivity.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index f669c31e791..ef129e998c2 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -792,7 +792,7 @@ untar into a directory named DIR; otherwise, signal an error." (tar-mode) ;; Make sure everything extracts into DIR. (let ((regexp (concat "\\`" (regexp-quote (expand-file-name dir)) "/")) - (case-fold-search (memq system-type '(windows-nt ms-dos cygwin)))) + (case-fold-search (file-name-case-insensitive-p dir))) (dolist (tar-data tar-parse-info) (let ((name (expand-file-name (tar-header-name tar-data)))) (or (string-match regexp name) |