# HG changeset patch # User Richard M. Stallman # Date 847218461 0 # Node ID 1fa5a347e70fec8598fc2e1433fdec7313bd836f # Parent e47c5d7e9c5d2ecb91a6f4e89568794b6d2f43c1 (time-stamp-dd/mm/yyyy): New function. diff -r e47c5d7e9c5d -r 1fa5a347e70f lisp/time-stamp.el --- 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 ;; 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 ()