procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1993-12-23 03:43:13 +00:00
parent 08ffcab37e
commit 579cc01c3a
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/time-stamp.el
View file

@ -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