bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: toggle case sensitivity of dired-guess-shell-alist-*


From: Kevin Rodgers
Subject: Re: toggle case sensitivity of dired-guess-shell-alist-*
Date: Wed, 05 Mar 2003 12:01:22 -0700
User-agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2

Dan Jacobson wrote:

Dired-x knows to use unzip on .zip files, but not .ZIP files.  Why
isn't there a switch to turn off case sensitivity for
dired-guess-shell-alist-default etc., with default being 'insensitive.

Now there is:

*** emacs-20.7/lisp/dired-x.el.orig     Wed Aug 26 14:35:26 1998
--- emacs-20.7/lisp/dired-x.el  Wed Mar  5 11:58:40 2003
***************
*** 1038,1049 ****
                          \"BAR-COMMAND-2\")))\)
  ")

  (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
           ;; Prepend the user's alist to the default alist.
           (alist (append dired-guess-shell-alist-user
                          dired-guess-shell-alist-default))
--- 1038,1052 ----
                          \"BAR-COMMAND-2\")))\)
  ")

+ (defvar dired-guess-shell-case-fold-search nil
+ "*If non-nil, `dired-guess-shell-alist-default' and `dired-guess-shell-alist-default' 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 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))

--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>





reply via email to

[Prev in Thread] Current Thread [Next in Thread]