Dired 7.13 bug: dired-clean-directory fails in XEmacs 21.5
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(a)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＠xemacs.org
http://www.xemacs.org/