patch for dired-format-columns-of-files

[Toru TSUNEYOSHI]

I found a bug when I do (dired-do-delete).
I will send the patch for correcting it.

--- lisp/dired.el.orig 2008-03-17 01:27:10.000000000 +0900
+++ lisp/dired.el 2008-05-01 02:33:21.297046400 +0900
@@ -2639,9 +2639,9 @@
 (defun dired-format-columns-of-files (files)
   ;; Files should be in forward order for this loop.
   ;; i.e., (car files) = first file in buffer.
   ;; Returns the number of lines used.
-  (let* ((maxlen (+ 2 (apply 'max (mapcar 'length files))))
+  (let* ((maxlen (+ 2 (apply 'max (mapcar 'string-width files))))
   (width (- (window-width (selected-window)) 2))
   (columns (max 1 (/ width maxlen)))
   (nfiles (length files))
   (rows (+ (/ nfiles columns)