Mercurial > emacs
comparison lisp/textmodes/remember.el @ 85862:9e1be56af44a
remember.el (remember-mode-map): Define and initialize in one step.
| author | Michael Olson <mwolson@gnu.org> |
|---|---|
| date | Thu, 01 Nov 2007 04:40:55 +0000 |
| parents | 70f347d257ec |
| children | f5b982bf98e0 |
comparison
equal
deleted
inserted
replaced
| 85861:70f347d257ec | 85862:9e1be56af44a |
|---|---|
| 450 (kill-buffer (current-buffer)) | 450 (kill-buffer (current-buffer)) |
| 451 (jump-to-register remember-register))) | 451 (jump-to-register remember-register))) |
| 452 | 452 |
| 453 ;;; Internal Functions: | 453 ;;; Internal Functions: |
| 454 | 454 |
| 455 (defvar remember-mode-map () | 455 (defvar remember-mode-map |
| 456 (let ((map (make-sparse-keymap))) | |
| 457 (define-key map "\C-x\C-s" 'remember-finalize) | |
| 458 (define-key map "\C-c\C-c" 'remember-finalize) | |
| 459 (define-key map "\C-c\C-k" 'remember-destroy)) | |
| 456 "Keymap used in Remember mode.") | 460 "Keymap used in Remember mode.") |
| 457 (when (not remember-mode-map) | |
| 458 (setq remember-mode-map (make-sparse-keymap)) | |
| 459 (define-key remember-mode-map "\C-x\C-s" 'remember-finalize) | |
| 460 (define-key remember-mode-map "\C-c\C-c" 'remember-finalize) | |
| 461 (define-key remember-mode-map "\C-c\C-k" 'remember-destroy)) | |
| 462 | 461 |
| 463 (defun remember-mode () | 462 (defun remember-mode () |
| 464 "Major mode for output from \\[remember]. | 463 "Major mode for output from \\[remember]. |
| 465 \\<remember-mode-map>This buffer is used to collect data that you want | 464 \\<remember-mode-map>This buffer is used to collect data that you want |
| 466 remember. Just hit \\[remember-region] when you're done entering, and | 465 remember. Just hit \\[remember-region] when you're done entering, and |