diff options
| author | Eli Zaretskii | 2013-05-01 20:47:50 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2013-05-01 20:47:50 +0300 |
| commit | b1cb82edff21abfefd68af18370dddfd8cc1fec0 (patch) | |
| tree | fd8d8a1e1d99af024b52158a471457fc796238bc /lisp/textmodes/remember.el | |
| parent | 10f81f3ac90f98160f611787e20dcad96bb500e9 (diff) | |
| parent | 2640d52e4e7873e41b0f0f1144177f84c345917e (diff) | |
| download | emacs-b1cb82edff21abfefd68af18370dddfd8cc1fec0.tar.gz emacs-b1cb82edff21abfefd68af18370dddfd8cc1fec0.zip | |
Merge from trunk.
Diffstat (limited to 'lisp/textmodes/remember.el')
| -rw-r--r-- | lisp/textmodes/remember.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el index 1286e5d803e..c8bafd8176a 100644 --- a/lisp/textmodes/remember.el +++ b/lisp/textmodes/remember.el | |||
| @@ -432,17 +432,20 @@ If you want to remember a region, supply a universal prefix to | |||
| 432 | 432 | ||
| 433 | (defcustom remember-data-directory "~/remember" | 433 | (defcustom remember-data-directory "~/remember" |
| 434 | "The directory in which to store remember data as files." | 434 | "The directory in which to store remember data as files." |
| 435 | :type 'file | 435 | :type 'directory |
| 436 | :version "24.4" | ||
| 436 | :group 'remember) | 437 | :group 'remember) |
| 437 | 438 | ||
| 438 | (defcustom remember-directory-file-name-format "%Y-%m-%d_%T-%z" | 439 | (defcustom remember-directory-file-name-format "%Y-%m-%d_%T-%z" |
| 439 | "Format string for the file name in which to store unprocessed data." | 440 | "Format string for the file name in which to store unprocessed data." |
| 440 | :type 'file | 441 | :type 'string |
| 442 | :version "24.4" | ||
| 441 | :group 'remember) | 443 | :group 'remember) |
| 442 | 444 | ||
| 443 | (defun remember-store-in-files () | 445 | (defun remember-store-in-files () |
| 444 | "Store remember data in a file in `remember-data-directory'. | 446 | "Store remember data in a file in `remember-data-directory'. |
| 445 | The file is named after `remember-directory-file-name-format'." | 447 | The file is named after `remember-directory-file-name-format' fed through |
| 448 | `format-time-string'." | ||
| 446 | (let ((name (format-time-string | 449 | (let ((name (format-time-string |
| 447 | remember-directory-file-name-format (current-time))) | 450 | remember-directory-file-name-format (current-time))) |
| 448 | (text (buffer-string))) | 451 | (text (buffer-string))) |