bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

patch for dired-format-columns-of-files


From: Toru TSUNEYOSHI
Subject: patch for dired-format-columns-of-files
Date: Thu, 1 May 2008 02:50:53 +0900

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)





reply via email to

[Prev in Thread] Current Thread [Next in Thread]