Skip to content

GitLab

Commit d4c9e004 authored by Glenn Morris's avatar Glenn Morris
Browse files

(remember-diary-convert-entry): Respect calendar-date-style if bound.

parent f905ff0d
Hide whitespace changes
Inline Side-by-side
Showing with 16 additions and 7 deletions
lisp/textmodes/remember.el
View file @ d4c9e004
......@@ -479,13 +479,22 @@ If this is nil, then `diary-file' will be used instead."
(setq entry (concat entry " " remember-annotation)))
(if (string-match "\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)" entry)
(replace-match
(if european-calendar-style
(concat (match-string 3 entry) "/"
(match-string 2 entry) "/"
(match-string 1 entry))
(concat (match-string 2 entry) "/"
(match-string 3 entry) "/"
(match-string 1 entry)))
(let ((style (if (boundp 'calendar-date-style)
calendar-date-style
(if (with-no-warnings european-calendar-style)
'european
'american))))
(cond ((eq style 'european)
(concat (match-string 3 entry) "/"
(match-string 2 entry) "/"
(match-string 1 entry)))
((eq style 'iso)
(concat (match-string 1 entry) "-"
(match-string 2 entry) "-"
(match-string 3 entry)))
(t (concat (match-string 2 entry) "/"
(match-string 3 entry) "/"
(match-string 1 entry)))))
t t entry)
entry)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment