From 579cc01c3a11fd80c9b39ab6ca03f05f0b693def Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 03:43:13 +0000 Subject: (time-stamp-month-dd-yyyy): no leading zero on day. --- lisp/time-stamp.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lisp/time-stamp.el') 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 -;; 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 - -- cgit v1.2.3