Mercurial > emacs

changeset 77627:6f7d1cf40bad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert 2007-04-06 change.
author Romain Francoise <romain@orebokech.com>
date Tue, 01 May 2007 09:33:51 +0000
parents 29aedab251b7
children 880f0202a5b6 6b8593097d76
files lisp/ChangeLog lisp/dired-x.el
diffstat 2 files changed, 16 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue May 01 08:17:19 2007 +0000
+++ b/lisp/ChangeLog	Tue May 01 09:33:51 2007 +0000
@@ -1,3 +1,7 @@
+2007-05-01  Romain Francoise  <romain@orebokech.com>
+
+	* dired-x.el: Revert 2007-04-06 change.
+
 2007-04-30  Nick Roberts  <nickrob@snap.net.nz>
 
 	* progmodes/gud.el (gud-menu-map): Pdb can't handle SIGINT so
--- a/lisp/dired-x.el	Tue May 01 08:17:19 2007 +0000
+++ b/lisp/dired-x.el	Tue May 01 09:33:51 2007 +0000
@@ -45,8 +45,12 @@
 ;; (add-hook 'dired-load-hook
 ;;           (function (lambda ()
 ;;                       (load "dired-x")
-;;                       ;; Set variables here.  For example:
+;;                       ;; Set global 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)
 ;;                       )))
 ;;
@@ -1123,11 +1127,17 @@
   :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 t)
+  (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))