From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.bugs Subject: Re: toggle case sensitivity of dired-guess-shell-alist-* Date: Wed, 05 Mar 2003 12:01:22 -0700 Sender: bug-gnu-emacs-bounces+gnu-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: <3E664982.1080701@ihs.com> References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1046891524 4572 80.91.224.249 (5 Mar 2003 19:12:04 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 5 Mar 2003 19:12:04 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+gnu-bug-gnu-emacs=m.gmane.org@gnu.org Wed Mar 05 20:12:01 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18qeJ7-0001BC-00 for ; Wed, 05 Mar 2003 20:12:01 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18qeHS-0004gO-06 for gnu-bug-gnu-emacs@m.gmane.org; Wed, 05 Mar 2003 14:10:18 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 18qeFQ-0003Ku-00 for bug-gnu-emacs@prep.ai.mit.edu; Wed, 05 Mar 2003 14:08:12 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 18qeE6-0002gI-00 for bug-gnu-emacs@prep.ai.mit.edu; Wed, 05 Mar 2003 14:06:51 -0500 Original-Received: from horus.isnic.is ([193.4.58.12]) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 18qe97-00015P-00 for bug-gnu-emacs@prep.ai.mit.edu; Wed, 05 Mar 2003 14:01:41 -0500 Original-Received: from mail.fu-berlin.de (root@mail.fu-berlin.de [160.45.11.165]) by horus.isnic.is (8.12.8/8.12.8/isnic) with ESMTP id h25J1M4f036916 for ; Wed, 5 Mar 2003 19:01:23 GMT (envelope-from kevin.rodgers@ihs.com) Original-Received: by mail.fu-berlin.de (Smail3.2.0.98) from Curry.ZEDAT.FU-Berlin.DE (160.45.10.36) with esmtp id ; Wed, 5 Mar 2003 20:01:22 +0100 (MET) Original-Received: by Curry.ZEDAT.FU-Berlin.DE (Smail3.2.0.98) from news.fu-berlin.de with bsmtp id ; Wed, 5 Mar 2003 20:01:20 +0100 (MET) Original-To: gnu-emacs-bug@moderators.isc.org Original-Path: 170.207.51.80!not-for-mail Original-Newsgroups: gnu.emacs.bug Original-Lines: 45 X-Orig-NNTP-Posting-Host: 170.207.51.80 X-Orig-X-Trace: fu-berlin.de 1046890880 62264059 170.207.51.80 (16 [82742]) User-Agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 X-Accept-Language: en-us X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: bug-gnu-emacs-bounces+gnu-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:4568 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:4568 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)) -- Kevin Rodgers