Mercurial > emacs

changeset 16517:1fa5a347e70f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(time-stamp-dd/mm/yyyy): New function.
author Richard M. Stallman <rms@gnu.org>
date Tue, 05 Nov 1996 18:27:41 +0000
parents e47c5d7e9c5d
children 851101d4ba84
files lisp/time-stamp.el
diffstat 1 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/time-stamp.el	Tue Nov 05 02:31:08 1996 +0000
+++ b/lisp/time-stamp.el	Tue Nov 05 18:27:41 1996 +0000
@@ -40,7 +40,7 @@
 ;; Originally based on the 19 Dec 88 version of
 ;;   date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net>
 ;; Version 2, January 1995: replaced functions with %-escapes
-;; $Id: time-stamp.el,v 1.5 1996/08/13 18:03:17 gildea Exp $
+;; $Id: time-stamp.el,v 1.19 1996/09/22 22:20:58 kwzh Exp rms $
 
 ;;; Code:
 
@@ -463,6 +463,14 @@
 	    (string-to-int (substring date 8 10))
 	    (substring date -4))))
 
+(defun time-stamp-dd/mm/yyyy ()
+  "Return the current date as a string in \"DD/MM/YYYY\" form."
+  (let ((date (current-time-string)))
+    (format "%02d/%02d/%s"
+            (string-to-int (substring date 8 10)) 
+            (cdr (assoc (substring date 4 7) time-stamp-month-numbers))
+            (substring date -4) )))
+
 ;;; same as __DATE__ in ANSI C
 
 (defun time-stamp-mon-dd-yyyy ()