From 2ab91f4ea5f69ab553173611000780e568547170 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 21 Oct 1998 02:46:39 +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 d8106d1..41d5116 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -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 -- 1.7.10.4