Bug fix.
authoryamaoka <yamaoka>
Wed, 21 Oct 1998 02:46:39 +0000 (02:46 +0000)
committeryamaoka <yamaoka>
Wed, 21 Oct 1998 02:46:39 +0000 (02:46 +0000)
lisp/gnus-xmas.el

index d8106d1..41d5116 100644 (file)
@@ -486,11 +486,13 @@ call it with the value of the `gnus-data' text property."
       (let ((pad (abs pad-width)))
        (if (symbolp el)
            (if (< pad-width 0)
-               `(concat ,el (make-string
-                             (max 0 (- ,pad (string-width ,el))) ?\ ))
-             `(concat (make-string
-                       (max 0 (- ,pad (string-width ,el))) ?\ )
-                      ,el))
+               `(let ((val (format "%s" ,el)))
+                  (concat val (make-string
+                               (max 0 (- ,pad (string-width val))) ?\ )))
+             `(let ((val (format "%s" ,el)))
+                (concat (make-string
+                         (max 0 (- ,pad (string-width val))) ?\ )
+                        val)))
          (if (< pad-width 0)
              `(let ((val (eval ,el)))
                 (concat val (make-string