diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-03-07 08:26:32 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-03-07 08:26:32 +0000 |
| commit | b760390f16e86ac122e28267a7305962e2673849 (patch) | |
| tree | cf0b94e30c9e8f2b9e4f080a799bbcdd91e47152 /lisp/dired-x.el | |
| parent | 50b61791479bdc0010929fb448482b1a01bd0dae (diff) | |
| download | emacs-b760390f16e86ac122e28267a7305962e2673849.tar.gz | |
(dired-guess-shell-case-fold-search): New user option.
(dired-guess-default): Use it.
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 6 |
1 files changed, 5 insertions, 1 deletions
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)) |