# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 916061531 0
# Node ID 094765645c5249c64cd9fdb5275bf6fe055abe30
# Parent  9a52ffb7bfb2f4289529fdd6419c046aaa8fde05
(list-faces-display): Improve the formatting
by computing the maximum length required for any face-name.

diff -r 9a52ffb7bfb2 -r 094765645c52 lisp/faces.el
--- a/lisp/faces.el	Mon Jan 11 12:59:36 1999 +0000
+++ b/lisp/faces.el	Mon Jan 11 13:32:11 1999 +0000
@@ -1124,7 +1124,11 @@
   (let ((faces (sort (face-list) (function string-lessp)))
 	(face nil)
 	(frame (selected-frame))
-	disp-frame window)
+	disp-frame window
+        (face-name-max-length
+         (car (sort (mapcar (function string-width)
+			    (mapcar (function symbol-name) (face-list)))
+                    (function >)))))
     (with-output-to-temp-buffer "*Faces*"
       (save-excursion
 	(set-buffer standard-output)
@@ -1132,7 +1136,10 @@
 	(while faces
 	  (setq face (car faces))
 	  (setq faces (cdr faces))
-	  (insert (format "%25s " (symbol-name face)))
+	  (insert (format 
+                   (format "%%-%ds "
+                           face-name-max-length)
+                   (symbol-name face)))
 	  (let ((beg (point)))
 	    (insert list-faces-sample-text)
 	    (insert "\n")