*** empty log message ***

[gnu-emacs] / lisp / time-stamp.el

diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index 5ac4d49f2621c743c04e6dc5ce99a31a508d604d..7a04c72d07409c865c14757d4078ecd815b29d26 100644 (file)
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -457,7 +457,7 @@ Optionally use FORMAT."
                                  ?\0))
                 (or (eq ?. cur-char)
                     (eq ?, cur-char) (eq ?: cur-char) (eq ?@ cur-char)
-                    (eq ?- cur-char) (eq ?+ cur-char) (eq ?_ cur-char) 
+                    (eq ?- cur-char) (eq ?+ cur-char) (eq ?_ cur-char)
                     (eq ?\  cur-char) (eq ?# cur-char) (eq ?^ cur-char)
                     (and (eq ?\( cur-char)
                          (not (eq prev-char ?\\))
@@ -573,7 +573,7 @@ Optionally use FORMAT."
          (time-stamp-mail-host-name))
         ))
        (if (string-equal field-width "")
-           field-result
+           (format "%s" field-result)
          (let ((padded-result
                 (format (format "%%%s%c"
                                 field-width