[Elisp-code-dired] Dired 7.13 bug: Dired 7.13 bug: wrong-number-of-arguments error for extent-list in XEmacs 21.1.14

[Adrian Aichner]

Looks like the breakage is still with us.

See File at end.

Adrian

Emacs  : XEmacs 21.1 (patch 14) "Cuyahoga Valley" [Lucid] (i386-pc-win32) of 
Mon May 21 2001 on D5DC120J
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" "CM/" "CVS/" ".o"
                        ".elc" "~" ".bin" ".lbin" ".fasl" ".dvi" ".toc" ".log"
                        ".aux" ".a" ".ln" ".lof" ".blg" ".bbl" ".glo" ".idx"
                        ".lot" ".fmt" ".diff" ".oi" ".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" ".oi" ".diff" ".fmt" ".ln" ".a" ".fasl"
                         ".lbin" ".bin" ".elc" ".o" "CVS/" "CM/" "~" ".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."
 )

===File
~\el\Backtrace-21.1.14v-dired-7-13-wrong-number-of-arguments.txt===
Debugger entered--Lisp error: (wrong-number-of-arguments #<compiled-function 
(&optional buffer-or-string from to flags) "...(11)" [mapcar-extents identity 
nil buffer-or-string from to flags] 7 143676> 5)
  extent-list(nil 74 103 nil dired-file-name)
  dired-set-text-properties(74 103 dired-face-boring)
  dired-insert-set-properties(1 #<marker at 121060 in AichnerAd 0x1b35fe4>)
  dired-insert-directory("c:\\Users\\AichnerAd\\" "-al" nil t)
  dired-readin-insert("c:\\Users\\AichnerAd\\" nil)
  dired-readin("c:\\Users\\AichnerAd\\" #<buffer "AichnerAd"> nil)
  dired-internal-noselect("c:\\Users\\AichnerAd\\" nil)
  dired-noselect("~\\" nil)
  #<compiled-function (dirname &optional switches) "...(7)" [switches dirname 
switch-to-buffer dired-noselect] 4 ("c:\\Program 
Files\\XEmacs\\xemacs-packages\\lisp\\dired\\dired.elc" . 33956) 
(dired-read-dir-and-switches "")>("~\\" nil)
  call-interactively(dired)
============================================================

-- 
Adrian Aichner
 mailto:address@hidden
 http://www.xemacs.org/