diff options
| author | Richard M. Stallman <[email protected]> | 1993-12-23 03:43:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1993-12-23 03:43:13 +0000 |
| commit | 579cc01c3a11fd80c9b39ab6ca03f05f0b693def (patch) | |
| tree | d6779fb84096bc3f4dfe858c93dae2c5e6274f82 /lisp/time-stamp.el | |
| parent | 08ffcab37e19febb90dd296eb9ecdc2c69c6374f (diff) | |
(time-stamp-month-dd-yyyy): no leading zero on day.
Diffstat (limited to 'lisp/time-stamp.el')
| -rw-r--r-- | lisp/time-stamp.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 744b3ea491..af529c93ce 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -2,7 +2,7 @@ ;;; Copyright 1989, 1993 Free Software Foundation, Inc. ;; Maintainer: Stephen Gildea <[email protected]> -;; Time-stamp: <93/09/24 16:02:25 gildea> +;; Time-stamp: <93/12/07 07:38:54 gildea> ;; Keywords: tools ;; This file is free software; you can redistribute it and/or modify @@ -184,7 +184,7 @@ otherwise the value of the function system-name." (defun time-stamp-month-dd-yyyy () "Return the current date as a string in \"Month dd, yyyy\" form." (let ((date (current-time-string))) - (format "%s %02d, %s" + (format "%s %d, %s" (aref time-stamp-month-full-names (cdr (assoc (substring date 4 7) time-stamp-month-numbers))) (string-to-int (substring date 8 10)) @@ -273,4 +273,3 @@ The first character of dd is Space if the value is less than 10." ;;; time-stamp.el ends here - |