# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1047025592 0
# Node ID 6a7769baf0784a0a5aef4e9da2f21c67355f7322
# Parent  8e17fbb2ac7751cd66792233f8942b52d4b10044
(dired-guess-shell-case-fold-search): New user option.
(dired-guess-default): Use it.

diff -r 8e17fbb2ac77 -r 6a7769baf078 lisp/dired-x.el
--- a/lisp/dired-x.el	Fri Mar 07 02:18:35 2003 +0000
+++ b/lisp/dired-x.el	Fri Mar 07 08:26:32 2003 +0000
@@ -998,11 +998,15 @@
   :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))