;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:58 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-capture.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!\207" [require org org-mks] 2)
#@49 Internal flag, noting if the clock was started.
(defvar org-capture-clock-was-started nil (#$ . 623))
#@71 Marker pointing to the entry most recently stored with `org-capture'.
(defvar org-capture-last-stored-marker (make-marker) (#$ . 731))
(defvar org-capture-link-is-already-stored nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\302\312\306\301\313\314\315\316&	\210\310\317\302\320\306\301\313\314\315\321&	\210\310\322\302\323\306\301\313\314\315\321&	\210\310\324\302\325\306\301\313\314\315\321&	\210\310\326\327\330\306\301\313\331\315\332&	\207" [custom-declare-group org-capture nil "Options concerning capturing new entries." :tag "Org Capture" :group org custom-declare-variable org-capture-templates "Templates for the creation of new entries.\n\nEach entry is a list with the following items:\n\nkeys         The keys that will select the template, as a string, characters\n             only, for example \"a\" for a template to be selected with a\n             single key, or \"bt\" for selection with two keys.  When using\n             several keys, keys using the same prefix key must be together\n             in the list and preceded by a 2-element entry explaining the\n             prefix key, for example\n\n                     (\"b\" \"Templates for marking stuff to buy\")\n\n             The \"C\" key is used by default for quick access to the\n             customization of the template variable.  But if you want to use\n             that key for a template, you can.\n\ndescription  A short string describing the template, will be shown during\n             selection.\n\ntype         The type of entry.  Valid types are:\n               entry       an Org-mode node, with a headline.  Will be\n                           filed as the child of the target entry or as\n                           a top-level entry.\n               item        a plain list item, will be placed in the\n                           first plain list at the target\n                           location.\n               checkitem   a checkbox item.  This differs from the\n                           plain list item only is so far as it uses a\n                           different default template.\n               table-line  a new line in the first table at target location.\n               plain       text to be inserted as it is.\n\ntarget       Specification of where the captured item should be placed.\n             In Org-mode files, targets usually define a node.  Entries will\n             become children of this node, other types will be added to the\n             table or list in the body of this node.\n\n             Most target specifications contain a file name.  If that file\n             name is the empty string, it defaults to `org-default-notes-file'.\n             A file can also be given as a variable, function, or Emacs Lisp\n             form.\n\n             Valid values are:\n\n             (file \"path/to/file\")\n                 Text will be placed at the beginning or end of that file\n\n             (id \"id of existing org entry\")\n                 File as child of this entry, or in the body of the entry\n\n             (file+headline \"path/to/file\" \"node headline\")\n                 Fast configuration if the target heading is unique in the file\n\n             (file+olp \"path/to/file\" \"Level 1 heading\" \"Level 2\" ...)\n                 For non-unique headings, the full path is safer\n\n             (file+regexp  \"path/to/file\" \"regexp to find location\")\n                 File to the entry matching regexp\n\n             (file+datetree \"path/to/file\")\n                 Will create a heading in a date tree for today's date\n\n             (file+datetree+prompt \"path/to/file\")\n                 Will create a heading in a date tree, prompts for date\n\n             (file+function \"path/to/file\" function-finding-location)\n                 A function to find the right location in the file\n\n             (clock)\n                File to the entry that is currently being clocked\n\n             (function function-finding-location)\n                Most general way, write your own function to find both\n                file and location\n\ntemplate     The template for creating the capture item.  If you leave this\n             empty, an appropriate default template will be used.  See below\n             for more details.  Instead of a string, this may also be one of\n\n                 (file \"/path/to/template-file\")\n                 (function function-returning-the-template)\n\n             in order to get a template from a file, or dynamically\n             from a function.\n\nThe rest of the entry is a property list of additional options.  Recognized\nproperties are:\n\n :prepend            Normally newly captured information will be appended at\n                     the target location (last child, last table line,\n                     last list item...).  Setting this property will\n                     change that.\n\n :immediate-finish   When set, do not offer to edit the information, just\n                     file it away immediately.  This makes sense if the\n                     template only needs information that can be added\n                     automatically.\n\n :empty-lines        Set this to the number of lines the should be inserted\n                     before and after the new item.  Default 0, only common\n                     other value is 1.\n\n :empty-lines-before Set this to the number of lines the should be inserted\n                     before the new item.  Overrides :empty-lines for the\n                     number lines inserted before.\n\n :empty-lines-after  Set this to the number of lines the should be inserted\n                     after the new item.  Overrides :empty-lines for the\n                     number of lines inserted after.\n\n :clock-in           Start the clock in this item.\n\n :clock-keep         Keep the clock running when filing the captured entry.\n\n :clock-resume       Start the interrupted clock when finishing the capture.\n                     Note that :clock-keep has precedence over :clock-resume.\n                     When setting both to `t', the current clock will run and\n                     the previous one will not be resumed.\n\n :unnarrowed         Do not narrow the target buffer, simply show the\n                     full buffer.  Default is to narrow it so that you\n                     only see the new stuff.\n\n :table-line-pos     Specification of the location in the table where the\n                     new line should be inserted.  It should be a string like\n                     \"II-3\", meaning that the new line should become the\n                     third line before the second horizontal separator line.\n\n :kill-buffer        If the target file was not yet visited by a buffer when\n                     capture was invoked, kill the buffer again after capture\n                     is finalized.\n\nThe template defines the text to be inserted.  Often this is an\norg-mode entry (so the first line should start with a star) that\nwill be filed as a child of the target headline.  It can also be\nfreely formatted text.  Furthermore, the following %-escapes will\nbe replaced with content and expanded in this order:\n\n  %[pathname] Insert the contents of the file given by `pathname'.\n  %(sexp)     Evaluate elisp `(sexp)' and replace with the result.\n  %<...>      The result of format-time-string on the ... format specification.\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  %i          Initial content, copied from the active region.  If %i is\n              indented, the entire inserted text will be indented as well.\n  %a          Annotation, normally the link created with `org-store-link'.\n  %A          Like %a, but prompt for the description part.\n  %l          Like %a, but only insert the literal link.\n  %c          Current kill ring head.\n  %x          Content of the X clipboard.\n  %k          Title of currently clocked task.\n  %K          Link to currently clocked task.\n  %n          User name (taken from `user-full-name').\n  %f          File visited by current buffer when org-capture was called.\n  %F          Full path of the file or directory visited by current buffer.\n  %:keyword   Specific information for certain link types, see below.\n  %^g         Prompt for tags, with completion on tags in target file.\n  %^G         Prompt for tags, with completion on all tags in all agenda files.\n  %^t         Like %t, but prompt for date.  Similarly %^T, %^u, %^U.\n              You may define a prompt like: %^{Please specify birthday}t\n  %^C         Interactive selection of which kill or clip to use.\n  %^L         Like %^C, but insert as link.\n  %^{prop}p   Prompt the user for a value for property `prop'.\n  %^{prompt}  Prompt the user for a string and replace this sequence with it.\n              A default value and a completion table ca be specified like this:\n              %^{prompt|default|completion2|completion3|...}.\n  %?          After completing the template, position cursor here.\n  %\\n         Insert the text entered at the nth %^{prompt}, where `n' is\n              a number, starting from 1.\n\nApart from these general escapes, you can access information specific to\nthe link type that is created.  For example, calling `org-capture' in emails\nor in Gnus will record the author and the subject of the message, which you\ncan access with \"%:from\" and \"%:subject\", respectively.  Here is a\ncomplete list of what is recorded for each link type.\n\nLink type               |  Available information\n------------------------+------------------------------------------------------\nbbdb                    |  %:type %:name %:company\nvm, wl, mh, mew, rmail, |  %:type %:subject %:message-id\ngnus                    |  %:from %:fromname %:fromaddress\n                        |  %:to   %:toname   %:toaddress\n                        |  %:fromto (either \"to NAME\" or \"from NAME\")\n                        |  %:date %:date-timestamp (as active timestamp)\n                        |  %:date-timestamp-inactive (as inactive timestamp)\ngnus                    |  %:group, for messages also all email fields\nw3, w3m                 |  %:type %:url\ninfo                    |  %:type %:file %:node\ncalendar                |  %:type %:date" :version "24.1" :type (repeat (choice :value (#1="" #1# entry (file "~/org/notes.org") #1#) (list :tag "Multikey description" (string :tag "Keys       ") (string :tag "Description")) (list :tag "Template entry" (string :tag "Keys           ") (string :tag "Description    ") (choice :tag "Capture Type   " :value entry (const :tag "Org entry" entry) (const :tag "Plain list item" item) (const :tag "Checkbox item" checkitem) (const :tag "Plain text" plain) (const :tag "Table line" table-line)) (choice :tag "Target location" (list :tag "File" (const :format #1# file) (file :tag "  File")) (list :tag "ID" (const :format #1# id) (string :tag "  ID")) (list :tag "File & Headline" (const :format #1# file+headline) (file :tag "  File    ") (string :tag "  Headline")) (list :tag "File & Outline path" (const :format #1# file+olp) (file :tag "  File    ") (repeat :tag "Outline path" :inline t (string :tag "Headline"))) (list :tag "File & Regexp" (const :format #1# file+regexp) (file :tag "  File  ") (regexp :tag "  Regexp")) (list :tag "File & Date tree" (const :format #1# file+datetree) (file :tag "  File")) (list :tag "File & Date tree, prompt for date" (const :format #1# file+datetree+prompt) (file :tag "  File")) (list :tag "File & function" (const :format #1# file+function) (file :tag "  File    ") (sexp :tag "  Function")) (list :tag "Current clocking task" (const :format #1# clock)) (list :tag "Function" (const :format #1# function) (sexp :tag "  Function"))) (choice :tag "Template" (string) (list :tag "File" (const :format #1# file) (file :tag "Template file")) (list :tag "Function" (const :format #1# function) (function :tag "Template function"))) (plist :inline t :options (((const :format "%v " :prepend) (const t)) ((const :format "%v " :immediate-finish) (const t)) ((const :format "%v " :empty-lines) (const 1)) ((const :format "%v " :clock-in) (const t)) ((const :format "%v " :clock-keep) (const t)) ((const :format "%v " :clock-resume) (const t)) ((const :format "%v " :unnarrowed) (const t)) ((const :format "%v " :kill-buffer) (const t))))))) org-capture-before-finalize-hook "Hook that is run right before a capture process is finalized.\nThe capture buffer is still current when this hook runs and it is\nwidened to the entire buffer." hook org-capture-after-finalize-hook "Hook that is run right after a capture process is finalized.\nSuitable for window cleanup." org-capture-prepare-finalize-hook "Hook that is run before the finalization starts.\nThe capture buffer is current and still narrowed." org-capture-bookmark t "When non-nil, add a bookmark pointing at the last stored\nposition when capturing." "24.3" boolean] 10)
#@76 Plist for the current capture process, global, to avoid having to pass it.
(defvar org-capture-plist nil (#$ . 13851))
#@352 Local variable holding the plist in a capture buffer.
This is used to store the plist for use when finishing a capture process
because another such process might have changed the global variable by then.

Each time a new capture buffer has been set up, the global `org-capture-plist'
is copied to this variable, which is local in the indirect buffer.
(defvar org-capture-current-plist nil (#$ . 13977))
#@134 Local variable to store the value of the :clock-keep parameter.
This is needed in case org-capture-finalize is called interactively.
(defvar org-capture-clock-keep nil (#$ . 14387))
#@66 Add properties to the capture property list `org-capture-plist'.
(defalias 'org-capture-put #[(&rest stuff) "\205\302	\211A@\211A@#\202\207" [stuff org-capture-plist plist-put] 5 (#$ . 14575)])
#@258 Get properties from the capture property list `org-capture-plist'.
When LOCAL is set, use the local variable `org-capture-current-plist',
this is necessary after initialization of the capture process,
to avoid conflicts with other active capture processes.
(defalias 'org-capture-get #[(prop &optional local) "\304\203		\202\n\n\"\207" [local org-capture-current-plist org-capture-plist prop plist-get] 3 (#$ . 14786)])
#@234 Is PROP a property in `org-capture-plist'.
When LOCAL is set, use the local variable `org-capture-current-plist',
this is necessary after initialization of the capture process,
to avoid conflicts with other active capture processes.
(defalias 'org-capture-member #[(prop &optional local) "\304\203		\202\n\n\"\207" [local org-capture-current-plist org-capture-plist prop plist-get] 3 (#$ . 15217)])
#@137 Keymap for `org-capture-mode', a minor mode.
Use this map to set additional keybindings for when Org-mode is used
for a capture buffer.
(defvar org-capture-mode-map (make-sparse-keymap) (#$ . 15627))
#@40 Hook for the minor `org-capture-mode'.
(defvar org-capture-mode-hook nil (#$ . 15833))
#@101 Non-nil if Org-Capture mode is enabled.
Use the command `org-capture-mode' to change this variable.
(defvar org-capture-mode nil (#$ . 15927))
(make-variable-buffer-local 'org-capture-mode)
#@126 Minor mode for special key bindings in a capture buffer.

Turning on this mode runs the normal hook `org-capture-mode-hook'.
(defalias 'org-capture-mode #[(&optional arg) "\305 	\306=\203\n?\202\307	!\310V\311\312\313\f!L\210*\314\315\n\203)\316\202*\317\"\210\320\321!\203K\305 \203>\305 \232\203K\322\323\n\203H\324\202I\325\"\210)\326 \210\n\207" [#1=#:last-message arg org-capture-mode value var current-message toggle prefix-numeric-value 0 header-line-format "Capture buffer.  Finish `C-c C-c', refile `C-c C-w', abort `C-c C-k'." make-local-variable run-hooks org-capture-mode-hook org-capture-mode-on-hook org-capture-mode-off-hook called-interactively-p any message "Org-Capture mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 16124) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\210\305\306\307#\210\305\310\311#\210\305\312\313#\207" [org-capture-mode-map add-minor-mode org-capture-mode " Rem" nil define-key "" org-capture-finalize "" org-capture-kill "" org-capture-refile] 6)
(defvar org-capture-initial nil)
(defvar org-capture-entry nil)
(defalias 'org-capture-string #[(string &optional keys) "\304	!\305 *\207" [string keys org-capture-entry org-capture-initial org-capture-select-template org-capture] 3 nil "sInitial text: \n"])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\306\307\304\305\310\314&	\207" [custom-declare-variable org-capture-templates-contexts nil "Alist of capture templates and valid contexts.\n\nFor example, if you have a capture template \"c\" and you want\nthis template to be accessible only from `message-mode' buffers,\nuse this:\n\n   '((\"c\" ((in-mode . \"message-mode\"))))\n\nHere are the available contexts definitions:\n\n      in-file: command displayed only in matching files\n      in-mode: command displayed only in matching modes\n  not-in-file: command not displayed in matching files\n  not-in-mode: command not displayed in matching modes\n   [function]: a custom function taking no argument\n\nIf you define several checks, the agenda command will be\naccessible if there is at least one valid check.\n\nYou can also bind a key to another agenda custom command\ndepending on contextual rules.\n\n    '((\"c\" \"d\" ((in-mode . \"message-mode\"))))\n\nHere it means: in `message-mode buffers', use \"c\" as the\nkey for the capture template otherwise associated with \"d\".\n(The template originally associated with \"d\" is not displayed\nto avoid duplicates.)" :version "24.3" :group org-capture :type (repeat (list :tag "Rule" (string :tag "        Capture key") (string :tag "Replace by template") (repeat :tag "Available when" (choice (cons :tag "Condition" (choice (const :tag "In file" in-file) (const :tag "Not in file" not-in-file) (const :tag "In mode" in-mode) (const :tag "Not in mode" not-in-mode)) (regexp)) (function :tag "Custom function"))))) org-capture-use-agenda-date "Non-nil means use the date at point when capturing from agendas.\nWhen nil, you can still capturing using the date at point with \\[org-agenda-capture]]." boolean] 10)
#@1007 Capture something.
\<org-capture-mode-map>
This will let you select a template from `org-capture-templates', and then
file the newly captured information.  The text is immediately inserted
at the target location, and an indirect buffer is shown where you can
edit it.  Pressing \[org-capture-finalize] brings you back to the previous state
of Emacs, so that you can continue your work.

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

When called with a `C-0' (zero) prefix, insert a template at point.

Lisp programs can set KEYS to a string associated with a template
in `org-capture-templates'.  In this case, interactive selection
will be bypassed.

If `org-capture-use-agenda-date' is non-nil, capturing from the
agenda will use the date at point as the default date.
(defalias 'org-capture #[(&optional goto keys) "\203
	\306=\203
\307 \310\232\203\311 \207\312\232\203\313 \207p\314\305!\2033
\2033\315<\316\"\2027\317\320\321\217=>\206B\322?!@\317AB\206U\323 \205U`\324 {\211A;\203f\325\326AG\327A$\210=;\203v\325\326=G\330=$\210@\331\232\203\203\332\333!\202
@\334\232\203\220\335\336!\202
\337@!\210\340 \210\341\342\f\343\344\f!\206\256\345\346!\205\256\347\fC\"@\350\344\f!\205\272\351\344\f!!\316=\352A&\n\210\341\353\n\206\313\354 \"\210\355 \210\335\356\357\217\210\360\361!D\326\232\203\345\362 \202
\335\363\364\217\210\365\366!\203\373\360\367!\203\373\317\370\371\217\210\360\372!\205
\373\317!,\207" [org-capture-use-agenda-date major-mode org-overriding-default-time goto orig-buf org-capture-link-is-already-stored org-agenda-mode org-get-cursor-date (4) org-capture-goto-target (16) org-capture-goto-last-stored boundp plist-get :annotation nil (org-store-link nil) ((error)) org-capture-select-template org-region-active-p mark remove-text-properties 0 (read-only t) (read-only t) "C" customize-variable org-capture-templates "q" error "Abort" org-capture-set-plist org-capture-get-template org-capture-put :original-buffer :original-file buffer-file-name featurep dired rassq :original-file-nondirectory file-name-nondirectory :initial :default-time org-current-time org-capture-set-target-location (byte-code "\300\301\302 \"\207" [org-capture-put :template org-capture-fill-template] 3) (((error quit) (byte-code "\301\302!\203\n\303\302!\210\300\304\"\207" [error get-buffer "*Capture*" kill-buffer "Capture abort: %s"] 3))) org-capture-get :clock-keep org-capture-insert-template-here (org-capture-place-template) (((error quit) (byte-code "\301p!\203\302\303\304 \"\203\305p!\210\306\307\310!!\210\300\311\307\312!A@#\207" [error buffer-base-buffer string-match "\\`CAPTURE-" buffer-name kill-buffer set-window-configuration org-capture-get :return-to-wconf "Capture template `%s': %s" :key] 4))) derived-mode-p org-mode :clock-in (byte-code "\303 \203\f\304\305\306!\"\210\307 \210\310\311\312\n!	L\210*\303\207" [org-clock-marker value var org-clock-is-active org-capture-put :interrupted-clock copy-marker org-clock-in org-capture-clock-was-started t make-local-variable] 4) ((error)) :immediate-finish org-capture-finalize org-store-link-plist annotation org-capture-entry keys entry initial org-capture-initial dired-buffers org-capture-clock-keep] 12 (#$ . 19249) "P"])
#@58 Get the template from a file or a function if necessary.
(defalias 'org-capture-get-template #[nil "\303\304!\305\211<\2030	@\300=\2030\306\307	A@\n\"\211!\203&\310!\202f\311\312	A@\"\202f	<\203V	@\313=\203V\314	A@!\203L	A@ \202f\311\315	A@\"\202f	\204_\316\202f	;\204f\317\320\304	\"*\207" [file txt org-directory org-capture-get :template nil file-exists-p expand-file-name org-file-contents format "* Template file %s not found" function fboundp "* Template function %s not found" "" "* Invalid capture template" org-capture-put] 5 (#$ . 22758)])
#@131 Finalize the capture process.
With prefix argument STAY-WITH-CAPTURE, jump to the location of the
captured item after finalizing.
(defalias 'org-capture-finalize #[(&optional stay-with-capture) "\203\n\306p!\204\307\310!\210\311\312!\210	\203\205\n\203\205\313\n!\203\205\313\n!\306 \232\203\205\neV\203\205\ndW\203\205\204?\314\315 \210)\204\205\316\317\320\"\203\205\321\316\322\320\"!\203\205\323\313\316\322\320\"!!\203\205\316\322\320\"\211@\212\321@!\203t\313@!q\210\212@\206{`b\210\324 \210,\325\326!\210ed\314ABC\327\330deZ\"\210~\210\327\331`\"\210D\203\374\316\332\320\"\316\333\320\"E\211F\203\365E\203\365FCU\203\365EBU\203\365\334\335G\"A\203\324E\202\327ETEdEW\203\344d\202\346EE\336A\337FE\"\210\202\370\340A*\202i
dBV\203+
\316\341\320\"\342\235\203+
\212Bb\210n\204
\343 \210\344\316\345\320\"\206(
\316\346\320\"\206(
\347!\210)\350\351!\203]
\212\314\352\353\217\203?
\354 \210\355 \210)\316\341\320\"\356=\203]
\357 \203]
\360 \203Z
\361\362!\210\202]
\363 \210H\203e
\364 \210\311\365!\210\316\366!\203y
\212\316\366!b\210\367 \210)\370 \210\316\371\320\"\316\372\320\"\316\373\320\"\306p!I<JK\374p!\210r\316\375!q\210\316\376!\316\377!\316\331!\316\330!LMN\211O\203MO@W\203\317
LO@\\LOA\\}\210\202\356
MOAV\203\343
O@OA}\210\202\356
O@LOA\\}\210MO@W\203
LN\\b\210\202MNW\203LN\\\202Nb\210-I\2033J\2033<\2033rIq\210\370 \210)\374I!\210\201QK!\210,\311\201R!\210A\203fA\336\232\203V\325\201S!\210\202pA\340\232\203p\307\201T!\210\202pP\203p\201U \210A+?\207" [org-capture-mode org-capture-clock-was-started org-clock-marker org-capture-clock-keep org-log-note-clock-out clock-in-task buffer-base-buffer error "This does not seem to be a capture buffer for Org-mode" run-hooks org-capture-prepare-finalize-hook marker-buffer nil org-clock-out org-capture-get :clock-resume local markerp :interrupted-clock buffer-live-p org-clock-in message "Interrupted clock has been resumed" org-capture-put :captured-entry-size :insertion-point :begin-marker :end-marker assoc heading clean kill-region dirty :type (entry item checkitem plain) newline org-capture-empty-lines-after :empty-lines-after :empty-lines 0 derived-mode-p org-mode (org-back-to-heading) ((error)) org-update-parent-todo-statistics org-update-checkbox-count table-line org-at-table-p org-table-get-stored-formulas org-table-recalculate all org-table-align org-capture-bookmark-last-stored-position org-capture-before-finalize-hook :decrypted org-encrypt-entry save-buffer :return-to-wconf :new-buffer :kill-buffer kill-buffer :buffer :initial-target-region :initial-target-position #1=#:--mpom abort-note end beg org-note-abort m2 m1 org-blank-before-new-entry org-capture-bookmark base-buffer new-buffer return-wconf size ipt pos reg stay-with-capture set-window-configuration org-capture-after-finalize-hook "Capture process aborted and target buffer cleaned up" "Capture process aborted, but target buffer could not be cleaned up correctly" org-capture-goto-last-stored] 6 (#$ . 23338) "P"])
#@205 Finalize the current capture and then refile the entry.
Refiling is done from the base buffer, because the indirect buffer is then
already gone.  Any prefix argument will be passed to the refile command.
(defalias 'org-capture-refile #[nil "\304\305\306\"\307=\204
\310\311!\210`\312p!\313\314 \210\315 \316\216r	\206#pq\210\212\214~\210\nb\210\317\320!.\207" [org-refile-for-capture base pos #1=#:wconfig org-capture-get :type local entry error "Refiling from a capture buffer makes only sense for `entry'-type templates" buffer-base-buffer t org-capture-finalize current-window-configuration ((set-window-configuration #1#)) call-interactively org-refile] 3 (#$ . 26445) nil])
#@36 Abort the current capture process.
(defalias 'org-capture-kill #[nil "\302\303\304 *\207" [org-capture-before-finalize-hook org-note-abort t nil org-capture-finalize] 2 (#$ . 27137) nil])
#@60 Go to the location where the last capture note was stored.
(defalias 'org-capture-goto-last-stored #[nil "\301\302\"\210\303\304!\207" [org-capture-last-stored-marker org-goto-marker-or-bmk "org-capture-last-stored" message "This is the last note stored by a capture process"] 3 (#$ . 27333) nil])
#@50 Store the initial region with `org-capture-put'.
(defalias 'org-capture-put-target-region-and-position #[nil "\300\301\302 deZU?\205edB\"\210\300\303`\"\207" [org-capture-put :initial-target-region buffer-size :initial-target-position] 5 (#$ . 27638)])
#@75 Find TARGET buffer and position.
Store them in the capture property list.
(defalias 'org-capture-set-target-location #[(&optional target) "\306\307\n\206\310\311!\212\n@\312=\203%\313\nA@!q\210\314 \210~\210\307\202!\n@\315=\203S\316\nA@!\211\204@\317\320\nA@\"\210\202O\313@!q\210~\210\314 \210Ab\210)\202!\n@\321=\203\244\313\nA@!q\210\314 \210~\210\322\n8eb\210\323\324!\204x\317\325p\"\210\326\327
\330\f!\"\307\306#\203\214\331 b\210\202\240db\210n\204\226\332c\210\333\f\332\261\210\334\335!\210)\202!\n@\336=\203\317\337\340\nA@!\n\211@AA)B!A\341A!q\210\314 \210~\210Ab\210)\202!\n@\342=\203
\313\nA@!q\210\314 \210~\210eb\210\326\322\n8\307\306#\203
\310\343!\203\372\335\224\202\374\335\225b\210\344\345`\"\210\323\324!\205
\346 \202!\317\347\nA@\"\210\202!\n@\350>\203\241
\351\352!\210\313\nA@!q\210\314 \210~\210\353\354B\203>
\355B!\202\233
\n@\356=\203\231
\357\307\306\307\360\361 %C\344\362D\204p
\355C!\363 U\204p
\364\365\366\367\370C!AAA\"\"\202\217
\371\372E\"\203\215
\364\365\373\374\375\307\211E$C\370C!#\"\202\217
C\"\210\355C!)\202\233
\363 !!\210\202!\n@\376=\203\312
\313\nA@!q\210\314 \210~\210\322\n8 \210\344\345`\"\210\323\324!\205\306
\346 \202!\n@\377=\203\347
\nA@ \210\344\345`\"\210\323\324!\205\343
\346 \202!\n@\201G=\203\201HF!\203\341F!\203\341F!q\210\314 \210~\210Fb\210\202!\317\201I!\210\202!\317\201J!\210\201K\201L!\203C\201M \203C\201N \210\212\201O\306!\205A`)\344\201Pp\201Q`\201R	\201S&+\207" [decrypted-hl-pos target-entry-p target loc hd org-complex-heading-regexp-format t nil org-capture-get :target file org-capture-target-buffer org-capture-put-target-region-and-position id org-id-find error "Cannot find target ID \"%s\"" file+headline 2 derived-mode-p org-mode "Target buffer \"%s\" for file+headline should be in Org mode" re-search-forward format regexp-quote point-at-bol "\n" "* " beginning-of-line 0 file+olp org-find-olp org-capture-expand-file marker-buffer file+regexp :prepend org-capture-put :exact-position org-at-heading-p "No match for target regexp in file %s" (file+datetree file+datetree+prompt) require org-datetree org-datetree-find-date-create calendar-gregorian-from-absolute time-to-days file+datetree+prompt org-read-date "Date for tree entry:" current-time :default-time org-today apply encode-time append (0 0 0) decode-time string-match "\\([^ ]+\\)--?[^ ]+[ ]+\\(.*\\)" org-read-date-analyze replace-match "\\1 \\2" file+function function x m org-overriding-default-time prompt-time org-time-was-given org-read-date-final-answer org-clock-hd-marker clock markerp "No running clock that could be used as capture target" "Invalid capture target specification" featurep org-crypt org-at-encrypted-entry-p org-decrypt-entry org-back-to-heading :buffer :pos :target-entry-p :decrypted] 13 (#$ . 27899)])
#@176 Expand functions and symbols for FILE.
When FILE is a function, call it.  When it is a form, evaluate
it.  When it is a variable, retrieve the value.  Return whatever we get.
(defalias 'org-capture-expand-file #[(file) "\301!\203\207\302!\203 \2079\203\303!\203J\207\203,:\203,\304!\207\207" [file org-string-nw-p functionp boundp eval] 2 (#$ . 30774)])
#@24 Get a buffer for FILE.
(defalias 'org-capture-target-buffer #[(file) "\303!\304!\206	\206\305\306!\307!\206#\310\311\312\"\210\313\314\n\"!\207" [file org-default-notes-file org-directory org-capture-expand-file org-string-nw-p error "No notes file specified, and no default available" org-find-base-buffer-visiting org-capture-put :new-buffer t find-file-noselect expand-file-name] 4 (#$ . 31155)])
#@35 Install Org-mode local variables.
(defalias 'org-capture-steal-local-variables #[(buffer) "\301\302\303!\"\207" [buffer mapc #[(v) "\300\301\302\217\207" [nil (byte-code "@A\303\n!	L*\207" [v value var make-local-variable] 2) ((error))] 3] buffer-local-variables] 4 (#$ . 31572)])
#@69 Insert the template at the target location, and display the buffer.
(defalias 'org-capture-place-template #[nil "\305\306\307 \"\210\310 \210\311\312\313\314!\315\"!\210~\210\316 \210\313\317!b\210\320\321 \322	!L\210*\323\324\322	!L\210*\313\325!\313\326!\327\330\"\203H\331 \210\202y\332\333\"\203U\334 \210\202y\332\335\"\203b\336 \210\202y\332\337\"\203o\340 \210\202y\332\341\"\203y\340 \210*\342\343!\210\344\f\322	!L*\207" [value var template type org-capture-plist org-capture-put :return-to-wconf current-window-configuration delete-other-windows org-switch-to-buffer-other-window org-capture-get-indirect-buffer org-capture-get :buffer "CAPTURE" show-all :pos org-capture-target-marker point-marker make-local-variable outline-level org-outline-level :template :type memql (nil entry) org-capture-place-entry eql table-line org-capture-place-table-line plain org-capture-place-plain-text item org-capture-place-item checkitem org-capture-mode 1 org-capture-current-plist] 4 (#$ . 31864)])
#@40 Place the template as a new Org entry.
(defalias 'org-capture-place-entry #[nil "\306\307!\306\310!\306\311!\312\211\312\211#\306\313!\203#\306\313!b\210\202z\n\204H\314	\203;eb\210\315 \204z\316 \210\202zdb\210n\204z\317c\210\202z\320\321!\203T\322\225\322\224Z\323\206Z\314\314\"	\203n\316 \210n\204z\317c\210\202z\324\325\312\"\210n\204z\317c\210\326 \210`\327!\210\330\331#\210\332\314!\210\333\f!\210\316 \210`\334\f
S\"\210\335\f
S\"\210\336\337\f\325#\204\262\340\337
\325#\205\265\341\342!.\207" [txt reversed target-entry-p level beg end org-capture-get :template :prepend :target-entry-p nil :exact-position 1 org-at-heading-p outline-next-heading "\n" looking-at "\\*+" 0 org-get-valid-level org-end-of-subtree t org-capture-empty-lines-before org-capture-verify-tree org-paste-subtree for-yank org-capture-empty-lines-after org-capture-position-for-last-stored org-capture-mark-kill-region org-capture-narrow re-search-backward "%\\?" re-search-forward replace-match "" file] 5 (#$ . 32894)])
#@46 Place the template as a new plain list item.
(defalias 'org-capture-place-item #[nil "\305\306!\305\307!\310\311\211\305\312!\203\305\312!b\210\202q	\204'ed\2022\313 T\212\314 \210`)\305\315!\203Xb\210\316\317\320 P\f\321#\203P\310\224b\210\322 \202q\fb\210\310\202q\fb\210\323\317\320 P\321#\203o\322 \324 \210\202q\310\325!\326\327\320 P\"\204\212\330\331\332\333\334\"\335#P\336\n\337\"\211\331\332\333\334\"\334\nP#\334Q\340 \210`c\210n\204\254\334c\210\341\342!\210\343!\210\342u\210`\344\fS\"\210\345\fS\"\210\346\347\321#\204\325\350\347\f\321#\205\330\351\352!-\207" [txt target-entry-p ind beg end org-capture-get :template :target-entry-p 0 nil :exact-position point-at-eol outline-next-heading :prepend org-list-search-forward "^" org-item-re t org-get-indentation org-list-search-backward org-end-of-item org-remove-indentation string-match "\\`" "- " mapconcat identity split-string "\n" "\n  " make-string 32 org-capture-empty-lines-before org-capture-empty-lines-after 1 org-capture-position-for-last-stored org-capture-mark-kill-region org-capture-narrow re-search-backward "%\\?" re-search-forward replace-match ""] 7 (#$ . 33938)])
#@37 Place the template as a table line.
(defalias 'org-capture-place-table-line #[nil "\306\307!\210\310\311!\310\312!\310\313!\314\211\314\310\315!\203$\310\315!b\210\202:	\204/ed\202:\316 T\212\317 \210`)\3201
\321#\203d\322 \323 \3212343b\210\324\325!\203[\326y\2104`}\210+\202o
b\210\327c\210
T`}\210\3301\"\204y\331\n\203\346\330\332\n\"\203\346eb\210\326\225\326\224Z\333\334\335\n\"!\314567\336 \210\314\337\340\217\2115\204\253\341\342\n\"\210\34356\211\344W\203\272\344\202\273\345#\21158\214~\210eb\2108Sy\210*\346\347!\210\350\326!\210`\316 T|\210`c\210`+\202?
\310\351!\203
eb\210\3209\314\321#\210\350\326!\210\3201\314\321#\210\350\326!\210`\346 \210\350\326!\210`\316 T|\210c\210`\202?
db\210\3521\314\321#\210\350\326!\210\346\347!\210\350\326!\210`\316 T|\210`c\210`\fb\210\353\354!\210\352\355\f\321#\204V
\320\355
\321#\203Z
\356\357!\210\360 .\207" [txt target-entry-p table-line-pos ind beg end require org-table org-capture-get :template :target-entry-p :table-line-pos nil :exact-position point-at-eol outline-next-heading re-search-forward t org-table-begin org-table-end looking-at "[ 	]*#\\+tblfm:" 1 "\n|   |\n|----|\n|    |\n" string-match "| %?Bad template |\n" "\\(I+\\)\\([-+][0-9]\\)" string-to-number match-string 2 org-table-get-specials (aref org-table-hlines nh) ((error)) error "Invalid table line specification \"%s\"" + 0 -1 org-table-insert-row below beginning-of-line :prepend re-search-backward org-capture-position-for-last-stored table-line "%\\?" replace-match "" org-table-align org-table-dataline-regexp case-fold-search e b ll delta nh N org-table-hline-regexp] 6 (#$ . 35139)])
#@277 Place the template plainly.
If the target locator points at an Org node, place the template into
the text of the entry, before the first child.  If not, place the
template at the beginning or end of the file.
Of course, if exact position has been required, just put it there.
(defalias 'org-capture-place-plain-text #[nil "\304\305!\306\211\304\307!\203\304\307!b\210\202E\304\310!\2038n\2038\311!\2038\304\312!\2032\313 \210\202E\314 \210\202E\304\312!\203Be\202Cdb\210n\204L\315 \210\316 \210`c\210\317\320!\210\321	!\210`\322	\nS\"\210\323	\nS\"\210\324\325	\326#\204z\327\325\n\326#\205}\330\331!+\207" [txt beg end org-outline-regexp org-capture-get :template nil :exact-position :target-entry-p looking-at :prepend org-end-of-meta-data-and-drawers outline-next-heading newline org-capture-empty-lines-before org-capture-empty-lines-after 1 org-capture-position-for-last-stored org-capture-mark-kill-region org-capture-narrow re-search-backward "%\\?" t re-search-forward replace-match ""] 5 (#$ . 36824)])
#@68 Mark the region that will have to be killed when aborting capture.
(defalias 'org-capture-mark-kill-region #[(beg end) "\304 \305\223\304 	\305\223\306\307\"\210\306\310\n\"*\207" [beg end m2 m1 make-marker nil org-capture-put :begin-marker :end-marker] 4 (#$ . 37863)])
#@78 Memorize the position that should later become the position of last capture.
(defalias 'org-capture-position-for-last-stored #[(where) "\250\203\301\302\303 \304p!\206p\223\"\207\305=\203\"\301\302\305\306 D\"\207\307\310!\207" [where org-capture-put :position-for-last-stored make-marker buffer-base-buffer table-line org-table-current-dline error "This should not happen"] 6 (#$ . 38144)])
#@38 Bookmark the last-captured position.
(defalias 'org-capture-bookmark-last-stored-position #[nil "\305\306\307\"\310!\203\311!\312\211\223\210\2025<\2055@\313=\2055\314 \2034\212\315A@!\210\316 )\2025`r\317p!q\210\212\214~\210	b\210\320\203O\n \210\202T\321\322\323\217\210)\f`\312\223-\207" [where pos #1=#:body debug-on-error org-capture-last-stored-marker org-capture-get :position-for-last-stored local markerp marker-position nil table-line org-at-table-p org-table-goto-line point-at-bol buffer-base-buffer #[nil "\300\301!\207" [bookmark-set "org-capture-last-stored"] 2] #2=#:err (funcall #1#) ((error (message "Error: %S" #2#)))] 4 (#$ . 38550)])
#@50 Narrow, unless configuration says not to narrow.
(defalias 'org-capture-narrow #[(beg end) "\302\303!?\205
	}\210b\207" [beg end org-capture-get :unnarrowed] 2 (#$ . 39230)])
#@147 Arrange for the correct number of empty lines before the insertion point.
Point will be after the empty lines, so insertion can directly be done.
(defalias 'org-capture-empty-lines-before #[(&optional n) "\206\302\303!\206\302\304!\206\305`\306 \210`	|\210\305V\205$\307!)\207" [n pos org-capture-get :empty-lines-before :empty-lines 0 org-back-over-empty-lines newline] 2 (#$ . 39415)])
#@135 Arrange for the correct number of empty lines after the inserted string.
Point will remain at the first line after the inserted text.
(defalias 'org-capture-empty-lines-after #[(&optional n) "\206\302\303!\206\302\304!\206\305\306 \210\307\310!\203\"\311\312!\210\202`\305V\203.\313!\210	b)\207" [n pos org-capture-get :empty-lines-after :empty-lines 0 org-back-over-empty-lines looking-at "[ 	]*\n" replace-match "" newline] 2 (#$ . 39822)])
(defalias 'org-capture-insert-template-here #[nil "\305\306!\305\307!\310\211\310n\204\311 \210`	\312=\2032\313\314!\2032\315\305\306!!\210\316\310\317#\210\202{	\320>\203x\313\314!\203x\212\321\310x\210`\322 )\203x\fb\210\323 \210\324\310x\210\325\310x\210`\326 |\210`\327!\210c\210\330 \210\nb\210\331 \210\332 \210`\202{c\210`\nb\210\333\334\317#\205\213\335\336!-\207" [template type beg end pp org-capture-get :template :type nil newline entry derived-mode-p org-mode org-capture-verify-tree org-paste-subtree t (item checkitem) " 	\n" org-in-item-p org-insert-item " " "-+*0123456789)." point-at-eol org-remove-indentation org-capture-empty-lines-after org-list-repair org-end-of-item re-search-forward "%\\?" replace-match ""] 5])
#@60 Initialize the property list from the template definition.
(defalias 'org-capture-set-plist #[(entry) "\304\305\233!\306\307@\310A@\311\3128&\210\3138\3148\206\300\211\2031;\203Z\315\316\"\204Z\n\317=\203<\320\202Z\n\321=\203G\322\202Z\n\323=\203R\324\202Z\n\325\235\203Z\326\306\327\330\n$*\207" [entry org-capture-plist type txt copy-sequence 5 org-capture-put :key :description :target 3 4 2 string-match "\\S-" item "- %?" checkitem "- [ ] %?" table-line "| %? |" (nil entry) "* %?\n  %a" :template :type] 9 (#$ . 41049)])
#@88 Go to the target location of a capture template.
The user is queried for the template.
(defalias 'org-capture-goto-target #[(&optional template-key) "\303\304	!\211\204\305\306!\210\307\n!\210\310 \210\311\312\313!!\210\312\314!b*\207" [org-select-template-temp-major-mode template-key entry nil org-capture-select-template error "No capture template selected" org-capture-set-plist org-capture-set-target-location org-pop-to-buffer-same-window org-capture-get :buffer :pos] 4 (#$ . 41611) nil])
#@108 Make an indirect buffer for a capture process.
Use PREFIX as a prefix for the name of the indirect buffer.
(defalias 'org-capture-get-indirect-buffer #[(&optional buffer prefix) "\206p\305\306!\307\f\310\nQ\311\312	!!\203+\f\310\313T\211!\310\n\260\202\307\314\315\217+\207" [buffer bname base n prefix 1 buffer-name nil "-" buffer-live-p get-buffer number-to-string (byte-code "\302	\303#\207" [buffer bname make-indirect-buffer clone] 4) ((error (byte-code "\303	\"r\nq\210\304 \210)\n)\207" [buffer bname buf make-indirect-buffer org-mode] 3)))] 5 (#$ . 42118)])
#@42 Throw error if TREE is not a valid tree.
(defalias 'org-capture-verify-tree #[(tree) "\301!?\205\n\302\303!\207" [tree org-kill-is-subtree-p error "Template is not a valid Org entry or tree"] 2 (#$ . 42709)])
#@94 Select a capture template.
Lisp programs can force the template by setting KEYS to a string.
(defalias 'org-capture-select-template #[(&optional keys) "\303	\"\206\304\n\203\305\n\"\206!\306\307\n\"\202!\310\311\312\313$)\207" [org-capture-templates org-capture-templates-contexts keys org-contextualize-keys (("t" "Task" entry (file+headline "" "Tasks") "* TODO %?\n  %u\n  %a")) assoc error "No capture template referred to by \"%s\" keys" org-mks "Select a capture template\n=========================" "Template key: " (("C" "Customize org-capture-templates") ("q" "Abort"))] 5 (#$ . 42926)])
#@121 Fill a template and return the filled template as a string.
The template may still contain "%?" for cursor positioning.
(defalias 'org-capture-fill-template #[(&optional template initial annotation) "\206\306\307!	;\203<	\310\311\312!\203\"\312\313G\310$\210\2029\n\2031\314\313G\f$\210\2029\312\313G\310$\210*\306\315!\316\317
!\206H
!@\306\320!A\321A!B\322B8CW\203v\323\313\324\325\326B8S\327B8\330B8&\202xADE\205\200\331FGG\313V\205\215\332\313!H\333\334!\206\236\333\335!\206\236\333\336!I\337J@A\"K\337JAA\"L\340K\341\342O\343QM\340L\341\342O\343QN\344E\345\"\206\331	\206\331\306\345!\206\331\346O\344E\347\"\206\357P\206\357\306\347!\206\357\346\211Q\350\232\203\373\346\202\375QQ\351\310O\333\334!\333\335!\333\336!H\257\"R\352SQ\203.
\353SQ\"\203.
\354\355\310\211Q$\2020
QTQ\203J
\353SQ\"\203J
\354\356\310\211Q$\202L
QUVW\357X!\205\210
Y\310\311\312!\203o
\312\313G\310$\210\202\206
\n\203~
\314\313G\f$\210\202\206
\312\313G\310$\210*Z\357X!\205\233
\360\316\357X!!Y\"[\306\361!\206\244
\346\\\306\362!\206\255
\346]\310\211^_\331`\310\211ab\310\211cd\310\211ef\310\211gh\310\211ij\310k\363E\347Q#E\363E\345O#EO\204\377
\346\364\365!\210\366 \210\367\341!\210\370 l\371\216\372 \210\373\374\375!!\210\376 \210c\210eb\210\377
!\210\310eb\210\201v\201w\310\331#\203_\201x \204!\313\224\313\225\201y\201z\341!!mn\211ob\210on|\210\201{\201|\201}\217\210+\202!\201~ \210eb\210\201v\201\310\331#\203\202\354\337\201z\341!!\331\211#\210\202geb\210\201v\201\200\310\331#\203\367\201x \204\205	\203\323\201z\313!\201\201\232\203\323\201\202 p\201\203\216\201\204 \313\224{q\201\205\201\206\201\207	\201\210\"\201\210qP#O+\354\201\211\201\212\201\213\201\214\201z\341!P!!\201\215\"\206\360\346\331\211#\210\202\205F\2033eb\210\201v\201\216\310\331#\2033\201x \204\377\344E\201\213\201z\341!!\"\206#\346\211c\203\377\354c\331\211#\210\202\377\331`\201\217 \210)eb\210\201v\201\220\310\331#\203\232\201\221`S\201\222\"\204\232\201x \204?\326\225\205h\201\223\326!f\322\225\205t\201\223\322!d\313\224b\210\354\346!\210\310\211eid\203\274\201\207d\201\224\"\211e\211Ae@de@i\201\213\201\225d\206\255\346P!j\201\226\201\227e\"e\201\230j!\204\312j\310L\210f\201\231\235\203i\201\232f\201\233\232\203\346\201\234 \202\356@\205\356@C!r\331s\201\235d\203d\201\236P\202\201\237\201\240\310\211\211\201\241&t\201\205\201\206\201\207t\201\242\"\201\243#t\353\201\244t\"\203e`Sf\201\245\232\204C\201\243c\210tc\210\310f\201\245\232\204U\201\243c\210\201\246 \203e\201\247\310\201\250\"\210+\202?f\201\251\232\203\237RG\341U\203\202R@c\210\202?RG\341V\203?\201\252\201\253R@\201\254R@$c\210\202?f\201\255\232\203\335RG\341U\203\274\201\256\313R@\"\210\202?RG\341V\203?\201\256\313\201\252\201\253R@\201\257R@$\"\210\202?f\201\260\232\203\201\261d\310\311\312!\203\377\312\313G\310$\210\202\n\203\314\313G\f$\210\202\312\313G\310$\210*\310\"\210\202?f\203_f\226f\232a\201\262f\226f\232\331\310d$gf\226f\232\203G\331a\201\263gaf\201\264\235\310\211bC&\210\202?\310u\201\265d\203od\202r\201\266i\205~\201\267i\343Q\201\236Qe\310\211\211ji&kB\211k@c\210)\202?k\237keb\210\201v\201\270\310\331#\203\312\201x \204\242\354\201\271\201z\341!!Sk8\310\331#\210\202\242eb\210\201\272\201\273!\203\336\354\346!\210\202\315\201v\201\274\310\331#\203\360\354\201\210!\210\201\275ed\"\210\201\276\310!\210\201\277 \201\300p!\210.(\207" [template initial restricted s org-rm-props buffer org-capture-get :template nil fboundp set-text-properties 0 remove-text-properties :buffer buffer-file-name buffer-base-buffer :default-time decode-time 2 encode-time 59 23 3 4 5 t current-kill org-get-x-clipboard PRIMARY CLIPBOARD SECONDARY format-time-string "[" 1 -1 "]" plist-get :initial "" :annotation "[[]]" remove "\\[\\[\\(.*?\\)\\]\\(\\[.*?\\]\\)?\\]" string-match replace-match "[[\\1][%^{Link description}]]" "\\1" marker-buffer org-make-link-string :original-file-nondirectory :original-file plist-put message "No template" ding sit-for current-window-configuration ((set-window-configuration #1=#:wconfig)) delete-other-windows org-pop-to-buffer-same-window get-buffer-create "*Capture*" erase-buffer org-capture-steal-local-variables file ct dct org-extend-today-until ct1 org-store-link-plist plist-p kill-ring v-c v-x org-time-stamp-formats v-t v-T v-u v-U v-i annotation v-a clipboards l-re v-A v-l user-full-name v-n org-clock-marker org-clock-heading v-k v-K v-f v-F 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 strings #1# filename end start save-match-data-internal lead org-last-tags-completion-table org-add-colon-after-tag-completion ins org-completion-use-ido re-search-forward "%\\[\\(.+\\)\\]" org-capture-escaped-% expand-file-name match-string error (insert-file-contents filename) ((error (byte-code "\302\303	#c\207" [filename error format "%%![Couldn't insert %s: %s]"] 4))) org-capture-expand-embedded-elisp "%<\\([^>\n]+\\)>" "%\\([tTuUaliAcxkKInfF]\\)" "%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" org-add-props eval intern "v-" (org-protected t) "%\\(:[-a-zA-Z]+\\)" org-mode "%^\\({\\([^}]*\\)}\\)?\\([gGtTuUCLp]\\)?" get-text-property org-protected match-string-no-properties "|" "org-capture-template-prompt-history::" mapcar list boundp ("G" "g") org-global-tags-completion-table "G" org-agenda-files org-icompleting-read ": " "Tags: " org-tags-completion-function org-tags-history "[^[:alnum:]_@#%]+" ":" "\\S-" 58 org-at-heading-p org-set-tags align "C" read-string "Clipboard/kill value: " (clipboards . 1) "L" org-insert-link (clipboards . 1) "p" org-set-property org-read-date org-insert-time-stamp ("u" "U") org-completing-read-no-i "Enter string" " [" "%\\\\\\([1-9][0-9]*\\)" string-to-number looking-at "[ 	]*\n" "[ 	\n]*\\'" untabify set-buffer-modified-p buffer-string kill-buffer] 9 (#$ . 43539)])
#@51 Check if % was escaped - if yes, unescape it now.
(defalias 'org-capture-escaped-% #[nil "\300\224Sf\301\232\205\300\224S\300\224|\210\302\207" [0 92 t] 2 (#$ . 49868)])
#@62 Evaluate embedded elisp %(sexp) and replace with the result.
(defalias 'org-capture-expand-embedded-elisp #[nil "eb\210\302\303\304\305#\205*\306 \204\307\224b\210`\310u\210\311\312p!!`|\210	c\210*\202\207" [template-start result re-search-forward "%(" nil t org-capture-escaped-% 0 1 org-eval read] 4 (#$ . 50046)])
#@62 Return non-nil if point is inside of embedded elisp %(sexp).
(defalias 'org-capture-inside-embedded-elisp-p #[nil "\306\211\307 p\310\216\311\f!\210\212`Sf\312\232\203\313u\210\314 \315\216\316\317!\204.\320\317\306\321#\2039`\306u\210\322 \210`S+	\205K\205K`X\205K`	Y-\207" [end beg #1=#:buffer #2=#:table emacs-lisp-mode-syntax-table save-match-data-internal nil syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table 37 -1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at "%(" search-backward t forward-sexp] 4 (#$ . 50377)])
#@70 Set org-capture-templates to be similar to `org-remember-templates'.
(defalias 'org-capture-import-remember-templates #[nil "\302\303!\205\302\304!\205\305\306!\210\307\310\"\211\207" [org-remember-templates org-capture-templates yes-or-no-p "Import old remember templates into org-capture-templates? " "Note that this will remove any templates currently defined in `org-capture-templates'.  Do you still want to go ahead? " require org-remember mapcar #[(entry) "@\306A@!\3078\3108\206	\3118\206\n\300\312\211\f\313\235\203A\314\fD\315=\202Z\316=\203S\317\fD\312\202Z\320\fE\321\322\"\203m\323\324\325\211$\325\326\f\257\205\327
\205\204\330#.	\207" [entry org-default-notes-file org-remember-default-headline org-reverse-note-order target immediate char-to-string 2 3 4 nil (top bottom) file top date-tree file+datetree file+headline string-match "%!" replace-match "" t append (:prepend t) (:immediate-finish t) prepend type position template key desc] 9]] 3 (#$ . 51034) nil])
(provide 'org-capture)