diff options
| author | Sam Steingold <sds@gnu.org> | 2000-04-24 17:37:05 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2000-04-24 17:37:05 +0000 |
| commit | fa78f71bdb803fd6ee2fd796a21b1a4ecb0a7c08 (patch) | |
| tree | 62e01ee032420138ebf9c9eca591fd0ea4ba1f3f /lisp/time-stamp.el | |
| parent | cc181e9561a8f667658fb386a17b7c50e158b3b9 (diff) | |
| download | emacs-fa78f71bdb803fd6ee2fd796a21b1a4ecb0a7c08.tar.gz | |
(time-stamp-string-preprocess): Always convert
`field-result' to a string.
Diffstat (limited to 'lisp/time-stamp.el')
| -rw-r--r-- | lisp/time-stamp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 5ac4d49f262..7a04c72d074 100644 --- 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 |