comparison lisp/time-stamp.el @ 16517:1fa5a347e70f

(time-stamp-dd/mm/yyyy): New function.

16516:e47c5d7e9c5d

;;; Change Log:

;; Originally based on the 19 Dec 88 version of
;;   date.el by John Sturdy <mcvax!harlqn.co.uk![e-mail]>
;; Version 2, January 1995: replaced functions with %-escapes
;; $Id: time-stamp.el,v 1.5 1996/08/13 18:03:17 gildea Exp $

;;; Code:

(defvar time-stamp-active t
  "*Non-nil to enable time-stamping of buffers by \\[time-stamp].

	    (aref time-stamp-month-full-names
		  (cdr (assoc (substring date 4 7) time-stamp-month-numbers)))
	    (string-to-int (substring date 8 10))
	    (substring date -4))))

;;; same as __DATE__ in ANSI C

(defun time-stamp-mon-dd-yyyy ()
  "Return the current date as a string in \"Mon DD YYYY\" form.
The first character of DD is space if the value is less than 10."

16517:1fa5a347e70f

;;; Change Log:

;; Originally based on the 19 Dec 88 version of
;;   date.el by John Sturdy <mcvax!harlqn.co.uk![e-mail]>
;; Version 2, January 1995: replaced functions with %-escapes
;; $Id: time-stamp.el,v 1.19 1996/09/22 22:20:58 kwzh Exp rms $

;;; Code:

(defvar time-stamp-active t
  "*Non-nil to enable time-stamping of buffers by \\[time-stamp].

	    (aref time-stamp-month-full-names
		  (cdr (assoc (substring date 4 7) time-stamp-month-numbers)))
	    (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 ()
  "Return the current date as a string in \"Mon DD YYYY\" form.
The first character of DD is space if the value is less than 10."