From 82f648d385e4ea8cb7f63d8a2831c7cfe56bbd85 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 7 Mar 2003 08:28:46 +0000 Subject: [PATCH] (dired-guess-shell-case-fold-search): New user option. (dired-guess-default): Use it. --- lisp/ChangeLog | 5 +++++ lisp/dired-x.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 89a6cab3eef..ad40c0e1123 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-03-07 Kevin Rodgers + + * dired-x.el (dired-guess-shell-case-fold-search): New user option. + (dired-guess-default): Use it. + 2003-03-07 Thien-Thi Nguyen * progmodes/dcl-mode.el (dcl-font-lock-keywords): New var. 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)) -- 2.39.2