diff options
| author | Juanma Barranquero | 2008-11-23 05:02:28 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-11-23 05:02:28 +0000 |
| commit | 7ee68ed5a89108934e439ec6607fafd8c54fa39e (patch) | |
| tree | 61e1cfa06d06abc329ecf9d5494fc87e6dafd728 | |
| parent | fa40e63379bdca8bcc5a345db7aa1fe97bd00bb7 (diff) | |
| download | emacs-7ee68ed5a89108934e439ec6607fafd8c54fa39e.tar.gz emacs-7ee68ed5a89108934e439ec6607fafd8c54fa39e.zip | |
* textmodes/remember.el (remember-region): Doc fix.
(remember-filter-functions, remember-handler-functions)
(remember-save-after-remembering, remember-mailbox)
(remember-default-priority, remember-data-file, remember-leader-text)
(remember-diary-file): Remove * from defcustom docstrings.
(remember-run-all-annotation-functions-flag)
(remember-all-handler-functions): Reflow docstrings.
(remember-store-in-mailbox): Fix typo in docstring.
(remember-mode): Define with `define-derived-mode'. Doc fix.
| -rw-r--r-- | lisp/ChangeLog | 19 | ||||
| -rw-r--r-- | lisp/textmodes/remember.el | 41 |
2 files changed, 31 insertions, 29 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 629edd9397b..8fe5d7d1910 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,15 @@ | |||
| 1 | 2008-11-23 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * textmodes/remember.el (remember-region): Doc fix. | ||
| 4 | (remember-filter-functions, remember-handler-functions) | ||
| 5 | (remember-save-after-remembering, remember-mailbox) | ||
| 6 | (remember-default-priority, remember-data-file, remember-leader-text) | ||
| 7 | (remember-diary-file): Remove * from defcustom docstrings. | ||
| 8 | (remember-run-all-annotation-functions-flag) | ||
| 9 | (remember-all-handler-functions): Reflow docstrings. | ||
| 10 | (remember-store-in-mailbox): Fix typo in docstring. | ||
| 11 | (remember-mode): Define with `define-derived-mode'. Doc fix. | ||
| 12 | |||
| 1 | 2008-11-23 Glenn Morris <rgm@gnu.org> | 13 | 2008-11-23 Glenn Morris <rgm@gnu.org> |
| 2 | 14 | ||
| 3 | * eshell/esh-cmd.el (eshell-in-pipeline-p): Add doc-string. | 15 | * eshell/esh-cmd.el (eshell-in-pipeline-p): Add doc-string. |
| @@ -8,13 +20,12 @@ | |||
| 8 | * eshell/esh-proc.el (eshell-gather-process-output): | 20 | * eshell/esh-proc.el (eshell-gather-process-output): |
| 9 | Set process-connection-type nil for all but the first element of a | 21 | Set process-connection-type nil for all but the first element of a |
| 10 | pipeline. (Bug#1388) | 22 | pipeline. (Bug#1388) |
| 11 | 23 | ||
| 12 | 2008-11-22 Michael Kifer <kifer@cs.stonybrook.edu> | 24 | 2008-11-22 Michael Kifer <kifer@cs.stonybrook.edu> |
| 13 | 25 | ||
| 14 | * ediff-hook.el: added tooltips to Emacs menus. | 26 | * ediff-hook.el: added tooltips to Emacs menus. |
| 15 | 27 | ||
| 16 | * ediff.el: changed date of last update. | 28 | * ediff.el: changed date of last update. |
| 17 | |||
| 18 | 29 | ||
| 19 | 2008-11-22 Juri Linkov <juri@jurta.org> | 30 | 2008-11-22 Juri Linkov <juri@jurta.org> |
| 20 | 31 | ||
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el index e3ca61c912f..244cf265eeb 100644 --- a/lisp/textmodes/remember.el +++ b/lisp/textmodes/remember.el | |||
| @@ -207,13 +207,13 @@ | |||
| 207 | :group 'remember) | 207 | :group 'remember) |
| 208 | 208 | ||
| 209 | (defcustom remember-filter-functions nil | 209 | (defcustom remember-filter-functions nil |
| 210 | "*Functions run to filter remember data. | 210 | "Functions run to filter remember data. |
| 211 | All functions are run in the remember buffer." | 211 | All functions are run in the remember buffer." |
| 212 | :type 'hook | 212 | :type 'hook |
| 213 | :group 'remember) | 213 | :group 'remember) |
| 214 | 214 | ||
| 215 | (defcustom remember-handler-functions '(remember-append-to-file) | 215 | (defcustom remember-handler-functions '(remember-append-to-file) |
| 216 | "*Functions run to process remember data. | 216 | "Functions run to process remember data. |
| 217 | Each function is called with the current buffer narrowed to what the | 217 | Each function is called with the current buffer narrowed to what the |
| 218 | user wants remembered. | 218 | user wants remembered. |
| 219 | If any function returns non-nil, the data is assumed to have been | 219 | If any function returns non-nil, the data is assumed to have been |
| @@ -226,8 +226,7 @@ recorded somewhere by that function. " | |||
| 226 | :group 'remember) | 226 | :group 'remember) |
| 227 | 227 | ||
| 228 | (defcustom remember-all-handler-functions nil | 228 | (defcustom remember-all-handler-functions nil |
| 229 | "If non-nil every function in `remember-handler-functions' is | 229 | "If non-nil every function in `remember-handler-functions' is called." |
| 230 | called." | ||
| 231 | :type 'boolean | 230 | :type 'boolean |
| 232 | :group 'remember) | 231 | :group 'remember) |
| 233 | 232 | ||
| @@ -237,7 +236,7 @@ called." | |||
| 237 | "The name of the remember data entry buffer.") | 236 | "The name of the remember data entry buffer.") |
| 238 | 237 | ||
| 239 | (defcustom remember-save-after-remembering t | 238 | (defcustom remember-save-after-remembering t |
| 240 | "*Non-nil means automatically save after remembering." | 239 | "Non-nil means automatically save after remembering." |
| 241 | :type 'boolean | 240 | :type 'boolean |
| 242 | :group 'remember) | 241 | :group 'remember) |
| 243 | 242 | ||
| @@ -260,8 +259,7 @@ called." | |||
| 260 | :group 'remember) | 259 | :group 'remember) |
| 261 | 260 | ||
| 262 | (defcustom remember-run-all-annotation-functions-flag nil | 261 | (defcustom remember-run-all-annotation-functions-flag nil |
| 263 | "Non-nil means use all annotations returned by | 262 | "Non-nil means use all annotations returned by `remember-annotation-functions'." |
| 264 | `remember-annotation-functions'." | ||
| 265 | :type 'boolean | 263 | :type 'boolean |
| 266 | :group 'remember) | 264 | :group 'remember) |
| 267 | 265 | ||
| @@ -342,19 +340,19 @@ With a prefix or a visible region, use the region as INITIAL." | |||
| 342 | ;; Remembering to UNIX mailboxes | 340 | ;; Remembering to UNIX mailboxes |
| 343 | 341 | ||
| 344 | (defcustom remember-mailbox "~/Mail/remember" | 342 | (defcustom remember-mailbox "~/Mail/remember" |
| 345 | "*The file in which to store remember data as mail." | 343 | "The file in which to store remember data as mail." |
| 346 | :type 'file | 344 | :type 'file |
| 347 | :group 'remember) | 345 | :group 'remember) |
| 348 | 346 | ||
| 349 | (defcustom remember-default-priority "medium" | 347 | (defcustom remember-default-priority "medium" |
| 350 | "*The default priority for remembered mail messages." | 348 | "The default priority for remembered mail messages." |
| 351 | :type 'string | 349 | :type 'string |
| 352 | :group 'remember) | 350 | :group 'remember) |
| 353 | 351 | ||
| 354 | (defun remember-store-in-mailbox () | 352 | (defun remember-store-in-mailbox () |
| 355 | "Store remember data as if it were incoming mail. | 353 | "Store remember data as if it were incoming mail. |
| 356 | In which case `remember-mailbox' should be the name of the mailbox. | 354 | In which case `remember-mailbox' should be the name of the mailbox. |
| 357 | Each piece of psuedo-mail created will have an `X-Todo-Priority' | 355 | Each piece of pseudo-mail created will have an `X-Todo-Priority' |
| 358 | field, for the purpose of appropriate splitting." | 356 | field, for the purpose of appropriate splitting." |
| 359 | (let ((who (read-string "Who is this item related to? ")) | 357 | (let ((who (read-string "Who is this item related to? ")) |
| 360 | (moment | 358 | (moment |
| @@ -391,12 +389,12 @@ Subject: %s\n\n" | |||
| 391 | ;; Remembering to plain files | 389 | ;; Remembering to plain files |
| 392 | 390 | ||
| 393 | (defcustom remember-data-file (convert-standard-filename "~/.notes") | 391 | (defcustom remember-data-file (convert-standard-filename "~/.notes") |
| 394 | "*The file in which to store unprocessed data." | 392 | "The file in which to store unprocessed data." |
| 395 | :type 'file | 393 | :type 'file |
| 396 | :group 'remember) | 394 | :group 'remember) |
| 397 | 395 | ||
| 398 | (defcustom remember-leader-text "** " | 396 | (defcustom remember-leader-text "** " |
| 399 | "*The text used to begin each remember item." | 397 | "The text used to begin each remember item." |
| 400 | :type 'string | 398 | :type 'string |
| 401 | :group 'remember) | 399 | :group 'remember) |
| 402 | 400 | ||
| @@ -426,7 +424,7 @@ that was entered. | |||
| 426 | If BEG and END are nil, the entire buffer will be remembered. | 424 | If BEG and END are nil, the entire buffer will be remembered. |
| 427 | 425 | ||
| 428 | If you want to remember a region, supply a universal prefix to | 426 | If you want to remember a region, supply a universal prefix to |
| 429 | `remember' instead. For example: C-u M-x remember RET." | 427 | `remember' instead. For example: \\[universal-argument] \\[remember] RET." |
| 430 | ;; Sacha: I have no idea where remember.el gets this context information, but | 428 | ;; Sacha: I have no idea where remember.el gets this context information, but |
| 431 | ;; you can just use remember-annotation-functions. | 429 | ;; you can just use remember-annotation-functions. |
| 432 | (interactive) | 430 | (interactive) |
| @@ -465,7 +463,7 @@ application." | |||
| 465 | ;;; Diary integration | 463 | ;;; Diary integration |
| 466 | 464 | ||
| 467 | (defcustom remember-diary-file nil | 465 | (defcustom remember-diary-file nil |
| 468 | "*File for extracted diary entries. | 466 | "File for extracted diary entries. |
| 469 | If this is nil, then `diary-file' will be used instead." | 467 | If this is nil, then `diary-file' will be used instead." |
| 470 | :type 'file | 468 | :type 'file |
| 471 | :group 'remember) | 469 | :group 'remember) |
| @@ -524,25 +522,18 @@ If this is nil, then `diary-file' will be used instead." | |||
| 524 | (define-key map "\C-x\C-s" 'remember-finalize) | 522 | (define-key map "\C-x\C-s" 'remember-finalize) |
| 525 | (define-key map "\C-c\C-c" 'remember-finalize) | 523 | (define-key map "\C-c\C-c" 'remember-finalize) |
| 526 | (define-key map "\C-c\C-k" 'remember-destroy) | 524 | (define-key map "\C-c\C-k" 'remember-destroy) |
| 527 | |||
| 528 | map) | 525 | map) |
| 529 | "Keymap used in Remember mode.") | 526 | "Keymap used in Remember mode.") |
| 530 | 527 | ||
| 531 | (defun remember-mode () | 528 | (define-derived-mode remember-mode indented-text-mode "Remember" |
| 532 | "Major mode for output from \\[remember]. | 529 | "Major mode for output from \\[remember]. |
| 533 | This buffer is used to collect data that you want to remember. | 530 | This buffer is used to collect data that you want to remember. |
| 534 | 531 | \\<remember-mode-map> | |
| 535 | Just hit `C-c C-c' when you're done entering, and it will file | 532 | Just hit \\[remember-finalize] when you're done entering, and it will file |
| 536 | the data away for latter retrieval, and possible indexing. | 533 | the data away for latter retrieval, and possible indexing. |
| 537 | 534 | ||
| 538 | \\{remember-mode-map}" | 535 | \\{remember-mode-map}" |
| 539 | (interactive) | 536 | (set-keymap-parent remember-mode-map nil)) |
| 540 | (kill-all-local-variables) | ||
| 541 | (indented-text-mode) | ||
| 542 | (use-local-map remember-mode-map) | ||
| 543 | (setq major-mode 'remember-mode | ||
| 544 | mode-name "Remember") | ||
| 545 | (run-hooks 'remember-mode-hook)) | ||
| 546 | 537 | ||
| 547 | ;; arch-tag: 59312a05-06c7-4da1-b6f7-5ea41c9d5577 | 538 | ;; arch-tag: 59312a05-06c7-4da1-b6f7-5ea41c9d5577 |
| 548 | ;;; remember.el ends here | 539 | ;;; remember.el ends here |