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  <adrian at xemacs.org>

	* 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:adrian at xemacs.org
 http://www.xemacs.org/