MMCT TEAM
Server IP : 111.118.215.189  /  Your IP : 18.117.158.174
Web Server : Apache
System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
User : a1673wkz ( 2475)
PHP Version : 8.2.25
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON
Directory (0755) :  /usr/share/emacs/24.3/lisp/org/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //usr/share/emacs/24.3/lisp/org/org-remember.elc
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:58 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-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.

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\301&\210\313\314\315\316\312\305\317\320&\210\313\321\322\323\312\305\317\324&\210\313\325\326\327\312\305\317\330&\210\313\331\306\332\312\305\333\334\317\335&	\210\313\336\315\337\312\305\317\320&\210\313\340\306\341\312\305\317\342&\207" [require org org-compat org-datetree custom-declare-group org-remember nil "Options concerning interaction with remember.el." :tag "Org Remember" :group custom-declare-variable org-remember-store-without-prompt t "Non-nil means \\<org-remember-mode-map>\\[org-remember-finalize] stores the remember note without further prompts.\nIt then uses the file and headline specified by the template or (if the\ntemplate does not specify them) by the variables `org-default-notes-file'\nand `org-remember-default-headline'.  To force prompting anyway, use\n\\[universal-argument] \\[org-remember-finalize] to file the note.\n\nWhen this variable is nil, \\[org-remember-finalize] gives you the prompts, and\n\\[universal-argument] \\[org-remember-finalize] triggers the fast track." :type boolean org-remember-interactive-interface 'refile "The interface to be used for interactive filing of remember notes.\nThis is only used when the interactive mode for selecting a filing\nlocation is used (see the variable `org-remember-store-without-prompt').\nAllowed values are:\noutline                  The interface shows an outline of the relevant file\n                         and the correct heading is found by moving through\n                         the outline or by searching with incremental search.\noutline-path-completion  Headlines in the current buffer are offered via\n                         completion.\nrefile                   Use the refile interface, and offer headlines,\n                         possibly from different buffers." (choice (const :tag "Refile" refile) (const :tag "Outline" outline) (const :tag "Outline-path-completion" outline-path-completion)) org-remember-default-headline #1="" "The headline that should be the default location in the notes file.\nWhen filing remember notes, the cursor will start at that position.\nYou can set this on a per-template basis with the variable\n`org-remember-templates'." string org-remember-templates "Templates for the creation of remember buffers.\nWhen nil, just let remember make the buffer.\nWhen non-nil, this is a list of (up to) 6-element lists.  In each entry,\nthe first element is the name of the template, which should be a single\nshort word.  The second element is a character, a unique key to select\nthis template.  The third element is the template.\n\nThe fourth element is optional and can specify a destination file for\nremember items created with this template.  The default file is given\nby `org-default-notes-file'.  If the file name is not an absolute path,\nit will be interpreted relative to `org-directory'.\n\nAn optional fifth element can specify the headline in that file that should\nbe offered first when the user is asked to file the entry.  The default\nheadline is given in the variable `org-remember-default-headline'.  When\nthis element is `top' or `bottom', the note will be placed as a level-1\nentry at the beginning or end of the file, respectively.\n\nAn optional sixth element specifies the contexts in which the template\nwill be offered to the user.  This element can be a list of major modes\nor a function, and the template will only be offered if `org-remember'\nis called from a mode in the list, or if the function returns t.\nTemplates that specify t or nil for the context will always be added\nto the list of selectable templates.\n\nThe template specifies the structure of the remember buffer.  It should have\na first line starting with a star, to act as the org-mode headline.\nFurthermore, the following %-escapes will be replaced with content:\n\n  %^{PROMPT}  prompt the user for a string and replace this sequence with it.\n              A default value and a completion table can be specified like this:\n              %^{prompt|default|completion2|completion3|...}\n              The arrow keys access a prompt-specific history.\n  %a          annotation, normally the link created with `org-store-link'\n  %A          like %a, but prompt for the description part\n  %i          initial content, copied from the active region.  If %i is\n              indented, the entire inserted text will be indented as well.\n  %t          time stamp, date only\n  %T          time stamp with date and time\n  %u, %U      like the above, but inactive time stamps\n  %^t         like %t, but prompt for date.  Similarly %^T, %^u, %^U.\n              You may define a prompt like %^{Please specify birthday}t\n  %n          user name (taken from `user-full-name')\n  %c          current kill ring head\n  %x          content of the X clipboard\n  %:keyword   specific information for certain link types, see below\n  %^C         interactive selection of which kill or clip to use\n  %^L         like %^C, but insert as link\n  %k          title of the currently clocked task\n  %K          link to the currently clocked task\n  %^g         prompt for tags, completing tags in the target file\n  %^G         prompt for tags, completing all tags in all agenda files\n  %^{PROP}p   Prompt the user for a value for property PROP\n  %[PATHNAME] insert the contents of the file given by PATHNAME\n  %(SEXP)     evaluate elisp `(SEXP)' and replace with the result\n  %!          store this note immediately after completing the template              \\<org-remember-mode-map>\n              (skipping the \\[org-remember-finalize] that normally triggers storing)\n  %&          jump to target location immediately after storing note\n  %?          after completing the template, position cursor here.\n\nApart from these general escapes, you can access information specific to the\nlink type that is created.  For example, calling `remember' in emails or gnus\nwill record the author and the subject of the message, which you can access\nwith %:fromname and %:subject, respectively.  Here is a complete list of what\nis recorded for each link type.\n\nLink type          |  Available information\n-------------------+------------------------------------------------------\nbbdb               |  %:type %:name %:company\nvm, wl, mh, rmail  |  %:type %:subject %:message-id\n                   |  %:from %:fromname %:fromaddress\n                   |  %:to   %:toname   %:toaddress\n                   |  %:fromto (either \"to NAME\" or \"from NAME\")\ngnus               |  %:group, for messages also all email fields and\n                   |  %:org-date (the Date: header in Org format)\nw3, w3m            |  %:type %:url\ninfo               |  %:type %:file %:node\ncalendar           |  %:type %:date" :get #[(var) "\301\302\303!\"\207" [var mapcar #[(x) "@;\204\n\301BG\302U\203\303\304\"\207G\305U\203\"\303\306\"\207\207" [x #1# 4 append (nil) 3 (nil nil)] 3] default-value] 4] (repeat :tag "enabled" (list :value (#1# 97 "\n" nil nil nil) (string :tag "Name") (character :tag "Selection Key") (string :tag "Template") (choice :tag "Destination file" (file :tag "Specify") (function :tag "Function") (const :tag "Use `org-default-notes-file'" nil)) (choice :tag "Destin. headline" (string :tag "Specify") (function :tag "Function") (const :tag "Use `org-remember-default-headline'" nil) (const :tag "At beginning of file" top) (const :tag "At end of file" bottom) (const :tag "In a date tree" date-tree)) (choice :tag "Context" (const :tag "Use in all contexts" nil) (const :tag "Use in all contexts" t) (repeat :tag "Use only if in major mode" (symbol :tag "Major mode")) (function :tag "Perform a check against function")))) org-remember-delete-empty-lines-at-end "Non-nil means clean up final empty lines in remember buffer." org-remember-before-finalize-hook "Hook that is run right before a remember process is finalized.\nThe remember buffer is still current when this hook runs." hook] 10)
#@139 Keymap for `org-remember-mode', a minor mode.
Use this map to set additional keybindings for when Org-mode is used
for a Remember buffer.
(defvar org-remember-mode-map (make-sparse-keymap) (#$ . 8612))
#@41 Hook for the minor `org-remember-mode'.
(defvar org-remember-mode-hook nil (#$ . 8820))
#@103 Non-nil if Org-Remember mode is enabled.
Use the command `org-remember-mode' to change this variable.
(defvar org-remember-mode nil (#$ . 8915))
(make-variable-buffer-local 'org-remember-mode)
#@59 Minor mode for special key bindings in a remember buffer.
(defalias 'org-remember-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310!\210\307\310\n\203\"\311\202#\312\"\210\313\314!\203D\303 \2037\303 \232\203D\315\316\n\203A\317\202B\320\"\210)\321 \210\n\207" [#1=#:last-message arg org-remember-mode current-message toggle prefix-numeric-value 0 run-hooks org-remember-mode-hook org-remember-mode-on-hook org-remember-mode-off-hook called-interactively-p any message "Org-Remember mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 9114) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\210\305\306\307#\210\305\310\311#\210\312\313\314\315\316\317\320\321&\210\312\322\304\323\316\317\320\324&\210\312\325\326\327\316\317\320\330&\210\312\331\326\332\316\317\320\330&\207" [org-remember-mode-map add-minor-mode org-remember-mode " Rem" nil define-key "" org-remember-finalize "" org-remember-kill custom-declare-variable org-remember-clock-out-on-exit 'query "Non-nil means stop the clock when exiting a clocking remember buffer.\nThis only applies if the clock is running in the remember buffer.  If the\nclock is not stopped, it continues to run in the storage location.\nInstead of nil or t, this may also be the symbol `query' to prompt the\nuser each time a remember buffer with a running clock is filed away." :group org-remember :type (choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "Query user" query)) org-remember-backup-directory "Directory where to store all remember buffers, for backup purposes.\nAfter a remember buffer has been stored successfully, the backup file\nwill be removed.  However, if you forget to finish the remember process,\nthe file will remain there.\nSee also `org-remember-auto-remove-backup-files'." (choice (const :tag "No backups" nil) (directory :tag "Directory")) org-remember-auto-remove-backup-files t "Non-nil means remove remember backup files after successfully storage.\nWhen remember is finished successfully, with storing the note at the\ndesired target, remove the backup files related to this remember process\nand show a message about remaining backup files, from previous, unfinished\nremember sessions.\nBackup files will only be made at all, when `org-remember-backup-directory'\nis set." boolean org-remember-warn-about-backups "Non-nil means warn about backup files in `org-remember-backup-directory'.\n\nSet this to nil if you find that you don't need the warning.\n\nIf you cancel remember calls frequently and know when they\ncontain useful information (because you know that you made an\nerror or Emacs crashed, for example) nil is more useful.  In the\nopposite case, the default, t, is more useful."] 8)
#@42 Setup remember.el for use with Org-mode.
(defalias 'org-remember-insinuate #[nil "\302 \210\303\304\305\306\307\"\207" [remember-annotation-functions remember-handler-functions org-require-remember (org-remember-annotation) (org-remember-handler) add-hook remember-mode-hook org-remember-apply-template] 3 (#$ . 11883)])
#@274 Return a link to the current location as an annotation for remember.el.
If you are using Org-mode files as target for data storage with
remember.el, then the annotations should include a link compatible with the
conventions in Org-mode.  This function returns such a link.
(defalias 'org-remember-annotation #[nil "\300\301!\207" [org-store-link nil] 2 (#$ . 12213)])
(defconst org-remember-help "Select a destination location for the note.\nUP/DOWN=headline   TAB=cycle visibility  [Q]uit   RET/<left>/<right>=Store\nRET on headline   -> Store as sublevel entry to current headline\nRET at beg-of-buf -> Append to file as level 2 headline\n<left>/<right>    -> before/after current headline, same headings level")
(defvar org-jump-to-target-location nil)
(defvar org-remember-previous-location nil)
(defvar org-remember-reference-date nil)
(defvar org-select-template-temp-major-mode nil)
(defvar org-select-template-original-buffer nil)
(defalias 'org-select-remember-template #[(&optional use-char) "\205\363\306\307\"\310\311	\"\204\306\312\"\202	\313\306\314\"\310\311\n\"\"\306\315\310\311\"\"\311(\206\345\fG\316U\203D\f\211)@@)\202\345\317\320!\203a\203a;\203\\\321!\202\345\202\345\322\323\324\325\f\326#\327\330\f\"\203s\331\202t\332#\333\311*+*\204\263\334
!\210\335 *\327*\f\"\204|*\336\232\204|*\330\232\204|\334\337*\"\210\340 \210\341\316!\210\311\211*\203\201*\336\232\203\310\342,!\210\343-!\210\344\345!\210\327*\f\"\204\342\342,!\210\343-!\210\346\300!\210\344\347!\210**.\327.\f\"\211)AA.\207" [org-remember-templates pre-selected-templates pre-selected-templates1 pre-selected-templates2 templates msg mapcar #[(tpl) "\3068	\n\211\203/
\307=\204/
<\203\f
>\204/\310
!\2050rq\210\311\312\313\217)\2050+\207" [tpl org-select-template-temp-major-mode org-select-template-original-buffer buf mode ctxt 5 t functionp nil (funcall ctxt) ((error))] 4] delq nil #[(x) "\3018?\205\207" [x 5] 2] append #[(x) "\3018\302=\205	\207" [x 5 t] 2] #[(x) "@;\203\301A@@D\211AA)\"\207\301@\302DA\"\207" [x append #1=""] 4] 1 boundp org-force-remember-template-char string-to-char format "Select template: %s%s" mapconcat #[(x) "\301\302A@\"\204\303\304@\"\207@\227A@\305H\227\232\203(\303\306@A@\307\310O#\207\303\306@A@#\207" [x string-match "\\S-" format "[%c]" 0 "[%c]%s" 1 nil] 6] " " assoc 67 #1# " [C]customize templates" t message read-char-exclusive 7 "No such template \"%c\"" ding sit-for jump-to-register kill-buffer error "Abort" customize-variable "Customize templates" use-char x char0 inhibit-quit remember-register remember-buffer char] 7])
#@189 Initialize *remember* buffer with template, invoke `org-mode'.
This function should be placed into `remember-mode-hook' and in fact requires
to be run from that hook to function properly.
(defalias 'org-remember-apply-template #[(&optional use-char skip-interactive) "\306\300!\203:;\203:\307\310\311!\203 \311\312\nG\307\n$\210\2027	\203/\313\312\nG\n$\210\2027\311\312\nG\307\n$\210\n*\f\203I\314
!@A\206J\315 B\316B!C\317C8DW\203r\320\312\321\322\323C8S\324C8\325C8&\202tBE@@FG\205\201\326H@A@\203\254@A@;\203\234\327\330@A@\"\204\245\331@A@!\203\254@A@\202\256IJ\317@8KLG\312V\205\301\332\312!M\333\334!\206\322\333\335!\206\322\333\336!N\337O@B\"P\337OAB\"Q\340P\341\342O\343QR\340Q\341\342O\343QS\344G\345\"\206\306\300!\203
\300J\206\346T\344G\347\"\206$\306\350!\203#\350J\206$\346\211U\351\232\2030\346\2022UU\352\307T\333\334!\333\335!\333\336!M\257\"VU\203_\327\353U\"\203_\354\355\307\211U$\202aUWXY\356Z!\205\235[\307\310\311!\203\204\311\312\nG\307\n$\210\202\233	\203\223\313\312\nG\n$\210\202\233\311\312\nG\307\n$\210\n*\\\356Z!\205\260\357\360\356Z!![\"]\307\211^_\326`\307\211ab\307\211cd\307\211ef\307\211gh\307\211ij\331J!\203\345J J\331K!\203\361K KJ\203\361J!\204\362Jk\"J\363G\347U#G\363G\345T#GF\204*\346F\364\365!\210\366 \210\367\341!\210\370 \210\371\372\373l\2039\374\202:\375\376J\206BI!K\206I\346m@\206P\377mA\206W\377l\203b\201\207\202e\201\210&!c\210Fc\210eb\210\201\211\201\212\307\326#\203\255\201\213 \204q\312\224\312\225\362\201\214\341!!no\211pb\210po|\210\201\215\201\216\201\217\217\210+\202qeb\210\306\300!\205\270\300Jq\201\211\201\220\307\326#\203'\201\213 \204\272q\203\n\201\214\312!\201\221\232\203\n\201\222 r\201\223\216\201\224 \312\224{s\201\225\201\226\201\227q\201\230\"\201\230sP#T+\354\201\231\201\232\201\233\201\214\341!P!!\206 \346\326\211#\210\202\272)eb\210\201\211\201\234\307\326#\203a\201\213 \204+\312\224b\210`t\341u\210\201\215\201\235\201\236\217ut`|\210uc\210*\202+H\203\235eb\210\201\211\201\237\307\326#\203\235\201\213 \204i\344G\201\232\201\214\341!!\"\206\215\346\211c\203i\354c\326\211#\210\202i\326`\201\240 \210\201\241\341!\210)J\203\326\327\330J\"\203\326\201\242J!\204\326\201IJvw\201\243w!vL*\210K\203\357\201\244Kvw\201\243w!vL*\210\201\245\324C8\323C8\325C8Evw\201\243w!vL*\210eb\210\201\211\201\246\307\326#\203\201\213 \204\323\225\205.\201\214\323!f\317\225\205:\201\214\317!d\312\224b\210\354\346!\210\307\211eid\203\202\201\227d\201\247\"\211e\211Ae@de@i\201\232\201\250d\206s\346P!j\201\251\201\252e\"ef\201\253\235\203\201\254f\201\255\232\203\236\201\256 \202\246J\205\246JC!x\326y\201\257d\203\275d\201\260P\202\300\201\261\201\262\307\211\211\201\263&z\201\225\201\226\201\227z\201\264\"\201\265#z\327\330z\"\203`Sf\201\266\232\204\371\201\265c\210zc\210\307f\201\266\232\204\201\265c\210+\202f\201\267\232\203EVG\341U\203(V@c\210\202VG\341V\203\201\270\201\271V@\201\272V@$c\210\202f\201\273\232\203\203VG\341U\203b\201\274\312V@\"\210\202VG\341V\203\201\274\312\201\270\201\271V@\201\275V@$\"\210\202f\201\276\232\203gd\307\310\311!\203\242\311\312\nG\307\n$\210\202\271	\203\261\313\312\nG\n$\210\202\271\311\312\nG\307\n$\210\n*\211{\201\277P|r\201\300J!\206\324\201\301J!q\210\201\302|}\"A\206\367\201\302|~\"A\206\367\201\302|\"A)\200r\201\300J!\206\n\201\301J!q\210\201\251\201\252\201\303{!\")\201\201\304{\201\260Q\202\200\203I\201\305\202\201\251\201\252\201\227\200\201\306\"\"\307\201\307$\202W\201\310\202\201\307\211\346\307\346&\203\201\311{\203\"\210.\202f\203\235f\226f\232a\201\312f\226\201\313\232\326\307d$g\201\314gaf\201\315\235\307\211bC&\210\202\307\204\306\201\205!\203\356\205\203\356\310\201\205!\203\356\201\316\216\201\205\342!\210\201\310d\203\314d\202\317\201\317i\205\333\201\320i\343Q\201\260Qe\307\211\211ji&)\202\201\310d\203\373d\202\376\201\317i\205\n\201\320i\343Q\201\260Qe\307\211\211ji&c\210)\202eb\210\201\211\201\321\307\326#\2035\354\346!\210\202D\201\211\201\322\307\326#\203D\342u\210.#\202X\326`\201\240 \210\201\241\341!\210)\212eb\210\201\211\201\323\307\326#)\203\200\354\346!\210\201\324\326vw\201\243w!vL*\210\206\203\321\201\242\206!\204\225\201\325\206!\210\201\326\307vw\201\243w!vL*\210\362\337\201\327!\206\"0\201\330 \210\201\331\326vw\201\243w!vL*\210\201\332\341!\210\212eb\210\201\211\201\333\307\326#)\205\363\354\346!\210\201\334\201\335\201\336\201\337#\207" [initial restricted s org-rm-props org-remember-templates use-char boundp nil fboundp set-text-properties 0 remove-text-properties org-select-remember-template org-current-time decode-time 2 encode-time 59 23 3 4 5 t string-match "\\S-" functionp current-kill org-get-x-clipboard PRIMARY CLIPBOARD SECONDARY format-time-string "[" 1 -1 "]" plist-get :initial "" :annotation annotation "[[]]" remove "\\[\\(\\[.*?\\]\\)\\(\\[.*?\\]\\)?\\]" replace-match "[\\1[%^{Link description}]]" marker-buffer org-make-link-string buffer-file-name file-name-absolute-p expand-file-name plist-put message "No template" ding sit-for erase-buffer substitute-command-keys format "# %s  \"%s\" -> \"* %s\"\n# C-u C-c C-c  like C-c C-c, and immediately visit note at target location\n# C-0 C-c C-c  \"%s\" -> \"* %s\"\n# %s  to select file and header location interactively.\n# C-2 C-c C-c  as child (C-3: as sibling) of the currently clocked item\n# To switch templates, use `\\[org-remember]'.  To abort use `C-c C-k'.\n\n" "    C-c C-c" "    C-1 C-c C-c" abbreviate-file-name "???" entry org-overriding-default-time ct dct org-extend-today-until ct1 tpl org-store-link-plist plist-p org-default-notes-file file headline kill-ring v-c v-x org-time-stamp-formats v-t v-T v-u v-U v-i v-a clipboards v-A user-full-name v-n org-clock-marker org-clock-heading v-k v-K v-I org-startup-folded org-inhibit-startup org-time-was-given org-end-time-was-given x prompt completions char time pos default histvar org-directory org-remember-store-without-prompt org-remember-previous-location filename end start init save-match-data-internal lead template-start result value var org-last-tags-completion-table org-add-colon-after-tag-completion ins prop pall org-file-properties org-global-properties org-global-properties-fixed allowed existing propprompt val org-completion-use-ido partial-completion-mode org-remember-backup-directory "C-1 C-c C-c" "        C-c C-c" re-search-forward "%\\[\\(.+\\)\\]" org-remember-escaped-% match-string error (insert-file-contents filename) ((error (byte-code "\302\303	#c\207" [filename error format "%%![Couldn't insert %s: %s]"] 4))) "%\\([tTuUaiAcxkKI]\\)" "%i" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) point-at-bol mapconcat identity org-split-string "\n" eval intern "v-" "%\\((.+)\\)" (byte-code "\300\301p!!\207" [eval read] 3) ((error (format "%%![Error: %s]" error))) "%\\(:[-a-zA-Z]+\\)" org-mode org-remember-mode file-directory-p make-local-variable org-remember-default-headline org-remember-reference-date "%^\\({\\([^}]*\\)}\\)?\\([gGtTuUCLp]\\)?" "|" "org-remember-template-prompt-history::" mapcar list ("G" "g") org-global-tags-completion-table "G" org-agenda-files org-icompleting-read ": " "Tags: " org-tags-completion-function org-tags-history "[^[:alnum:]_@#%]+" ":" 58 "C" read-string "Clipboard/kill value: " (clipboards . 1) "L" org-insert-link (clipboards . 1) "p" "_ALL" find-buffer-visiting find-file-noselect assoc org-property-values "Value for " org-completing-read "[ 	]+" req-match org-completing-read-no-i org-set-property org-read-date "U" org-insert-time-stamp ("u" "U") ((partial-completion-mode 1)) "Enter string" " [" "%\\?" "^[^#\n]" "%&" org-jump-to-target-location make-directory auto-save-file-name-transforms "remember-%Y-%m-%d-%H-%M-%S" save-buffer auto-save-visited-file-name auto-save-mode "%!" add-hook post-command-hook org-remember-finish-immediately append] 10 (#$ . 14883)])
(defalias 'org-remember-escaped-% #[nil "\300\224Sf\301\232\205\300\224S\300\224|\210\302\207" [0 92 t] 2])
#@114 File remember note immediately.
This should be run in `post-command-hook' and will remove itself
from that hook.
(defalias 'org-remember-finish-immediately #[nil "\300\301\302\"\210\303 \207" [remove-hook post-command-hook org-remember-finish-immediately org-remember-finalize] 3 (#$ . 23383)])
#@114 File remember note immediately.
This should be run in `post-command-hook' and will remove itself
from that hook.
(defalias 'org-remember-visit-immediately #[nil "\301\302!\210\303`\212\304\305\211\")\306\305$\206`b\210\307\310\311\312\313!\"\"\207" [remember-register org-remember (16) text-property-any org-end-of-subtree t org-position-cursor message "%s" format substitute-command-keys "Restore window configuration with \\[jump-to-register] %c"] 5 (#$ . 23685)])
#@32 Finalize the remember process.
(defalias 'org-remember-finalize #[nil "\204\305\306!\210\307\310!\210\311\312!\204\313\312\314\"\210	\203A\315	!p\232\203A\315	!p\232\203A\n\316=\204;\n\203A\317\320!\203A\321\322 \210)\f\203H\323 \210\312 \207" [org-remember-mode org-clock-marker org-remember-clock-out-on-exit org-log-note-clock-out buffer-file-name error "This does not seem to be a remember buffer for Org-mode" run-hooks org-remember-before-finalize-hook fboundp remember-finalize defalias remember-buffer marker-buffer t y-or-n-p "The clock is running in this buffer.  Clock out now? " nil org-clock-out do-auto-save] 3 (#$ . 24161) nil])
#@37 Abort the current remember process.
(defalias 'org-remember-kill #[nil "\301\302 )\207" [org-note-abort t org-remember-finalize] 1 (#$ . 24824) nil])
#@605 Call `remember'.  If this is already a remember buffer, re-apply template.
If there is an active region, make sure remember uses it as initial content
of the remember buffer.

When called interactively with a \[universal-argument] prefix argument GOTO, don't remember
anything, just go to the file/headline where the selected template usually
stores its notes.  With a double prefix argument \[universal-argument] \[universal-argument], go to the last
note stored by remember.

Lisp programs can set ORG-FORCE-REMEMBER-TEMPLATE-CHAR to a character
associated with a template in `org-remember-templates'.
(defalias 'org-remember #[(&optional goto org-force-remember-template-char) "\306 \210\307\232\203\f\310 \207\311\232\203\312 \207	p\f\203A
G\313W\203(\314\315!\210\316 \210\317\320\"\317\321\"\322 \210*\323\324!\207\325 \203M\326`\327 {!\207\326 \207" [goto major-mode org-select-template-temp-major-mode org-select-template-original-buffer org-remember-mode org-remember-templates org-require-remember (4) org-go-to-remember-target (16) org-remember-goto-last-stored 2 error "No other template available" erase-buffer plist-get :annotation :initial org-remember-apply-template message "Press C-c C-c to remember data" org-region-active-p org-do-remember mark org-store-link-plist initial annotation] 4 (#$ . 24982) "P"])
#@72 Marker pointing to the entry most recently stored with `org-remember'.
(defvar org-remember-last-stored-marker (make-marker) (#$ . 26333))
#@61 Go to the location where the last remember note was stored.
(defalias 'org-remember-goto-last-stored #[nil "\301\302\"\210\303\304!\207" [org-remember-last-stored-marker org-goto-marker-or-bmk "org-remember-last-stored" message "This is the last note stored by remember"] 3 (#$ . 26478) nil])
#@89 Go to the target location of a remember template.
The user is queried for the template.
(defalias 'org-go-to-remember-target #[(&optional template-key) "\306\307	!\211A@\310\n8\306\203 ;\203 \311\312\"\204#\2033\313!\2043\314\"\f\203C\f;\203C\311\312\f\"\204F\315!\211\204R\316!\210\317
\206Z\320!!\210~\210eb\210\321\322\323\f!\"\306\324#\203u\325\224b\202y\326\327\f\"-\207" [org-select-template-temp-major-mode template-key entry file heading visiting nil org-select-remember-template 2 string-match "\\S-" file-name-absolute-p expand-file-name org-find-base-buffer-visiting find-file-noselect org-pop-to-buffer-same-window get-file-buffer re-search-forward format regexp-quote t 0 error "Target headline not found: %s" org-default-notes-file org-directory org-remember-default-headline org-complex-heading-regexp-format] 6 (#$ . 26778) nil])
#@1410 Store stuff from remember.el into an org file.
When the template has specified a file and a headline, the entry is filed
there, or in the location defined by `org-default-notes-file' and
`org-remember-default-headline'.
\<org-remember-mode-map>
If no defaults have been defined, or if the current prefix argument
is 1 (using C-1 \[org-remember-finalize] to exit remember), an interactive
process is used to select the target location.

When the prefix is 0 (i.e. when remember is exited with C-0 \[org-remember-finalize]),
the entry is filed to the same location as the previous note.

When the prefix is 2 (i.e. when remember is exited with C-2 \[org-remember-finalize]),
the entry is filed as a subentry of the entry where the clock is
currently running.

When \[universal-argument] has been used as prefix argument, the
note is stored and Emacs moves point to the new location of the
note, so that editing can be continued there (similar to
inserting "%&" into the template).

Before storing the note, the function ensures that the text has an
org-mode-style headline, i.e. a first line that starts with
a "*".  If not, a headline is constructed from the current date and
some additional data.

If the variable `org-adapt-indentation' is non-nil, the entire text is
also indented so that it starts in the same column as the headline
(i.e. after the stars).

See also the variable `org-reverse-note-order'.
(defalias 'org-remember-handler #[nil "\306\232\203\307	!\204\310\311!\210\312\302!\2032\n\2032d`T^`\fU\203*\fS\313\f\314\315$\210*eb\210\316\317!\203B\320\321!\210\2025
\203edb\210\322\323!\210\316\324!\203e`\323V\203e`Sd|\210\322\323!\210\202M\325\326\215\210\315\207" [current-prefix-arg org-clock-marker org-jump-to-target-location end beg org-remember-delete-empty-lines-at-end 2 marker-buffer error "No running clock" boundp put-text-property org-position-cursor t looking-at "^[ 	]*\n\\|^# .*\n" replace-match #1="" beginning-of-line 1 "[ 	]*$\\|[ 	]*# .*" quit (byte-code "\203	\306\307\310\"\210\311\301!\205	\205+\312!\313\314\f!!\232\205+\315\316\317!\"\205+\315\320\321 \"?\205J\322\323!\210
\203B\324\325\326\217\210\327\324!\210\306\307\310\"@ABC\330\235\205YDEC\331\232FC\332\232G\333C\334\232H\"\211I\203zJ\202\223K\335=\203\213L\203\213J\202\223E?\205\223\336 MNOM\205\242\337M!P\324\211QR\334S\324\211TU\324\211VW\324\211XYC\340\232\203\310\310E\203\344D@\211M\205\332\337M!PDAO\310IF\204\356G\203\303\341Z!!\211M\205\376\337M!P[O\310I\324C\\\203eb\210\342\343\324\310#\203\344\345!\210eb\210\321 Y\346]!\204M\347\350 \351\352 \353\260c\210\354u\210^\203M\342\355\324\310#\203M\356c\210\202?\\\203neb\210\342\357\324\310#\203d\344\360!\210\202n\342\361!\203n\344\362!\210eb\210\321 X\363ed\"\210\327\324!\210K\335=\203\266I\204\266\364\324P\206\225\365M!\"\210\n\203\241\366\367\324\370#\210\212\371\372!\210\373\374!\210_`\324\223\210)\306\307\310\"\210rP\206\300\365M!q\210\375\376!\204\327O\377\235\204\327\201j\201k!\210\212\214~\210\201l WO\203\337\375\376!\204(O\201m=\203\373eb\210\202db\210n\204\201n \210Yc\210`\203 \201o \210P\204 \201pp!\210\306\307\310\"\210\202\337O\201m=\203Oeb\210\346]!\204B\342]\324\310#\210\201q\224\206JeS\202\337O\201r=\203jdb\210n\204d\201n \210`S\202\337O\201s=\203\203\201tB!\210\324W`S\202\337O;\203\324\315\320O\"\203\324eb\210\342\201ua\201vO!\"\324\310#\203\260\201q\224S\202\337I\203\337db\210n\204\301\201n \210\347O\362\261\210\201w\201q!S\202\337eb\210`S\201mOI\203O\201x>\203STO\201m=\205\375\201yU\202bI\203ST\201zU\202bK\201{=\2031\201|pb\"\211TAUT@T\202bK\201}=\203Z\201~\310cL\201\201\200!T\201zU\332T8T*\202b\201j\201\201!\210T\204l\306\307\324\"\210\n\203x\366\201\202\324\370#\210Tb\210\201\203\310!\203n\201\204\310!\210d VU\201z=\203\201\205M!\201\206\201\207!BDW\203\265\201\210 \210\202\326\201\211\310!\210n\204\326\346\201\212!\203\320\201\213\331!\210\202\326\334\210\362c\210\201\214G\203\343V\202\352\201\215V\334\"X\"\210e\203\372\201\216\324\310\"\210\373\374!\210_`\324\223\210\202:U\201y=\2032\201\214VX\"\210e\203%\201\216\324\310\"\210\373\374!\210_`\324\223\210\202:U\201\217=\203c\201\211\310!\210\201\214VX\"\210e\203V\201\216\324\310\"\210\373\374!\210_`\324\223\210\202:\201j\201\201!\210\202:O\201r=\203\230\201\214\334X\"\210e\203\213\201\216\324\310\"\210\373\374!\210_`\324\223\210\202:o\203\327W\204\327\214~\210db\210n\204\260\201n \210\201\214\201\215\334\211\"X\"\210e\203\311\201\216\324\310\"\210\373\374!\210_`\324\223\210)\202:o\203W\203\214~\210eb\210\342f\324\310#\210\201\213\334!\210\201\214\334X\"\210e\203\201\216\324\310\"\210\373\374!\210_`\324\223\210)\202:\201\214C\247\205 CX\"\210e\2030\201\216\324\310\"\210\373\374!\210_`\324\223\210`\203X\201o \210P\204X\341Z!p\232\204X\201pp!\210g\203\222
\203j\324\201\220\201\221\217\210\f\203\222\201\222\f\324\201\223#Ghi\203\221h\201qV\203\221\322\201\224h\f#\210).\324\207" [org-note-abort org-jump-to-target-location visitp buffer-file-name org-remember-backup-directory backup-file throw quit t boundp file-name-directory file-name-as-directory expand-file-name string-match "^remember-[0-9]\\{4\\}" file-name-nondirectory "\\S-" buffer-string message "Nothing to remember" nil (byte-code "\301!\210\301\302P!\207" [backup-file delete-file "~"] 3) ((error)) set-buffer-modified-p ((16) 0) 2 3 org-xor 1 refile org-get-org-file org-find-base-buffer-visiting (4) marker-buffer re-search-forward "[ 	\n]+\\'" replace-match #1# looking-at "* " current-time-string " (" remember-buffer-desc ")\n" -1 "^" "  " "\n[ 	]*\n[ 	\n]*\\'" "\n\n" "[ 	\n]*\\'" "\n" org-save-markers-in-region org-refile find-file-noselect run-with-idle-timer 0.01 org-remember-visit-immediately bookmark-jump "org-refile-last-stored" bookmark-set "org-remember-last-stored" derived-mode-p org-mode (top bottom) dummy org-remember-reference-date reference-date current-prefix-arg org-remember-previous-location previousp clockp clocksp org-remember-store-without-prompt fastp org-default-notes-file org-remember-interactive-interface org-refile-targets file org-remember-default-headline heading visiting org-startup-folded org-startup-align-all-tables org-goto-start-pos spos exitcmd level reversed txt text-before-node-creation org-clock-marker org-clock-heading-for-remember org-remember-delete-empty-lines-at-end org-outline-regexp org-adapt-indentation org-remember-last-stored-marker remember-save-after-remembering org-complex-heading-regexp-format org-remember-help org-refile-use-outline-path outline-level org-auto-align-tags org-outline-regexp-bol org-remember-auto-remove-backup-files n org-remember-warn-about-backups error "Target files for notes must be in Org-mode if not filing to top/bottom" org-notes-order-reversed-p top newline save-buffer kill-buffer 0 bottom date-tree org-datetree-find-date-create format regexp-quote point-at-bol (top bottom) left return outline org-get-location outline-path-completion ((nil :maxlevel . 10)) org-refile-get-location "Heading" "This should not happen" 0.01 org-at-heading-p org-back-to-heading abbreviate-file-name org-get-heading notags outline-next-heading org-end-of-subtree "[ 	]*\n" beginning-of-line org-paste-subtree org-get-valid-level org-set-tags right (byte-code "\301!\210\301\302P!\207" [backup-file delete-file "~"] 3) ((error)) directory-files "^remember-.*[0-9]$" "%d backup files (unfinished remember calls) in %s"] 6)] 5 (#$ . 27670)])
#@16 Call remember.
(defalias 'org-do-remember #[(&optional initial) "\301!\207" [initial remember] 2 (#$ . 35434)])
#@75 Make sure remember is loaded, or install our own emergency version of it.
(defalias 'org-require-remember #[nil "\300\301\302\217\207" [nil (byte-code "\300\301!\207" [require remember] 2) ((error (byte-code "\300\301!\210\302\303!\210\304\303!\210\305\306!\210\307\310!\210\311\312!\210\313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\313\322\323\"\207" [(lambda (#1=#:def-tmp-var) (defvar remember-register #1#)) 82 (lambda (#1#) (defvar remember-mode-hook #1#)) nil (lambda (#1#) (defvar remember-handler-functions #1#)) (lambda (#1#) (defvar remember-buffer #1#)) "*Remember*" (lambda (#1#) (defvar remember-save-after-remembering #1#)) t (lambda (#1#) (defvar remember-annotation-functions #1#)) (buffer-file-name) defalias remember-finalize #[nil "\302\303!\210\304 \232\205\305p!\210\306	!\207" [remember-buffer remember-register run-hook-with-args-until-success remember-handler-functions buffer-name kill-buffer jump-to-register] 2] remember-mode #[nil "\301 \210\302\303\304!\207" [mode-name fundamental-mode "Remember" run-hooks remember-mode-hook] 2] remember #[(&optional initial) "\303!\210\304\305!\306\307\n!!\210\310 )\207" [remember-register annotation remember-buffer window-configuration-to-register run-hook-with-args-until-success remember-annotation-functions switch-to-buffer-other-window get-buffer-create remember-mode] 3] remember-buffer-desc #[nil "e\212eb\210\300 ){\207" [point-at-eol] 2]] 3)))] 3 (#$ . 35553)])
(provide 'org-remember)

MMCT - 2023