(time-stamp-month-dd-yyyy): no leading zero on day.

1 files changed, 2 insertions, 3 deletions

diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index 744b3ea4910..af529c93cee 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 <gildea@lcs.mit.edu>
-;; 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
 
-