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

[Michael Sperber]

Adrian Aichner <address@hidden> writes:

> Looks like the breakage is still with us.
>
> See File at end. [...]
>
> ~\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)
> [...]

Oops, I missed one.  Patch attached; it will be in the next release.
Thanks for checking!

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla

Index: dired-xemacs.el
===================================================================
RCS file: /cvsroot/elisp-code/elisp-code/dired/dired-xemacs.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -c -r1.29 -r1.30
*** dired-xemacs.el     9 Apr 2005 14:21:03 -0000       1.29
--- dired-xemacs.el     16 Apr 2005 14:36:44 -0000      1.30
***************
*** 488,494 ****
  
  (defun dired-set-text-properties (start end &optional face)
    (let ((extent
!        (let ((extents (extent-list nil start end nil 'dired-file-name)))
           (if extents
               (car extents)
             (let ((extent (make-extent start end)))
--- 488,494 ----
  
  (defun dired-set-text-properties (start end &optional face)
    (let ((extent
!        (let ((extents (dired-filename-extents start end)))
           (if extents
               (car extents)
             (let ((extent (make-extent start end)))