mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(dired-guess-shell-case-fold-search): New user option.

Browse Source 
(dired-guess-default): Use it.
This commit is contained in:
Juanma Barranquero 2003-03-07 08:28:46 +00:00
parent b6871cc7dd
commit 82f648d385
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2003-03-07 Kevin Rodgers <kevin.rodgers@ihs.com>
* dired-x.el (dired-guess-shell-case-fold-search): New user option.
(dired-guess-default): Use it.
2003-03-07 Thien-Thi Nguyen <ttn@gnu.org>
* progmodes/dcl-mode.el (dcl-font-lock-keywords): New var.

6
lisp/dired-x.el
View File

@ -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))