Mercurial > emacs
comparison lisp/time-stamp.el @ 28696:0c9cb5ad25fc
(time-stamp-string-preprocess): Always convert
`field-result' to a string.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Mon, 24 Apr 2000 17:37:05 +0000 |
| parents | 456e2e2bc4d3 |
| children | 08bfb5555d7b |
comparison
equal
deleted
inserted
replaced
| 28695:3930c7410fd6 | 28696:0c9cb5ad25fc |
|---|---|
| 455 (setq cur-char (if (< ind fmt-len) | 455 (setq cur-char (if (< ind fmt-len) |
| 456 (aref format ind) | 456 (aref format ind) |
| 457 ?\0)) | 457 ?\0)) |
| 458 (or (eq ?. cur-char) | 458 (or (eq ?. cur-char) |
| 459 (eq ?, cur-char) (eq ?: cur-char) (eq ?@ cur-char) | 459 (eq ?, cur-char) (eq ?: cur-char) (eq ?@ cur-char) |
| 460 (eq ?- cur-char) (eq ?+ cur-char) (eq ?_ cur-char) | 460 (eq ?- cur-char) (eq ?+ cur-char) (eq ?_ cur-char) |
| 461 (eq ?\ cur-char) (eq ?# cur-char) (eq ?^ cur-char) | 461 (eq ?\ cur-char) (eq ?# cur-char) (eq ?^ cur-char) |
| 462 (and (eq ?\( cur-char) | 462 (and (eq ?\( cur-char) |
| 463 (not (eq prev-char ?\\)) | 463 (not (eq prev-char ?\\)) |
| 464 (setq paren-level (1+ paren-level))) | 464 (setq paren-level (1+ paren-level))) |
| 465 (if (and (eq ?\) cur-char) | 465 (if (and (eq ?\) cur-char) |
| 571 (user-full-name)) | 571 (user-full-name)) |
| 572 ((eq cur-char ?h) ;mail host name | 572 ((eq cur-char ?h) ;mail host name |
| 573 (time-stamp-mail-host-name)) | 573 (time-stamp-mail-host-name)) |
| 574 )) | 574 )) |
| 575 (if (string-equal field-width "") | 575 (if (string-equal field-width "") |
| 576 field-result | 576 (format "%s" field-result) |
| 577 (let ((padded-result | 577 (let ((padded-result |
| 578 (format (format "%%%s%c" | 578 (format (format "%%%s%c" |
| 579 field-width | 579 field-width |
| 580 (if (numberp field-result) ?d ?s)) | 580 (if (numberp field-result) ?d ?s)) |
| 581 (or field-result "")))) | 581 (or field-result "")))) |