[Elisp-code-dired] Dired 7.13 bug: dired-clean-directory fails in XEmacs 21.5

[Adrian Aichner]

Failure is:
Symbol's value as variable is void: backup-extract-version-start

This patch is one way to fix it:

2006-08-15  Adrian Aichner  <address@hidden>

        * dired.el (dired-collect-file-versions): XEmacs 21.5 makes use of
        backup-extract-version-start.
        * dired.el (dired-trample-file-versions): Ditto.

--- c:\Program Files\XEmacs\xemacs-packages\lisp\dired\dired.el.~1~     
2006-08-15 00:04:39.943875000 +0200
+++ c:\Program Files\XEmacs\xemacs-packages\lisp\dired\dired.el 2006-08-15 
00:04:35.772000000 +0200
@@ -3750,6 +3750,7 @@
        (let* ((base-versions
                (concat (file-name-nondirectory fn) ".~"))
               (bv-length (length base-versions))
+              (backup-extract-version-start (length base-versions))
               (possibilities (file-name-all-completions
                               base-versions
                               (file-name-directory fn))))
@@ -3769,6 +3770,7 @@
     (and (not (string-equal base fn))
         (setq base-version-list (assoc base alist))
         (setq bv-length (string-match "[0-9]" fn (length base)))
+        (setq backup-extract-version-start (string-match "[0-9]" fn (length 
base)))
         (not (memq (backup-extract-version fn) base-version-list))
         (progn (skip-chars-backward "^\n\r")
                (bolp)) ; make sure the preceding char isn't \r.



Emacs  : XEmacs 21.5  (beta27) "fiddleheads" (+CVS-20060812) [Lucid] 
(i586-pc-win32, Mule) of Sun Aug 13 2006 on TANG
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" ".svn/" "CM/" "CVS/"
                        ".o" ".obj" ".elc" "~" ".bin" ".lbin" ".dvi" ".class")
                       )
 dired-compression-method 'gzip
 dired-compression-method-alist '((gzip ".gz" ("gzip" "-9") ("gzip" "-d") "-f")
                                  (compress ".Z" ("compress" "-f")
                                   ("compress" "-d") "-f")
                                  (pack ".z" ("pack" "-f") ("unpack")))
 dired-copy-preserve-time t
 dired-dwim-target nil
 dired-failed-marker-shell ?!
 dired-filename-re-ext "\\..+\\'"
 dired-find-subdir nil
 dired-gnutar-program "tar"
 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/"
                         "CM/" ".svn/" "~" ".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 nil
 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."
 )
-- 
Adrian Aichner
 mailto:address@hidden
 http://www.xemacs.org/