Mercurial > emacs
changeset 50048:6a7769baf078
(dired-guess-shell-case-fold-search): New user option.
(dired-guess-default): Use it.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 07 Mar 2003 08:26:32 +0000 |
| parents | 8e17fbb2ac77 |
| children | 61bf252f9392 |
| files | lisp/dired-x.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))