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

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

[Dan Jacobson]

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.
-- 
http://jidanni.org/ Taiwan(04)25854780

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

[Kevin Rodgers]

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>

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

[Dan Jacobson]

Kevin Rodgers posted an authoritative fix for the problem.  However
something spotted my eye, so I sent him some e-mail,

K> Dan Jacobson writes:
>> emacs-20?

K> Hell, I still use 19.34.

>> You mean your changes don't get into the official emacs?

K> That's up to the maintainers (RMS et al.)  I just read and post to
K> gnu.emacs.* for fun -- and to show you how easy it is to get the
K> behavior you claim you want if you just take a look at the source.

Source? Me? I'm too busy studying the Navaids
http://www2m.biglobe.ne.jp/~nagase/navaids/indexe.html 
however I hope RMS et al. saw your fix and incorporated it into
official emacs.  I almost thought you had fixed it for all time until
out of the corner of my eye I spotted the stale version numbers and
red flags went up in my mind that you were not changing the official
sources for all time but in fact were some kind of um, fringe benefit case. 
-- 
http://jidanni.org/ Taiwan(04)25854780