diff options
| author | Sam Steingold <sds@gnu.org> | 2017-10-31 17:01:39 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2017-10-31 17:01:39 -0400 |
| commit | 733da54c30a2fceb40a7f1a4bb7d03c82cd716a1 (patch) | |
| tree | b2991f6dd074ab0e07b37d9154f87f8240334400 /lisp/textmodes/remember.el | |
| parent | aa091c546f413e8fa6e692dd861dcd1dfb78e7de (diff) | |
| download | emacs-733da54c30a2fceb40a7f1a4bb7d03c82cd716a1.tar.gz emacs-733da54c30a2fceb40a7f1a4bb7d03c82cd716a1.tar.bz2 emacs-733da54c30a2fceb40a7f1a4bb7d03c82cd716a1.zip | |
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'.
Diffstat (limited to 'lisp/textmodes/remember.el')
| -rw-r--r-- | lisp/textmodes/remember.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el index b20ee8fee84..dafc0b2dca6 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")))) |