[Elisp-code-dired] Dired 7.13 bug: regexp-quote missing?

[Harnisch M.]

Hi dired-folks,

Under Win32, `dired-do-rename-regexp' strips all backslashes from my
path-names. I think that in `dired-mark-read-regexp', the path
returned by `dired-dwim-target-directory' should be
`regexp-quote'd. See attached patch (which might not at all be
appropriate but illustrates my point).

Best regards,
Marcus

--- e:\XEmacs\xemacs-packages\lisp\dired\dired-rgxp.el~ 2005-07-29 
12:55:40.478623000 +0200
+++ e:\XEmacs\xemacs-packages\lisp\dired\dired-rgxp.el  2005-09-09 
13:28:15.953289200 +0200
@@ -89,7 +89,7 @@
         (newname
          (read-string
           (concat (if whole-path "Path " "") operation " " regexp " to: ")
-          (and (not whole-path) (dired-dwim-target-directory)))))
+          (and (not whole-path) (regexp-quote 
(dired-dwim-target-directory))))))
     (list regexp newname arg whole-path)))
 
 ;;; Marking file names matching a regexp.


Emacs  : XEmacs 21.4 (patch 13) "Rational FORTRAN" [Lucid] (i586-pc-win32) of 
Sun May 25 2003 on TSUNAMI
Package: Dired

current state:
==============
(setq
 dired-version "7.13"
 dired-backup-if-overwrite nil
 dired-chown-program "/etc/chown"
 dired-cleanup-alist '(("tex" ".toc" ".log" ".aux" ".dvi")
                       ("latex" ".toc" ".log" ".aux" ".idx" ".lof" ".lot" 
".glo" ".dvi")
                       ("bibtex" ".blg" ".bbl")
                       ("texinfo" ".cp" ".cps" ".fn" ".fns" ".ky" ".kys" ".pg" 
".pgs" ".tp"
                        ".tps" ".vr" ".vrs")
                       ("patch" ".rej" ".orig") ("backups" "~")
                       ("completion-ignored-extensions" "CVS/" ".o" ".obj" 
".elc" "~" ".bin"
                        ".lbin" ".dvi" ".class")
                       )
 dired-compression-method 'gzip
 dired-compression-method-alist '((gzip ".gz" ("gzip") ("gzip" "-d") "-f")
                                  (compress ".Z" ("compress" "-f") ("compress" 
"-d") "-f")
                                  (pack ".z" ("pack" "-f") ("unpack"))
                                  (compact ".C" ("compact") ("uncompact"))
                                  (bzip2 ".bz2" ("bzip2") ("bunzip2") "-f"))
 dired-copy-preserve-time t
 dired-dwim-target nil
 dired-failed-marker-shell ?!
 dired-filename-re-ext "\\..+\\'"
 dired-find-subdir nil
 dired-gnutar-program nil
 dired-keep-marker-compress t
 dired-keep-marker-copy ?C
 dired-keep-marker-hardlink ?H
 dired-keep-marker-kill ?K
 dired-keep-marker-rename t
 dired-keep-marker-symlink ?S
 dired-keep-marker-uucode ?U
 dired-kept-versions 2
 dired-listing-switches "-al"
 dired-local-variables-file ".dired"
 dired-ls-F-marks-symlinks nil
 dired-ls-program "ls"
 dired-mail-reader 'vm
 dired-mode-line-modified "-%s%s%s-"
 dired-no-confirm nil
 dired-omit-extensions '(".class" ".lbin" ".bin" ".elc" ".obj" ".o" "CVS/" "~" 
".orig" ".rej"
                         ".vrs" ".vr" ".tps" ".tp" ".pgs" ".pg" ".kys" ".ky" 
".fns" ".fn" ".cps"
                         ".cp" ".bbl" ".blg" ".glo" ".lot" ".lof" ".idx" ".dvi" 
".aux" ".log"
                         ".toc")
 dired-omit-files nil
 dired-omit-regexps '("\\`#" "\\`\\.")
 dired-refresh-automatically t
 dired-show-ls-switches nil
 dired-trivial-filenames "\\`\\.\\.?\\'\\|\\`#"
 dired-unshar-program nil
 dired-use-file-transformers t
 dired-verify-modtimes t
 reporter-version "Your version of reporter is obsolete.  Please upgrade."
 )