[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 733da54: The user can now specify the time stamp fo
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] master 733da54: The user can now specify the time stamp format. |
Date: |
Tue, 31 Oct 2017 17:02:25 -0400 (EDT) |
branch: master
commit 733da54c30a2fceb40a7f1a4bb7d03c82cd716a1
Author: Sam Steingold <address@hidden>
Commit: Sam Steingold <address@hidden>
The user can now specify the time stamp format.
* lisp/textmodes/remember.el (remember-time-format): New user variable.
(remember-append-to-file): Pass it to `format-time-string' instead of
calling `current-time-string'.
---
lisp/textmodes/remember.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index b20ee8f..dafc0b2 100644
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -402,11 +402,19 @@ exists) might be changed."
:type 'string
:group 'remember)
+(defcustom remember-time-format "%a %b %d %H:%M:%S %Y"
+ "The format for time stamp, passed to `format-time-string'.
+The default emulates `current-time-string' for backward compatibility."
+ :type 'string
+ :group 'remember
+ :version "27.1")
+
(defun remember-append-to-file ()
"Remember, with description DESC, the given TEXT."
(let* ((text (buffer-string))
(desc (remember-buffer-desc))
- (remember-text (concat "\n" remember-leader-text (current-time-string)
+ (remember-text (concat "\n" remember-leader-text
+ (format-time-string remember-time-format)
" (" desc ")\n\n" text
(save-excursion (goto-char (point-max))
(if (bolp) nil "\n"))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 733da54: The user can now specify the time stamp format.,
Sam Steingold <=