998 |
:group 'dired-x |
:group 'dired-x |
999 |
:type '(alist :key-type regexp :value-type (repeat sexp))) |
:type '(alist :key-type regexp :value-type (repeat sexp))) |
1000 |
|
|
1001 |
|
(defvar dired-guess-shell-case-fold-search nil |
1002 |
|
"*If non-nil, `dired-guess-shell-alist-default' and |
1003 |
|
`dired-guess-shell-alist-user' are matched case-insensitively.") |
1004 |
|
|
1005 |
(defun dired-guess-default (files) |
(defun dired-guess-default (files) |
1006 |
"Guess a shell commands for FILES. Return command or list of commands. |
"Guess a shell commands for FILES. Return command or list of commands. |
1007 |
See `dired-guess-shell-alist-user'." |
See `dired-guess-shell-alist-user'." |
1008 |
|
|
1009 |
(let* ((case-fold-search nil) ; case-sensitive matching |
(let* ((case-fold-search dired-guess-shell-case-fold-search) |
1010 |
;; Prepend the user's alist to the default alist. |
;; Prepend the user's alist to the default alist. |
1011 |
(alist (append dired-guess-shell-alist-user |
(alist (append dired-guess-shell-alist-user |
1012 |
dired-guess-shell-alist-default)) |
dired-guess-shell-alist-default)) |