diff options
-rw-r--r-- | lisp/time-stamp.el | 10 |
1 files changed, 9 insertions, 1 deletions
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 <[email protected]> ;; 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 () |