# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175884265 0
# Node ID d89bf6db73a1f570024a1d1021193254cf92a639
# Parent  516f142e73538114b5f44591c6b900bdcbadfbe0
(dired-guess-shell-case-fold-search): Delete var.
(dired-guess-default): Respect case.

diff -r 516f142e7353 -r d89bf6db73a1 lisp/dired-x.el
--- a/lisp/dired-x.el	Fri Apr 06 18:30:41 2007 +0000
+++ b/lisp/dired-x.el	Fri Apr 06 18:31:05 2007 +0000
@@ -45,12 +45,8 @@
 ;; (add-hook 'dired-load-hook
 ;;           (function (lambda ()
 ;;                       (load "dired-x")
-;;                       ;; Set global variables here.  For example:
+;;                       ;; Set variables here.  For example:
 ;;                       ;; (setq dired-guess-shell-gnutar "gtar")
-;;                       )))
-;; (add-hook 'dired-mode-hook
-;;           (function (lambda ()
-;;                       ;; Set buffer-local variables here.  For example:
 ;;                       ;; (dired-omit-mode 1)
 ;;                       )))
 ;;
@@ -1130,17 +1126,11 @@
   :group 'dired-x
   :type '(alist :key-type regexp :value-type (repeat sexp)))
 
-(defcustom dired-guess-shell-case-fold-search t
-  "If non-nil, `dired-guess-shell-alist-default' and
-`dired-guess-shell-alist-user' are matched case-insensitively."
-  :group 'dired-x
-  :type 'boolean)
-
 (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 dired-guess-shell-case-fold-search)
+  (let* ((case-fold-search t)
          ;; Prepend the user's alist to the default alist.
          (alist (append dired-guess-shell-alist-user
                         dired-guess-shell-alist-default))