From b24173f7679956f32255602bbad2a1b4072a2cda Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 5 Nov 1996 18:27:41 +0000 Subject: (time-stamp-dd/mm/yyyy): New function. --- lisp/time-stamp.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lisp/time-stamp.el') diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 6c65715f45..9d4c45037a 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -40,7 +40,7 @@ ;; Originally based on the 19 Dec 88 version of ;; date.el by John Sturdy ;; 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 @@ around literals." (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 () -- cgit v1.2.3