# HG changeset patch # User Richard M. Stallman # Date 756618193 0 # Node ID 6811f9d90b62971432608074ffdbec8e3073452d # Parent 7b3b23470fa1d2d4243e6f75c5c2b6d049bfd79a (time-stamp-month-dd-yyyy): no leading zero on day. diff -r 7b3b23470fa1 -r 6811f9d90b62 lisp/time-stamp.el --- a/lisp/time-stamp.el Thu Dec 23 03:42:20 1993 +0000 +++ b/lisp/time-stamp.el Thu Dec 23 03:43:13 1993 +0000 @@ -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 @@ (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 @@ ;;; time-stamp.el ends here -