From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 7 Mar 2003 08:28:46 +0000 (+0000)
Subject: (dired-guess-shell-case-fold-search): New user option.
X-Git-Tag: ttn-vms-21-2-B4~10975
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82f648d385e4ea8cb7f63d8a2831c7cfe56bbd85;p=emacs.git

(dired-guess-shell-case-fold-search): New user option.
(dired-guess-default): Use it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89a6cab3eef..ad40c0e1123 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-07  Kevin Rodgers  <kevin.rodgers@ihs.com>
+
+	* dired-x.el (dired-guess-shell-case-fold-search): New user option.
+	(dired-guess-default): Use it.
+
 2003-03-07  Thien-Thi Nguyen  <ttn@gnu.org>
 
 	* progmodes/dcl-mode.el (dcl-font-lock-keywords): New var.
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index ddd0a289eeb..5c6df8f87eb 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -998,11 +998,15 @@ You can set this variable in your ~/.emacs.  For example, to add rules for
   :group 'dired-x
   :type '(alist :key-type regexp :value-type (repeat sexp)))
 
+(defvar dired-guess-shell-case-fold-search nil
+  "*If non-nil, `dired-guess-shell-alist-default' and
+`dired-guess-shell-alist-user' are matched case-insensitively.")
+
 (defun dired-guess-default (files)
   "Guess a shell commands for FILES.  Return command or list of commands.
 See `dired-guess-shell-alist-user'."
 
-  (let* ((case-fold-search nil) ; case-sensitive matching
+  (let* ((case-fold-search dired-guess-shell-case-fold-search)
          ;; Prepend the user's alist to the default alist.
          (alist (append dired-guess-shell-alist-user
                         dired-guess-shell-alist-default))