diff options
author | Romain Francoise <romain@orebokech.com> | 2007-05-01 09:33:51 +0000 |
---|---|---|
committer | Romain Francoise <romain@orebokech.com> | 2007-05-01 09:33:51 +0000 |
commit | d7af463c596fbad9d3939b9831ed4ba125299800 (patch) | |
tree | 7acdea5e53e50852f9ba527981b426e134136c84 /lisp/dired-x.el | |
parent | 0f6da68b858c1f568a5648de96948740c22e63b4 (diff) | |
download | emacs-d7af463c596fbad9d3939b9831ed4ba125299800.tar.gz |
Revert 2007-04-06 change.
Diffstat (limited to 'lisp/dired-x.el')
-rw-r--r-- | lisp/dired-x.el | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index eecb1dbb709..75b6456a5cf 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -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 @@ 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))) +(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)) |