;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/remember.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(provide 'remember)
#@27 This version of remember.
(defconst remember-version "2.0" (#$ . 581))
(byte-code "\300\301\302\303\304\305%\210\306\307\302\310\311\312\313\314\304\301&	\210\306\315\302\316\311\317\304\301&\210\306\320\321\322\311\323\304\301&\210\306\324\302\325\311\312\304\301&\210\306\326\327\330\311\312\313\331\304\301&	\210\306\332\302\333\311\317\304\301&\207" [custom-declare-group remember nil "A mode to remember information." :group data custom-declare-variable remember-mode-hook "Functions run upon entering `remember-mode'." :type hook :options (flyspell-mode turn-on-auto-fill org-remember-apply-template) remember-in-new-frame "Non-nil means use a separate frame for capturing remember data." boolean remember-register 82 "The register in which the window configuration is stored." character remember-filter-functions "Functions run to filter remember data.\nAll functions are run in the remember buffer." remember-handler-functions '(remember-append-to-file) "Functions run to process remember data.\nEach function is called with the current buffer narrowed to what the\nuser wants remembered.\nIf any function returns non-nil, the data is assumed to have been\nrecorded somewhere by that function. " (remember-store-in-mailbox remember-append-to-file remember-diary-extract-entries org-remember-handler) remember-all-handler-functions "If non-nil every function in `remember-handler-functions' is called."] 10)
#@45 The name of the remember data entry buffer.
(defvar remember-buffer "*Remember*" (#$ . 2006))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\314\315\306\307&	\207" [custom-declare-variable remember-save-after-remembering t "Non-nil means automatically save after remembering." :type boolean :group remember remember-annotation-functions '(buffer-file-name) "Hook that returns an annotation to be inserted into the remember buffer." hook :options (org-remember-annotation buffer-file-name)] 10)
#@21 Current annotation.
(defvar remember-annotation nil (#$ . 2534))
#@51 Initial contents to place into *Remember* buffer.
(defvar remember-initial-contents nil (#$ . 2605))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\207" [custom-declare-variable remember-before-remember-hook nil "Functions run before switching to the *Remember* buffer." :type hook :group remember remember-run-all-annotation-functions-flag "Non-nil means use all annotations returned by `remember-annotation-functions'." boolean] 8)
#@212 Remember an arbitrary piece of data.
INITIAL is the text to initially place in the *Remember* buffer,
or nil to bring up a blank *Remember* buffer.

With a prefix or a visible region, use the region as INITIAL.
(defalias 'remember #[(&optional initial) "\203\306\202	\307	!\210\n\203\310\311\312\313\314\315\"\"\316#\202!\317\303!\320
!\321\322!\210\2033\323\2024\324!\210\203E\325\326p\327 \"\330\"\210\331 \210deU\203y\203Wc\210\f !\203c!c\210\f;\203s\f\332\232\204s\333\f\261\210\313!eb\210\334\335!*\207" [remember-in-new-frame remember-register remember-run-all-annotation-functions-flag remember-annotation-functions annotation remember-buffer frame-configuration-to-register window-configuration-to-register mapconcat identity delq nil mapcar funcall "\n" run-hook-with-args-until-success get-buffer-create run-hooks remember-before-remember-hook switch-to-buffer-other-frame switch-to-buffer-other-window set-window-dedicated-p get-buffer-window selected-frame t remember-mode "" "\n\n" message "Use C-c C-c to remember the data." buf initial remember-annotation remember-initial-contents] 7 (#$ . 3084) (list (if (or current-prefix-arg (and mark-active transient-mark-mode)) (progn (buffer-substring (region-beginning) (region-end)))))])
#@35 Call `remember' in another frame.
(defalias 'remember-other-frame #[(&optional initial) "\302\303	!)\207" [remember-in-new-frame initial t remember] 2 (#$ . 4369) (list (if current-prefix-arg (progn (buffer-substring (point) (mark)))))])
#@39 Return a simple date.  Nothing fancy.
(defalias 'remember-mail-date #[(&optional rfc822-p) "\203\n\301\302\303 \"\207\301\304\303 \"\207" [rfc822-p format-time-string "%a, %e %b %Y %T %z" current-time "%a %b %e %T %Y"] 3 (#$ . 4614)])
(put 'remember-mail-date 'byte-optimizer 'byte-compile-inline-expand)
#@73 Using the first line of the current buffer, create a short description.
(defalias 'remember-buffer-desc #[nil "e\212eb\210\300\210`eZ\301V\203e\301\\b\210`){\207" [nil 60] 3 (#$ . 4927)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable remember-mailbox "~/Mail/remember" "The file in which to store remember data as mail." :type file :group remember remember-default-priority "medium" "The default priority for remembered mail messages." string] 8)
#@232 Store remember data as if it were incoming mail.
In which case `remember-mailbox' should be the name of the mailbox.
Each piece of pseudo-mail created will have an `X-Todo-Priority'
field, for the purpose of appropriate splitting.
(defalias 'remember-store-in-mailbox #[nil "\306\307!\310\311\312 \"\313 \314 \315\316!r\fq\210\317\216\310\320\321 \322\323\324\325 \")\326\323\327\325 \")\n\330  \331 !	&c\210`\"c\210n\204J\332c\210\332c\210\"b\210\333\334\322\326#\203`\335\336!\210\202Q)\337ed##\210.\326\207" [text desc moment who #1=#:temp-buffer rfc822-p read-string "Who is this item related to? " format "%.0f" float-time remember-buffer-desc buffer-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "From %s  %s\nDate: %s\nFrom: %s\nMessage-Id: <remember-%s@%s>\nX-Todo-Priority: %s\nTo: %s <%s>\nSubject: %s\n\n" user-login-name nil format-time-string "%a %b %e %T %Y" current-time t "%a, %e %b %Y %T %z" system-name user-full-name "\n" re-search-forward "^\\(From[: ]\\)" replace-match ">\\1" append-to-file remember-default-priority user-mail-address here remember-mailbox] 12 (#$ . 5453)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable remember-data-file (convert-standard-filename "~/.notes") "The file in which to store unprocessed data." :type file :group remember remember-leader-text "** " "The text used to begin each remember item." string] 8)
#@50 Remember, with description DESC, the given TEXT.
(defalias 'remember-append-to-file #[nil "\306 \307 \310\311!r\nq\210\312\216\313\314 \315\316	\261\210n\204\"\313c\210\317\f!\203B\306 \320\f!q\210\212db\210
c\210\205>\321 *\202G\322ed\f#-\207" [desc text #1=#:temp-buffer remember-leader-text remember-data-file remember-text buffer-string remember-buffer-desc generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "\n" current-time-string " (" ")\n\n" find-buffer-visiting get-file-buffer save-buffer append-to-file remember-save-after-remembering] 7 (#$ . 6976)])
#@318 Remember the data from BEG to END.
It is called from within the *Remember* buffer to save the text
that was entered.

If BEG and END are nil, the entire buffer will be remembered.

If you want to remember a region, supply a universal prefix to
`remember' instead.  For example: \[universal-argument] \[remember] RET.
(defalias 'remember-region #[(&optional beg end) "\206\f`\305 \206e^	\206`\305 \206d]\214\n}\210\f\203*\306\307!\210\202.\310\307!\210\311 +\207" [beg end e b remember-all-handler-functions mark run-hooks remember-handler-functions run-hook-with-args-until-success remember-destroy] 3 (#$ . 7619) nil])
#@109 Remember the contents of the current clipboard.
Most useful for remembering things from other applications.
(defalias 'remember-clipboard #[nil "\300\301\302!!\207" [remember current-kill 0] 3 (#$ . 8259) nil])
#@46 Remember the contents of the current buffer.
(defalias 'remember-finalize #[nil "\300ed\"\207" [remember-region] 3 (#$ . 8476) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias remember-buffer remember-finalize nil make-obsolete "23.1"] 4)
#@40 Destroy the current *Remember* buffer.
(defalias 'remember-destroy #[nil "\302 \232\205\303p!\210\304	!\207" [remember-buffer remember-register buffer-name kill-buffer jump-to-register] 2 (#$ . 8744) nil])
#@91 File for extracted diary entries.
If this is nil, then `diary-file' will be used instead.
(custom-declare-variable 'remember-diary-file nil '(#$ . 8959) :type 'file :group 'remember)
#@46 Translate MSG to an entry readable by diary.
(defalias 'remember-diary-convert-entry #[(entry) "\306 \307\216	\203\n\310	Q\311\312\n\"\203x\313\314!\210\315\316\303!\203$\202-\f\203,\317\202-\320\211\317=\203G\321\322\n\"\323\321\324\n\"\323\321\325\n\"\260\202p
\326=\203`\321\325\n\"\327\321\324\n\"\327\321\322\n\"\260\202p\321\324\n\"\323\321\322\n\"\323\321\325\n\"\260)\330\211\n$\202y\n*\207" [save-match-data-internal remember-annotation entry calendar-date-style european-calendar-style style match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) " " string-match "\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)" require calendar replace-match boundp european american match-string 3 "/" 2 1 iso "-" t] 9 (#$ . 9148)])
(autoload 'diary-make-entry "diary-lib")
#@40 Extract diary entries from the region.
(defalias 'remember-diary-extract-entries #[nil "\212eb\210\302\303\304\302\305#\203\306\300\307\310\311!!\"\210\202\203(\312\313\314\315#\302	#\210*\302\207" [list remember-diary-file nil re-search-forward "^DIARY:\\s-*\\(.+\\)" t add-to-list remember-diary-convert-entry match-string 1 diary-make-entry mapconcat identity "\n"] 5 (#$ . 9981)])
#@31 Keymap used in Remember mode.
(defvar remember-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210)\207" [map make-sparse-keymap define-key "" remember-finalize "" "" remember-destroy] 4) (#$ . 10380))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [remember-mode-hook variable-documentation put purecopy "Hook run when entering Remember mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp remember-mode-map definition-name remember-mode] 5)
(defvar remember-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [remember-mode-map variable-documentation put purecopy "Keymap for `remember-mode'." boundp remember-mode-syntax-table definition-name remember-mode] 5)
(defvar remember-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [remember-mode-syntax-table variable-documentation put purecopy "Syntax table for `remember-mode'." remember-mode-abbrev-table definition-name remember-mode] 5)
(defvar remember-mode-abbrev-table (progn (define-abbrev-table 'remember-mode-abbrev-table nil) remember-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [remember-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `remember-mode'." remember-mode derived-mode-parent indented-text-mode] 5)
#@446 Major mode for output from \[remember].
This buffer is used to collect data that you want to remember.
\<remember-mode-map>
Just hit \[remember-finalize] when you're done entering, and it will file
the data away for latter retrieval, and possible indexing.

\{remember-mode-map}

In addition to any hooks its parent mode `indented-text-mode' might have run,
this mode runs the hook `remember-mode-hook', as the final step
during initialization.
(defalias 'remember-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\326\325C#\210\327!\210\330\f!\210\316\331\"\210)\332\333!\207" [delay-mode-hooks major-mode mode-name remember-mode-map remember-mode-syntax-table parent make-local-variable t indented-text-mode remember-mode "Remember" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table nil run-mode-hooks remember-mode-hook remember-mode-abbrev-table local-abbrev-table] 6 (#$ . 11958) nil])