emacs-devel
[Top][All Lists]
Advanced

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

Re: dired cannot access file names with a quote


From: Stefan Monnier
Subject: Re: dired cannot access file names with a quote
Date: Sat, 23 Feb 2008 19:26:15 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux)

> I think the fix is to quote ' as well in shell-quote-wildcard-pattern.
> Could someone on this list double-check?

I haven't had time to check if that makes sense, but if it makes sense,
then " should probably be added as well.


        Stefan


> *** emacs/lisp/files.el.~1.896.2.37.~ 2008-01-29 13:34:43.000000000 -0500
> --- emacs/lisp/files.el       2008-02-23 17:25:50.000000000 -0500
> ***************
> *** 4774,4780 ****
  
>   PATTERN is assumed to represent a file-name wildcard suitable for the
>   underlying filesystem.  For Unix and GNU/Linux, the characters from the
> ! set [ \\t\\n;<>&|()#$] are quoted with a backslash; for DOS/Windows, all
>   the parts of the pattern which don't include wildcard characters are
>   quoted with double quotes.
>   Existing quote characters in PATTERN are left alone, so you can pass
> --- 4774,4780 ----
  
>   PATTERN is assumed to represent a file-name wildcard suitable for the
>   underlying filesystem.  For Unix and GNU/Linux, the characters from the
> ! set [ \\t\\n;<>&|()#$'] are quoted with a backslash; for DOS/Windows, all
>   the parts of the pattern which don't include wildcard characters are
>   quoted with double quotes.
>   Existing quote characters in PATTERN are left alone, so you can pass
> ***************
> *** 4806,4812 ****
>         (concat result (substring pattern beg) "\""))))
>        (t
>         (let ((beg 0))
> !     (while (string-match "[ \t\n;<>&|()#$]" pattern beg)
>         (setq pattern
>               (concat (substring pattern 0 (match-beginning 0))
>                       "\\"
> --- 4806,4812 ----
>         (concat result (substring pattern beg) "\""))))
>        (t
>         (let ((beg 0))
> !     (while (string-match "[ \t\n;<>&|()#$']" pattern beg)
>         (setq pattern
>               (concat (substring pattern 0 (match-beginning 0))
>                       "\\"





reply via email to

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