From a4ed593072cb6945430bb44d80985f24008ec585 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 21 Oct 1998 02:49:22 +0000 Subject: [PATCH] Bug fix. --- lisp/gnus-xmas.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index 8724a98..08f9c44 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -551,11 +551,13 @@ the resulting string may be narrower than END-COLUMN. (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 -- 1.7.10.4