Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b24173f7
Commit
b24173f7
authored
Nov 05, 1996
by
Richard M. Stallman
Browse files
(time-stamp-dd/mm/yyyy): New function.
parent
216f1169
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
1 deletion
+9
-1
lisp/time-stamp.el
lisp/time-stamp.el
+9
-1
No files found.
lisp/time-stamp.el
View file @
b24173f7
...
...
@@ -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/0
8/13 18:03:17 gildea Exp
$
;; $Id: time-stamp.el,v 1.
19
1996/0
9/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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment