View file File name : ol.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.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\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\311\304\321\322\323\324\325\305& \210\313\326\315\316\327DD\330\311\304\323\331\325\332& \210\313\333\315\316\334DD\335\311\304\323\336\325\337& \210\313\340\315\316\341DD\342\311\304\323\343\325\344& \210\313\345\315\316\346DD\347\311\304\323\350\325\351& \210\303\352\305\353\307\354\311\304&\210\313\355\315\316\356DD\357\311\352\323\360\325\337& \210\313\361\315\316\362DD\363\311\352\364\365\323\366\325\367& \210\313\370\315\316\371DD\372\311\352\323\373\325\305& \210\313\374\315\316\375DD\376\311\352\364\377\323\201@ \325\344& \210\313\201A \315\316\201B DD\201C \311\352\323\331\325\332& \210\313\201D \315\316\201E DD\201F \311\352\323\201G \325\305& \210\313\201H \315\316\201I DD\201J \311\352\364\377\323\201K \325\305& \210\313\201L \315\316\201M DD\201N \311\352\323\201O \325\305& \210\313\201P \315\316\201Q DD\201R \311\352\364\377\323\201K \325\305& \210\303\201S \305\201T \307\201U \311\304&\210\313\201V \315\316\201W DD\201X \311\201S \323\201Y \325\201Z & \210\313\201[ \315\316\201\\ DD\201] \311\201S \321\201^ \323\366\325\367& \210\313\201_ \315\316\201` DD\201a \311\201S \323\201K \325\367& \210\313\201b \315\316\201c DD\201d \311\201S \323\331\325\332& \207" [require org-compat org-macs custom-declare-group org-link nil "Options concerning links in Org mode." :tag "Org Link" :group org custom-declare-variable org-link-parameters funcall function #[0 "\300\207" [nil] 1] "An alist of properties that defines all the links in Org mode.\nThe key in each association is a string of the link type.\nSubsequent optional elements make up a plist of link properties.\n\n:follow - A function that takes the link path as an argument.\n\n:export - A function that takes the link path, description and\nexport-backend as arguments.\n\n:store - A function responsible for storing the link. See the\nfunction `org-store-link-functions'.\n\n:complete - A function that inserts a link with completion. The\nfunction takes one optional prefix argument.\n\n:face - A face for the link, or a function that returns a face.\nThe function takes one argument which is the link path. The\ndefault face is `org-link'.\n\n:mouse-face - The mouse-face. The default is `highlight'.\n\n:display - `full' will not fold the link in descriptive\ndisplay. Default is `org-link'.\n\n:help-echo - A string or function that takes (window object position)\nas arguments and returns a string.\n\n:keymap - A keymap that is active on the link. The default is\n`org-mouse-map'.\n\n:htmlize-link - A function for the htmlize-link. Defaults\nto (list :uri \"type:path\")\n\n:activate-func - A function to run at the end of font-lock\nactivation. The function must accept (link-start link-end path bracketp)\nas arguments." :package-version (Org . "9.1") :type (alist :tag "Link display parameters" :value-type plist) :safe org-link-descriptive #[0 "\300\207" [t] 1] "Non-nil means Org displays descriptive links.\n\nE.g. [[https://orgmode.org][Org website]] is be displayed as\n\"Org Website\", hiding the link itself and just displaying its\ndescription. When set to nil, Org displays the full links\nliterally.\n\nYou can interactively set the value of this variable by calling\n`org-toggle-link-display' or from the \"Org > Hyperlinks\" menu." boolean booleanp org-link-make-description-function #[0 "\300\207" [nil] 1] "Function to use for generating link descriptions from links.\nThis function must take two parameters: the first one is the\nlink, the second one is the description generated by\n`org-insert-link'. The function should return the description to\nuse." (choice (const nil) (function)) null org-link-file-path-type #[0 "\300\207" [adaptive] 1] "How the path name in file links should be stored.\nValid values are:\n\nrelative Relative to the current directory, i.e. the directory of the file\n into which the link is being inserted.\nabsolute Absolute path, if possible with ~ for home directory.\nnoabbrev Absolute path, no abbreviation of home directory.\nadaptive Use relative path for files in the current directory and sub-\n directories of it. For other files, use an absolute path." (choice (const relative) (const absolute) (const noabbrev) (const adaptive)) symbolp org-link-abbrev-alist #[0 "\300\207" [nil] 1] "Alist of link abbreviations.\nThe car of each element is a string, to be replaced at the start of a link.\nThe cdrs are replacement values, like (\"linkkey\" . REPLACE). Abbreviated\nlinks in Org buffers can have an optional tag after a double colon, e.g.,\n\n [[linkkey:tag][description]]\n\nThe `linkkey' must be a single word, starting with a letter, followed\nby letters, numbers, `-' or `_'.\n\nIf REPLACE is a string, the tag will simply be appended to create the link.\nIf the string contains \"%s\", the tag will be inserted there. If the string\ncontains \"%h\", it will cause a url-encoded version of the tag to be inserted\nat that point (see the function `url-hexify-string'). If the string contains\nthe specifier \"%(my-function)\", then the custom function `my-function' will\nbe invoked: this function takes the tag as its only argument and must return\na string.\n\nREPLACE may also be a function that will be called with the tag as the\nonly argument to create the link, which should be returned as a string.\n\nSee the manual for examples." (repeat (cons (string :tag "Protocol") (choice (string :tag "Format") (function)))) #[257 "\211:\205 \211@\211;\205 A\211;\205 \300\262\262\207" [t] 4 "\n\n(fn VAL)"] org-link-follow "Options concerning following links in Org mode." "Org Follow Link" org-link-translation-function #[0 "\300\207" [nil] 1] "Function to translate links with different syntax to Org syntax.\nThis can be used to translate links created for example by the Planner\nor emacs-wiki packages to Org syntax.\nThe function must accept two parameters, a TYPE containing the link\nprotocol name like \"rmail\" or \"gnus\" as a string, and the linked path,\nwhich is everything after the link protocol. It should return a cons\nwith possibly modified values of type and path.\nOrg contains a function for this, so if you set this variable to\n`org-translate-link-from-planner', you should be able follow many\nlinks created by planner." (choice (const nil) (function)) org-link-doi-server-url #[0 "\300\207" [#1="https://doi.org/"] 1 #1#] "The URL of the DOI server." :version "24.3" string stringp org-link-frame-setup #[0 "\300\207" [((vm . vm-visit-folder-other-frame) (vm-imap . vm-visit-imap-folder-other-frame) (gnus . org-gnus-no-new-news) (file . find-file-other-window) (wl . wl-other-frame))] 1] "Setup the frame configuration for following links.\nWhen following a link with Emacs, it may often be useful to display\nthis link in another window or frame. This variable can be used to\nset this up for the different types of links.\nFor VM, use any of\n `vm-visit-folder'\n `vm-visit-folder-other-window'\n `vm-visit-folder-other-frame'\nFor Gnus, use any of\n `gnus'\n `gnus-other-frame'\n `org-gnus-no-new-news'\nFor FILE, use any of\n `find-file'\n `find-file-other-window'\n `find-file-other-frame'\nFor Wanderlust use any of\n `wl'\n `wl-other-frame'\nFor the calendar, use the variable `calendar-setup'.\nFor BBDB, it is currently only possible to display the matches in\nanother window." (list (cons (const vm) (choice (const vm-visit-folder) (const vm-visit-folder-other-window) (const vm-visit-folder-other-frame))) (cons (const vm-imap) (choice (const vm-visit-imap-folder) (const vm-visit-imap-folder-other-window) (const vm-visit-imap-folder-other-frame))) (cons (const gnus) (choice (const gnus) (const gnus-other-frame) (const org-gnus-no-new-news))) (cons (const file) (choice (const find-file) (const find-file-other-window) (const find-file-other-frame))) (cons (const wl) (choice (const wl) (const wl-other-frame)))) org-link-search-must-match-exact-headline #[0 "\300\207" [query-to-create] 1] "Non-nil means internal fuzzy links can only match headlines.\n\nWhen nil, the a fuzzy link may point to a target or a named\nconstruct in the document. When set to the special value\n`query-to-create', offer to create a new headline when none\nmatched.\n\nSpaces and statistics cookies are ignored during heading searches." "24.1" (choice (const :tag "Use fuzzy text search" nil) (const :tag "Match only exact headline" t) (const :tag "Match exact headline or query to create it" query-to-create)) org-link-use-indirect-buffer-for-internals #[0 "\300\207" [nil] 1] "Non-nil means use indirect buffer to display infile links.\nActivating internal links (from one location in a file to another location\nin the same file) normally just jumps to the location. When the link is\nactivated with a `\\[universal-argument]' prefix (or with mouse-3), the link is displayed in\nanother window. When this option is set, the other window actually displays\nan indirect buffer clone of the current buffer, to avoid any visibility\nchanges to the current buffer." org-link-shell-confirm-function #[0 "\300\207" [yes-or-no-p] 1] "Non-nil means ask for confirmation before executing shell links.\n\nShell links can be dangerous: just think about a link\n\n [[shell:rm -rf ~/*][Google Search]]\n\nThis link would show up in your Org document as \"Google Search\",\nbut really it would remove your entire home directory.\nTherefore we advise against setting this variable to nil.\nJust change it to `y-or-n-p' if you want to confirm with a\nsingle keystroke rather than having to type \"yes\"." (choice (const :tag "with yes-or-no (safer)" yes-or-no-p) (const :tag "with y-or-n (faster)" y-or-n-p) (const :tag "no confirmation (dangerous)" nil)) org-link-shell-skip-confirm-regexp #[0 "\300\207" [#2=""] 1 #2#] "Regexp to skip confirmation for shell links." regexp org-link-elisp-confirm-function #[0 "\300\207" [yes-or-no-p] 1] "Non-nil means ask for confirmation before executing Emacs Lisp links.\nElisp links can be dangerous: just think about a link\n\n [[elisp:(shell-command \"rm -rf ~/*\")][Google Search]]\n\nThis link would show up in your Org document as \"Google Search\",\nbut really it would remove your entire home directory.\nTherefore we advise against setting this variable to nil.\nJust change it to `y-or-n-p' if you want to confirm with a\nsingle keystroke rather than having to type \"yes\"." (choice (const :tag "with yes-or-no (safer)" yes-or-no-p) (const :tag "with y-or-n (faster)" y-or-n-p) (const :tag "no confirmation (dangerous)" nil)) org-link-elisp-skip-confirm-regexp #[0 "\300\207" [#2#] 1 #2#] "A regexp to skip confirmation for Elisp links." org-link-store "Options concerning storing links in Org mode." "Org Store Link" org-link-context-for-files #[0 "\300\207" [t] 1] "Non-nil means file links from `org-store-link' contain context.\n\\<org-mode-map>\nA search string is added to the file name with \"::\" as separator\nand used to find the context when the link is activated by the command\n`org-open-at-point'. When this option is t, the entire active region\nis be placed in the search string of the file link. If set to a\npositive integer N, only the first N lines of context are stored.\n\nUsing a prefix argument to the command `org-store-link' (`\\[universal-argument] \\[org-store-link]')\nnegates this setting for the duration of the command." (choice boolean integer) #[257 "\300!\206 \211\250\207" [booleanp] 3 "\n\n(fn VAL)"] org-link-email-description-format #[0 "\300\207" [#3="Email %c: %s"] 1 #3#] "Format of the description part of a link to an email or usenet message.\nThe following %-escapes will be replaced by corresponding information:\n\n%F full \"From\" field\n%f name, taken from \"From\" field, address if no name\n%T full \"To\" field\n%t first name in \"To\" field, address if no name\n%c correspondent. Usually \"from NAME\", but if you sent it yourself, it\n will be \"to NAME\". See also the variable `org-from-is-user-regexp'.\n%s subject\n%d date\n%m message-id.\n\nYou may use normal field width specification between the % and the letter.\nThis is for example useful to limit the length of the subject.\n\nExamples: \"%f on: %.30s\", \"Email from %f\", \"Email %c\"" (Org . 9.3) org-link-from-user-regexp #[0 "\302!\205\f \303\304\305!\"\302 !\205 \303\304\305 !\"\203' \211\203' \306Q\202, \206, \211\207" [user-mail-address user-full-name org-string-nw-p format "\\<%s\\>" regexp-quote "\\|"] 5] "Regexp matched against the \"From:\" header of an email or Usenet message.\nIt should match if the message is from the user him/herself." org-link-keep-stored-after-insertion #[0 "\300\207" [nil] 1] "Non-nil means keep link in list for entire session.\n\\<org-mode-map>\nThe command `org-store-link' adds a link pointing to the current\nlocation to an internal list. These links accumulate during a session.\nThe command `org-insert-link' can be used to insert links into any\nOrg file (offering completion for all stored links).\n\nWhen this option is nil, every link which has been inserted once using\n`\\[org-insert-link]' will be removed from the list, to make completing the unused\nlinks more efficient."] 12) #@44 Regular expression matching a link target. (defconst org-target-regexp (byte-code "\300\301\302\211\211$\207" ["[^<>\n ]" format "<<\\(%s\\|%s[^<>\n ]*%s\\)>>"] 6) (#$ . 13704)) #@45 Regular expression matching a radio target. (defconst org-radio-target-regexp (format "<%s>" org-target-regexp) (#$ . 13891)) #@58 Regular expression matching radio targets in plain text. (defvar org-target-link-regexp nil (#$ . 14023)) (make-variable-buffer-local 'org-target-link-regexp) #@56 Matches a link that has a url-like prefix like "http:" (defvar org-link-types-re nil (#$ . 14188)) #@57 Matches link with angular brackets, spaces are allowed. (defvar org-link-angle-re nil (#$ . 14293)) #@37 Matches plain link, without spaces. (defvar org-link-plain-re nil (#$ . 14399)) #@36 Matches a link in double brackets. (defvar org-link-bracket-re nil (#$ . 14485)) #@39 Regular expression matching any link. (defvar org-link-any-re nil (#$ . 14572)) #@112 Buffer-local version of `org-link-abbrev-alist', which see. The value of this is taken from the LINK keywords. (defvar org-link-abbrev-alist-local nil (#$ . 14659)) (make-variable-buffer-local 'org-link-abbrev-alist-local) #@50 Contains the links stored with `org-store-link'. (defvar org-stored-links nil (#$ . 14888)) #@77 Plist with info about the most recently link created with `org-store-link'. (defvar org-store-link-plist nil (#$ . 14986)) #@1039 List of functions to construct the right search string for a file link. These functions are called in turn with point at the location to which the link should point. A function in the hook should first test if it would like to handle this file type, for example by checking the `major-mode' or the file extension. If it decides not to handle this file, it should just return nil to give other functions a chance. If it does handle the file, it must return the search string to be used when following the link. The search string will be part of the file link, given after a double colon, and `org-open-at-point' will automatically search for it. If special measures must be taken to make the search successful, another function should be added to the companion hook `org-execute-file-search-functions', which see. A function in this hook may also use `setq' to set the variable `description' to provide a suggestion for the descriptive text to be used for this link when it gets inserted into an Org buffer with \[org-insert-link]. (defvar org-create-file-search-functions nil (#$ . 15117)) #@1003 List of functions to execute a file search triggered by a link. Functions added to this hook must accept a single argument, the search string that was part of the file link, the part after the double colon. The function must first check if it would like to handle this search, for example by checking the `major-mode' or the file extension. If it decides not to handle this search, it should just return nil to give other functions a chance. If it does handle the search, it must return a non-nil value to keep other functions from trying. Each function can access the current prefix argument through the variable `current-prefix-arg'. Note that a single prefix is used to force opening a link in Emacs, so it may be good to only use a numeric or double prefix to guide the search function. In case this is needed, a function in this hook can also restore the window configuration before `org-open-at-point' was called using: (set-window-configuration org-window-config-before-follow-link) (defvar org-execute-file-search-functions nil (#$ . 16222)) #@766 Hook for functions finding a plain text link. These functions must take a single argument, the link content. They will be called for links that look like [[link text][description]] when LINK TEXT does not have a protocol like "http:" and does not look like a filename (e.g. "./blue.png"). These functions will be called *before* Org attempts to resolve the link by doing text searches in the current buffer - so if you want a link "[[target]]" to still find "<<target>>", your function should handle this as a special case. When the function does handle the link, it must return a non-nil value. If it decides that it is not responsible for this link, it must return nil to indicate that that Org can continue with other options like exact and fuzzy text search. (defvar org-open-link-functions nil (#$ . 17291)) #@50 Characters forbidden within a link, as a string. (defconst org-link--forbidden-chars "] \n <>" (#$ . 18112)) #@29 History for inserted links. (defvar org-link--history nil (#$ . 18227)) #@63 Minibuffer history for links inserted with `org-insert-link'. (defvar org-link--insert-history nil (#$ . 18305)) #@39 Non-nil when last link search failed. (defvar org-link--search-failed nil (#$ . 18424)) #@73 If there is completion support for link type TYPE, offer it. (fn TYPE) (defalias 'org-link--try-special-completion #[257 "\300\301\"\302!\203 \211 \202 \303\304\305P\"\207" [org-link-get-parameter :complete functionp read-string "Link (no completion support): " ":"] 6 (#$ . 18518)]) #@155 Return a human-readable representation of LINK. The car of LINK must be a raw link. The cdr of LINK must be either a link description or nil. (fn LINK) (defalias 'org-link--prettify #[257 "\211A@\206 \300\301\302\303\304G\305^#\"\306@\307R\207" ["<no description>" format "%-45s" substring 0 40 "<" ">"] 9 (#$ . 18815)]) #@207 Unhexify Unicode hex-chars HEX. E.g. "%C3%B6" is the German o-Umlaut. Note: this function also decodes single byte encodings like "%E1" (a-acute) if not followed by another "%[A-F0-9]{2}" group. (fn HEX) (defalias 'org-link--decode-compound #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\"A\312\302\211\203\264 \313\211A\262\242\314\"\302U\203k \211\315Y\2035 \316\315B\202n \211\317Y\203A \320\317B\202n \211\321Y\203M \322\321B\202n \211\323Y\203Y \307\323B\202n \211\324Y\203e \325\324B\202n \302\211B\202n \316\326B\324Y\203x \211@\262\327A\"\262\330@\"\\\262\302V\203\222 S\262\302U\203\245 \331!P\262\302\262\202\257 \204\257 \332!\262\266\202 \266\204)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 split-string "%" "" string-to-number 16 252 6 248 5 240 4 224 192 2 128 logxor lsh char-to-string org-link--decode-single-byte-sequence] 11 (#$ . 19149)]) #@68 Unhexify hex-encoded single byte character sequence HEX. (fn HEX) (defalias 'org-link--decode-single-byte-sequence #[257 "\300\301\302\303\"A\304#\207" [mapconcat #[257 "\300\301\302\"!\207" [char-to-string string-to-number 16] 5 "\n\n(fn BYTE)"] split-string "%" ""] 6 (#$ . 20111)]) #@58 Fontify links to the current file in `org-stored-links'. (defalias 'org-link--fontify-links-to-this-file #[0 "\301 \302\211\303\304\305\306\307\310!\311\"\312\313%\"\262\314\315!\203. \303\304\305\316\307\310!\317\"\320\313%\"\262\303\321\322\302\323\"\"\"\207" [org-stored-links buffer-file-name nil mapcar make-byte-code 257 "\211@\301\302\"\205 \300\303\304\305\"!\232\205 \211\207" vconcat vector [string-match "^file:\\(.+\\)::" expand-file-name match-string 1] 7 "\n\n(fn L)" featurep org-id "\211@\301\302\"\205 \300\303\304\305\306\"!\206 \307!\232\205 \211\207" [string-match "^id:\\(.+\\)$" expand-file-name org-id-find-id-file match-string 1 ""] 8 #[257 "\300\301G\302\303%\207" [put-text-property 0 face font-lock-comment-face] 7 "\n\n(fn L)"] delq append] 10 (#$ . 20405)]) #@65 Return buffer used for displaying the target of internal links. (defalias 'org-link--buffer-for-internals #[0 "\204 p\207\301\302\303 \"\203 \304\305!\210p\207\303 \302P\306!\206# \307p\310#r\211q\210\311 \210)\207" [org-link-use-indirect-buffer-for-internals string-suffix-p "(Clone)" buffer-name message "Buffer is already a clone, not making another one" get-buffer make-indirect-buffer clone org-overview] 5 (#$ . 21221)]) #@105 Search a radio target matching TARGET in current buffer. White spaces are not significant. (fn TARGET) (defalias 'org-link--search-radio-target #[257 "\300\301\302\303\304!\305#\"`eb\210\3062B \307\310\311#\203: \312u\210\313 \314!\315=\2036 \316\317\"b\210\320\321!\210\322\306\310\"\210\210\202 \211b\210\323\324\"0\207" [format "<<<%s>>>" mapconcat regexp-quote split-string "[ ]+\\(?:\n[ ]*\\)?" :radio-match re-search-forward nil t -1 org-element-context org-element-type radio-target org-element-property :begin org-show-context link-search throw user-error "No match for radio target: %s"] 7 (#$ . 21660)]) #@36 Return a list of known link types. (defalias 'org-link-types #[0 "\301\302\"\207" [org-link-parameters mapcar car] 3 (#$ . 22289)]) #@144 Get TYPE link property for KEY. TYPE is a string and KEY is a plist keyword. See `org-link-parameters' for supported keywords. (fn TYPE KEY) (defalias 'org-link-get-parameter #[514 "\301\302\"A\"\207" [org-link-parameters plist-get assoc] 6 (#$ . 22429)]) #@158 Set link TYPE properties to PARAMETERS. PARAMETERS should be keyword value pairs. See `org-link-parameters' for supported keys. (fn TYPE &rest PARAMETERS) (defalias 'org-link-set-parameters #[385 "\301\"\211\203 \211\302A\"\241\202# BB\303 \210\304\305!\205# \306 \207" [org-link-parameters assoc org-combine-plists org-link-make-regexps featurep org-element org-element-update-syntax] 7 (#$ . 22697)]) #@114 Update the link regular expressions. This should be called after the variable `org-link-parameters' has changed. (defalias 'org-link-make-regexps #[0 "\305\306 \307\"\310\311Q\312\313\"\314\315Q\316\317 \320 \320\n\321\260\211\207" [org-link-types-re org-link-angle-re org-link-plain-re org-link-bracket-re org-link-any-re regexp-opt org-link-types t "\\`" ":" format "<%s:\\([^>\n]*\\(?:\n[ ]*[^> \n][^>\n]*\\)*\\)>" "\\<" ":\\([^][ \n()<>]+\\(?:([[:word:]0-9_]+)\\|\\([^[:punct:] \n]\\|/\\)\\)\\)" "\\[\\[\\(\\(?:\\\\\\\\\\)+\\|[^z-a]*?[^\\]\\(?:\\\\\\\\\\)*\\)]\\(?:\\[\\([^z-a]+?\\)]\\)?]" "\\(" "\\)\\|\\(" "\\)"] 8 (#$ . 23118)]) #@58 Create a file link using completion. (fn &optional ARG) (defalias 'org-link-complete-file #[256 "\300\301!\302\303\304!!\302\305\303\304!!!\306\232\203 \307\305\303!!P\202Q \310\311\312!\313Q\"\2034 \307\314\315\"P\202Q \310\311\312!\313Q\303!\"\203N \307\314\315\303!\"P\202Q \307P\207" [read-file-name "File: " file-name-as-directory expand-file-name "." abbreviate-file-name (16) "file:" string-match "^" regexp-quote "\\(.+\\)" match-string 1] 9 (#$ . 23773)]) #@202 Return the description part of an email link. This takes information from `org-store-link-plist' and formats it according to FMT (default from `org-link-email-description-format'). (fn &optional FMT) (defalias 'org-link-email-description #[256 "\211\206 \262 \303\304\"\303\305\"\306\303\307\"B\310\303\311\"B\312\303\313\"\206. \303\305\"\206. \314B\315\303\316\"B\317\303\320\"\206H \303\304\"\206H \314B\321\303 \322\"B\323\303\n\324\"B\325\303 \326\"B\257\327\306\"\203\241 \n\203\230 \203\230 \203\230 \330 \331\332\333\334\335!\336\"\337$\216\327\n\")\262\203\230 \340\341\342\211$\262\202\241 \340\343\342\211$\262\344\"\207" [org-link-email-description-format org-store-link-plist org-link-from-user-regexp plist-get :toaddress :fromaddress "%c" :fromto "%F" :from "%f" :fromname "?" "%T" :to "%t" :toname "%s" :subject "%d" :date "%m" :message-id string-match match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 replace-match "to %t" t "from %f" org-replace-escapes] 15 (#$ . 24257)]) #@117 Store link properties. The properties are pre-processed by extracting names, addresses and dates. (fn &rest PLIST) (defalias 'org-link-store-props #[128 "\302\303\"\211\203 \304!\305\306@#\262\305\307A@#\262\210\210\302\310\"\211\203; \304!\305\311@#\262\305\312A@#\262\210\210\3131J \314\302\315\"!0\202L \210\316\211\203i \305\317\320\321\322!\"#\262\305\323\320\321\322\211\"\"#\262\210\302\303\"\302\310\"\203\221 \211\203\221 \203\221 \305\324\325\"\203\215 \326\202\216 \327#\262\266\211\211\207" [org-link-from-user-regexp org-store-link-plist plist-get :from mail-extract-address-components plist-put :fromname :fromaddress :to :toname :toaddress (error) date-to-time :date nil :date-timestamp format-time-string org-time-stamp-format t :date-timestamp-inactive :fromto string-match "to %t" "from %f"] 9 (#$ . 25336)]) #@67 Add these properties to the link property list. (fn &rest PLIST) (defalias 'org-link-add-props #[128 "\301\211\205 \211A\262\242\262\211A\262\242\262\302#\202 \207" [org-store-link-plist nil plist-put] 7 (#$ . 26205)]) #@168 Return percent escaped representation of string TEXT. TEXT is a string with the text to escape. TABLE is a list of characters that should be escaped. (fn TEXT TABLE) (defalias 'org-link-encode #[514 "\300\301\302\303\304\305!\306\"\307\310%\311#\207" [mapconcat make-byte-code 257 "\211\300>\203 \301\302\303\304\"\206 \305\306\"\307#\207\310!\207" vconcat vector [mapconcat #[257 "\300\301\"\207" [format "%%%.2X"] 4 "\n\n(fn E)"] encode-coding-char utf-8 error "Unable to percent escape character: %c" #1="" char-to-string] 6 "\n\n(fn C)" #1#] 9 (#$ . 26445)]) #@94 Decode percent-encoded parts in string S. E.g. "%C3%B6" becomes the german o-Umlaut. (fn S) (defalias 'org-link-decode #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "\\(%[0-9A-Za-z]\\{2\\}\\)+" org-link--decode-compound t] 7 (#$ . 27024)]) #@66 Backslash-escape sensitive characters in string LINK. (fn LINK) (defalias 'org-link-escape #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216c\210\312\313\314x[\315\"c\210\316\317\314\320#\203@ \321\320\322!)\262\203 \312\313\314x[T\315\"c\210\202 \323 *\207" [inhibit-changing-match-data generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 make-string "\\\\" nil 92 search-backward "]" t "\\]\\(?:[][]\\|\\'\\)" looking-at buffer-string] 8 (#$ . 27286)]) #@67 Remove escaping backslash characters from string LINK. (fn LINK) (defalias 'org-link-unescape #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\212c\210)\311\312\313\314#\2034 \315\316\317\225\317\224Z\310\245\320\"\313\314\313\317%\210\202 db\210\321\322\313x[\310\245!\210\323 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward "\\(\\\\+\\)\\]\\(?:[][]\\|\\'\\)" nil t replace-match make-string 1 92 delete-char "\\\\" buffer-string] 8 (#$ . 27837)]) #@149 Make a bracket link, consisting of LINK and DESCRIPTION. LINK is escaped with backslashes for inclusion in buffer. (fn LINK &optional DESCRIPTION) (defalias 'org-link-make-string #[513 "\300!\204\n \301\302!\210\303!\304\305!\300!\205; \306\307\310\311Q\306\312\313P\314\306\203. \315\202/ \316\317\306\320\317##\266\202##\321\322\203I \321\323\"\202J \317#\207" [org-string-nw-p error "Empty link" org-link-escape string 8203 replace-regexp-in-string "\\(]\\)\\(]\\)" "\\1" "\\2" "]\\'" "\\&" nil "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" format "[[%s]%s]" "[%s]"] 19 (#$ . 28410)]) #@990 List of functions that are called to create and store a link. The functions are defined in the `:store' property of `org-link-parameters'. Each function will be called in turn until one returns a non-nil value. Each function should check if it is responsible for creating this link (for example by looking at the major mode). If not, it must exit and return nil. If yes, it should return a non-nil value after calling `org-link-store-props' with a list of properties and values. Special properties are: :type The link prefix, like "http". This must be given. :link The link, like "http://www.astro.uva.nl/~dominik". This is obligatory as well. :description Optional default description for the second pair of brackets in an Org mode link. The user can still change this when inserting this link into an Org mode buffer. In addition to these, any additional properties can be specified and then used in capture templates. (defalias 'org-store-link-functions #[0 "\301\211\211:\203$ @\262\302@\303\"\262\203 B\262A\262\202 \211\237\207" [org-link-parameters nil org-link-get-parameter :store] 7 (#$ . 29025)]) #@109 Replace link abbreviations in LINK string. Abbreviations are defined in `org-link-abbrev-alist'. (fn LINK) (defalias 'org-link-expand-abbrev #[257 "\302\303\"\204 \207\304\305\"\306\"\206 \306 \"\307\225\205 \304\310\"\311\204) \202\305 A\262\3129\2039 !\202\304 \302\313\"\203\227 \314\304\305\"!\211\315N\316=\204V \211\317N\316=\203z \320\321 \322\323\324\325\326!\327\"\310$\216\314\304\305\"!!)\262\316\211$\202\222 \330\331\332\304\305\"#!\210\333\"\333 \"\262\202\304 \302\334\"\203\253 \320\206\244 \335\316\211$\202\304 \302\336\"\203\301 \320\337\206\271 \335!\316\211$\202\304 P!\207" [org-link-abbrev-alist-local org-link-abbrev-alist string-match "^\\([^:]*\\)\\(::?\\(.*\\)\\)?$" match-string 1 assoc 2 3 nil substring-no-properties "%(\\([^)]+\\))" intern-soft org-link-abbrev-safe t pure replace-match match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] org-display-warning format "Disabling unsafe link abbrev: %s\nYou may mark function safe via (put '%s 'org-link-abbrev-safe t)" delete "%s" "" "%h" url-hexify-string] 15 (#$ . 30222)]) #@123 Open a link object LINK. Optional argument is passed to `org-open-file' when S is a "file" link. (fn LINK &optional ARG) (defalias 'org-link-open #[513 "\301\302\"\301\303\"\304\232\203\212 \305\306\307!\"\203 \310!\202 \301\311\"\301\312\"\313\2032 \314Q\2023 \315\"\211\203G \211\205B \316PP!\202\205 \317\320\206^ \321\267\202] \322\202^ \323\202^ \324\204g \324\202\204 \325\324\326\305#)\266\203\203\200 \327!C\202\204 \324D$\266\203\202 \330\313\315\"!\203\234 \313\315\"!\202 \331\235\203 \332\333\"?\205 \204\264 \334 \210\202\271 \335\336 !\210\212\214~\210\337\232\203\316 \340\301\303\"!\210\202\362 \341\342\267\202\342 \343P\202\343 \344\345\"\202\343 \346\232\205\360 \347\301\350\"\\\"\210`*eX\203 dY\204~\210\211b\262\202 \351 \207" [inhibit-changing-match-data org-element-property :type :path "file" string-match "[*?{]" file-name-nondirectory dired :search-option :application org-link-get-parameter "+" :follow "::" apply org-open-file #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("emacs" 85 "sys" 89)) emacs system nil "\\`[0-9]+\\'" t string-to-number functionp ("coderef" "custom-id" "fuzzy" "radio") run-hook-with-args-until-success org-open-link-functions org-mark-ring-push switch-to-buffer-other-window org-link--buffer-for-internals "radio" org-link--search-radio-target org-link-search #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("custom-id" 213 "coderef" 219)) "#" format "(%s)" "fuzzy" 2 :begin browse-url-at-point] 18 (#$ . 31369)]) #@150 Open a link in the string S, as if it was in Org mode. Optional argument is passed to `org-open-file' when S is a "file" link. (fn S &optional ARG) (defalias 'org-link-open-from-string #[513 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312c\210\313 \210eb\210\314 +\262\211\204. \315\316\"\2025 \211\317\"\262\207" [org-inhibit-startup generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil org-mode org-element-link-parser user-error "No valid link in %S" org-link-open] 9 (#$ . 32991) "sLink: \nP"]) #@802 Search for a search string S. If S starts with "#", it triggers a custom ID search. If S is enclosed within parenthesis, it initiates a coderef search. If S is surrounded by forward slashes, it is interpreted as a regular expression. In Org mode files, this will create an `org-occur' sparse tree. In ordinary files, `occur' will be used to list matches. If the current buffer is in `dired-mode', grep will be used to search in all files. When AVOID-POS is given, ignore matches near that position. When optional argument STEALTH is non-nil, do not modify visibility around point, thus ignoring `org-show-context-detail' variable. Search is case-insensitive and ignores white spaces. Return type of matched result, which is either `dedicated' or `fuzzy'. (fn S &optional AVOID-POS STEALTH) (defalias 'org-link-search #[769 "\305!\204 \306\307\"\210\310`\311\312\313#\314!\315=\316\203& \317\320\"\202( !\321\322\323#\321\322\324#\325\326\327 \"\204\313\314\n!\330=\203e \317\320\"\331\332\"\211\203[ \211b\210\333\262\202` \306\334\"\210\266\202\313\335\336\"\203\274 \337\320\"\317\320\340#eb\210\3412\267 \342\325\310#\203\256 \343 \344!\345>\203\252 \346\347\350\351!\"P!\203\252 \333\262\352\224b\210\353\341\325\"\210\210\202~ b\210\306\354\"0\266\202\313\335\355\"\203\331 \356\357!\203\316 \360\202\317 \361\362\320\f\"!\210\202\313\204\363\364\"\3652eb\210\342\325\310#\203\340u\210\366 \344!\367=\203 \333\262\370\371\"b\210\353\365\310\"\210\210\202\350 \3250\262\204\313\204P\363\372\"\3732Keb\210\342\325\310#\203I\343 \316\370\374\"!\232\203E\333\262\375 \210\353\373\310\"\210\210\202%\3250\262\204\313\356\357!\203\261\363\376 \n\321\322 \377#$\201@ \363\201A \n\"eb\210\201B 2\243\342\325\310#\203\241\316\311\201C \311\201C \201D \310\211\211###!\232\203s\353\201B \310\"\210\202s\3250\266\203\203\261\375 \210\333\262\202\313\356\357!\203\356 \201E =\203\356\201F \201G !\203\356db\210n\204\325\201H \210\201I \325\310\211#\210 \201J \261\210\375\201K !\210\202\313\356\357!\203 \204\374 \203 b\210\306\201L \"\210\202\313\201M 2\274eb\210\342\325\310#\203\272\2035\201K \224 X\2035\201K \225 V\204\201N \201O \201K \201P \201Q \201R !\201S \"\201T $\216\201U \f!)\262\203\245\201T \224\203\245\201T \224`V\204w\201T \225`X\203\245\201V \201N \201O \201K \201P \201Q \201R !\201W \"\201T $\216\366 )\262\201X \310#\204\201K \224b\210\201Y \262\353\201M \310\"\210\202\3250\204\313b\210\306\201L \"\210\356\357!\203\336\204\336\201Z \201[ !\210)\207" [case-fold-search org-outline-regexp-bol org-comment-string org-link-search-must-match-exact-headline org-link-bracket-re org-string-nw-p error "Invalid search string \"%s\"" t replace-regexp-in-string "\n[ ]*" " " string-to-char 42 split-string substring 1 mapconcat regexp-quote "\\(?:[ \n]+\\)" "[ ]+" nil run-hook-with-args-until-success org-execute-file-search-functions 35 org-find-property "CUSTOM_ID" dedicated "No match for custom ID: %s" string-match "\\`(\\(.*\\))\\'" match-string-no-properties -1 :coderef-match re-search-forward org-element-at-point org-element-type (example-block src-block) org-match-line ".*?" org-src-coderef-regexp org-src-coderef-format 2 throw "No match for coderef: %s" "\\`/\\(.*\\)/\\'" derived-mode-p org-mode org-occur org-do-occur match-string format "<<%s>>" :target-match org-element-context target org-element-property :begin "^[ ]*#\\+NAME: +%s[ ]*$" :name-match :name beginning-of-line "%s.*\\(?:%s[ ]\\)?.*%s" ".+" "\\[[0-9]*\\(?:%\\|/[0-9]*\\)\\]" "\\`%s[ ]+" :found "" org-get-heading query-to-create yes-or-no-p "No match - create this as a new heading? " newline org-insert-heading "\n" 0 "No match for fuzzy expression: %s" :fuzzy-match match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-in-regexp org-element-lineage [set-match-data evaporate] (link) fuzzy org-show-context link-search] 25 (#$ . 33591)]) #@79 Make search string for the current headline or STRING. (fn &optional STRING) (defalias 'org-link-heading-search-string #[256 "\211\206 \301\302!\205 \212\303\304!\210\305\306\307 \")\204 \310P\262\311\312\313#\262\203Q \211\250\203Q \211\314V\203Q \315\316\"GW\203P \317\320\321GZ\321!\233!\316#\262\210\317\320\322!\323#\207" [org-link-context-for-files derived-mode-p org-mode org-back-to-heading t org-element-property :raw-value org-element-at-point "*" replace-regexp-in-string "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" "" 0 org-split-string "\n" mapconcat identity reverse split-string " "] 10 (#$ . 37627)]) #@108 Replace links in string S with their description. If there is no description, use the link target. (fn S) (defalias 'org-link-display-format #[257 "\301 \302\303\304\305\306!\307\"\310$\216\311\312\313\314%)\207" [org-link-bracket-re match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 replace-regexp-in-string #[257 "\300\301\"\206 \300\302\"\207" [match-string 2 1] 4 "\n\n(fn M)"] nil t] 8 (#$ . 38264)]) #@46 Wrap string S within angle brackets. (fn S) (defalias 'org-link-add-angle-brackets #[257 "\300\301\302#\303\232\204 \303P\262\300\304\"\305\232\204 \211\305P\262\207" [substring 0 1 "<" -1 ">"] 5 (#$ . 38726)]) #@83 Open a "doi" type link. PATH is a the path to search for, as a string. (fn PATH) (defalias 'org-link--open-doi #[257 "\301\302P!!\207" [org-link-doi-server-url browse-url url-encode-url] 5 (#$ . 38951)]) (org-link-set-parameters "doi" :follow 'org-link--open-doi) #@81 Open a "elisp" type link. PATH is the sexp to evaluate, as a string. (fn PATH) (defalias 'org-link--open-elisp #[257 "\303!\203 \304\305\306#)\266\203\204( \n\203( \n\307\310\311\304\312\313$\"!\203B \314\315\316!\317=\203; \320\321!!\202@ \322\321!!#\207\323\324!\207" [org-link-elisp-skip-confirm-regexp inhibit-changing-match-data org-link-elisp-confirm-function org-string-nw-p nil t string-match format "Execute %S as Elisp? " org-add-props face org-warning message "%s => %s" string-to-char 40 eval read call-interactively user-error "Abort"] 9 (#$ . 39224)]) (byte-code "\300\301\302\303#\210\300\304\305\306#\207" [org-link-set-parameters "elisp" :follow org-link--open-elisp "file" :complete org-link-complete-file] 4) #@73 Open a "help" type link. PATH is a symbol name, as a string. (fn PATH) (defalias 'org-link--open-help #[257 "\300!\301!\203 \211\302!\262\202( \303!\203! \211\304!\262\202( \211\305\306\"\262\207" [intern fboundp describe-function boundp describe-variable user-error "Unknown function or variable: %s"] 6 (#$ . 39972)]) (byte-code "\300\301\302\303#\210\304\211\203& \211@\300\302\305\306\307\310\311!\312\"\313\314%#\210A\266\202\202 \207" [org-link-set-parameters "help" :follow org-link--open-help ("ftp" "http" "https" "mailto" "news") make-byte-code 257 "\301\300\302Q!\207" vconcat vector [browse-url ":"] 5 "\n\n(fn URL)"] 11) #@83 Open a "shell" type link. PATH is the command to execute, as a string. (fn PATH) (defalias 'org-link--open-shell #[257 "\304!\203 \305\306\307#)\266\203\204( \n\203( \n\310\311\312\305\313\314$\"!\203C \315\316!\317\320\"\210\321\"\210\322\323!\205B \324! B\211\207\325\326!\207" [org-link-shell-skip-confirm-regexp inhibit-changing-match-data org-link-shell-confirm-function clean-buffer-list-kill-buffer-names org-string-nw-p nil t string-match format "Execute %S in shell? " org-add-props face org-warning generate-new-buffer "*Org Shell Output*" message "Executing %s" shell-command featurep midnight buffer-name user-error "Abort"] 9 (#$ . 40629)]) (org-link-set-parameters "shell" :follow 'org-link--open-shell) #@155 Move forward to the next link. If the link is in hidden text, expose it. When SEARCH-BACKWARD is non-nil, move backward. (fn &optional SEARCH-BACKWARD) (defalias 'org-next-link #[256 "`\203 \304\202\n \305\203 \n=\204> \204% \306 !\203% \307\225b\210\202S \203S \310 \311\312#\211:\203: \211@\211\211b\266\210\202S \203L db\210\313\314!\210\202S eb\210\313\315!\210\311\3162\230 \211 \311\312#\203\217 \212\204i \317u\210\320 )\321\322\312#\211\203\212 \211\323\324\"b\210\325 \203\204 \326 \210\327\316\312\"\266\266\202Y b\210\312\313\330!0\207" [org-link--search-failed this-command last-command org-link-any-re re-search-backward re-search-forward looking-at 0 org-in-regexp nil t message "Link search wrapped back to end of buffer" "Link search wrapped back to beginning of buffer" :found -1 org-element-context org-element-lineage (link) org-element-property :begin org-invisible-p org-show-context throw "No further link found"] 9 (#$ . 41369) nil]) #@79 Move backward to the previous link. If the link is in hidden text, expose it. (defalias 'org-previous-link #[0 "\300\301!\207" [org-next-link t] 2 (#$ . 42351) nil]) #@53 Toggle the literal or descriptive display of links. (defalias 'org-toggle-link-display #[0 "\203 \301\302!\210\202 \303\304!\210\305 \210?\211\207" [org-link-descriptive remove-from-invisibility-spec (org-link) add-to-invisibility-spec (org-link) org-restart-font-lock] 2 (#$ . 42523) nil]) #@783 Store a link to the current location. \<org-mode-map> This link is added to `org-stored-links' and can later be inserted into an Org buffer with `org-insert-link' (`\[org-insert-link]'). For some link types, a `\[universal-argument]' prefix ARG is interpreted. A single `\[universal-argument]' negates `org-context-in-file-links' for file links or `org-gnus-prefer-web-links' for links to Usenet articles. A `\[universal-argument] \[universal-argument]' prefix ARG forces skipping storing functions that are not part of Org core. A `\[universal-argument] \[universal-argument] \[universal-argument]' prefix ARG forces storing a link for each line in the active region. Assume the function is called interactively if INTERACTIVE? is non-nil. (fn ARG &optional INTERACTIVE\=\?) (defalias 'org-store-link #[513 "\306 \210\307\232\203= \310 \203= \212\311 \312 b\210\313`!\210\314 W\2059 \315\316!\210\317 \210\320\321\322!\210)\323\324!\210\313`!\210\202 \262)\207\320\211\320\211\211\211\211\211\211 \325\232\204\304 \320\326 \211\203l \211@\211 \203e \211\327 !BB\262A\266\202\202Q \210\211?\206u \211:??\205\253 \211@\211:\205\251 \211@A\211\204\214 \330\202\247 \331\332\333\334\335\336\337 \"\320\330\340 !%\"A\"\210\330\262\266\202\262\262\203\304 \341 \342\"\262\341 \343\"\206\277 \262\202\232\344 \2039\345 \346\347 \350>\204\346 r\351 q\210\322\f\f\"\210)\320\262\n\2024\212\352 \210\353\354!\355 \330#)\203 \211\356\357!!\262\n\2024\n\2031\320\210\360\361!\362\"\363GZiW\203!\364\330\"\210\202$\365c\210c\210!\262 \266\2024\320\262\n\266\202\232\366\302!\205@\n\367 \232\203z\370`\371\"\206Q\370`\372\"\211\203v\211\212\373!\203b\374!q\210\212\214~\210\211\206k`b\210\322\320\f\"\262+\210\210\202\232 \375\267\2020\376 \377\f@\331\201H \201I \211\211A@@\324\n8\320\211\211\257 \"\"\262 \332\201J \201K \201L $\266\202\232\201M \212eb\210\201N \201O !\210\201P \201I !)P\262\332\201J \201Q \"\210\202\232\367 \203\357\201R \201S \367 \"\204\357\367 \202\364\201T \330!\262\201T \330!\262\332\201J \201U \201V \201T \330!$\210\202\232\201W \201X !P\262\262\332\201J \201Y \201Z $\210\202\232\201[ \201\\ !\203h\201] \320\330\"\211\203U\201X \201^ \201] \320\330\"!!\202W@\262\201W P\262\262 \210\202\232\201_ \201` !\211\262\203\220\201W \201X !\201a R\262\206\213\262\202\232\305\201b !\203\201[ \201c !\203\330 A\201d \211 B C\201e BP D\201f \320\201g \"\262\201h \201i \316\"\203\353\201W \201X \305\201b !!\201a \201P \316!R\262\262\202\201j \201k !\203UE\330=\204'\203E\201l =\204'E\201m =\203\203'E\203U\201f \320\201n \"\203U\201o 1A\201p \341 \343\"\206;\201q \2620\202P\210\201W \201X \305\201b !!P\262\202\201W \201X \305\201b !!P\262F\n\201r \232\204v\262\202~\211?\205|\266\202\203\366\201s \201t \201u \"\201v \203\230\320\202\246\211\206\246\310 \205\246\312 \311 {\262\203\270\201R \201w \"\203\364\201a \201x 1\315\201y !0\202\321\210\201q Q\262 \211\206\362\201z \201{ 1\351\201| 0\202\353\210\3208\206\362\201} \262\266\201R \201~ \"\203\201 \201I \201\200 #\262\262,\202\232\305\201b !\203\207\201W \201X \305\201b !!P\262F\n\201\201 \232\204B\262\202J\211?\205H\266\202\203\200\310 \203Z\312 \311 {\202a\201\202 \314 {\262\201R \201w \"\203\200\201a \201y !Q\262\201} \262\262\202\232\203\227\201\203 \201\204 !\210\202\232\320\262:\203\252@\262A\262\206\261\262\206\271\262\203\325\201} \232\203\315\320\262\202\325\201\205 !\262\203\337\204\363\211\206-\205-\201\206 \"\202-DGBG\201\207 \201\210 \206\n \"\210\203*\201W \201X \305 !\201\211 R\262DGBGG@\207" [current-prefix-arg org-store-link-plist org-agenda-buffer-name major-mode org-time-stamp-formats buffer-file-name org-load-modules-maybe (64) org-region-active-p region-end region-beginning set-mark point-at-eol move-end-of-line 1 activate-mark nil call-interactively org-store-link move-beginning-of-line 2 (16) org-store-link-functions copy-sequence t apply org-link-store-props assoc-string completing-read "Which function for creating the link? " mapcar car symbol-name plist-get :link :description org-src-edit-buffer-p org-src-coderef-format #[257 "\203\n \301\302#\207\301\303\"\207" [org-src-source-file-name format "file:%s::(%s)" "(%s)"] 5 "\n\n(fn LABEL)"] org-src-source-type (example-block src-block) org-src-source-buffer beginning-of-line re-search-forward org-src-coderef-regexp line-end-position match-string-no-properties 3 read-string "Code line label: " format 79 org-move-to-column " " boundp buffer-name get-text-property org-hd-marker org-marker markerp marker-buffer #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (calendar-mode 384 help-mode 435 w3-mode 473 image-mode 529)) calendar-cursor-to-date format-time-string default-directory org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-id-link-to-org-use-id org-link-context-for-files org-stored-links encode-time 0 :type "calendar" :date "help:" looking-at "^[^ ]+" match-string "help" string-match "Untitled" url-view-url "w3" :url "file:" abbreviate-file-name "image" :file derived-mode-p dired-mode dired-get-filename expand-file-name run-hook-with-args-until-success org-create-file-search-functions "::" buffer-base-buffer org-mode org-get-limited-outline-regexp "^" org-entry-get "CUSTOM_ID" org-in-regexp "[^<]<<\\([^<>]+\\)>>[^>]" featurep org-id create-if-interactive create-if-interactive-and-no-custom-id "ID" (error) org-id-store-link "" (4) org-element-at-point org-element-property :name org-at-heading-p "\\S-" (error) org-link-heading-search-string 4 (error) org-heading-components "NONE" "::\\'" substring -2 (4) point-at-bol user-error "No method for storing a link from this buffer" org-link-display-format org-link-make-string message "Stored: %s" "::#"] 26 (#$ . 42826) "P\np"]) #@1914 Insert a link. At the prompt, enter the link. Completion can be used to insert any of the link protocol prefixes in use. The history can be used to select a link previously stored with `org-store-link'. When the empty string is entered (i.e. if you just press `RET' at the prompt), the link defaults to the most recently stored link. As `SPC' triggers completion in the minibuffer, you need to use `M-SPC' or `C-q SPC' to force the insertion of a space character. You will also be prompted for a description, and if one is given, it will be displayed in the buffer instead of the link. If there is already a link at point, this command will allow you to edit link and description parts. With a `\[universal-argument]' prefix, prompts for a file to link to. The file name can be selected using completion. The path to the file will be relative to the current directory if the file is in the current directory or a subdirectory. Otherwise, the link will be the absolute path as completed in the minibuffer (i.e. normally ~/path/to/file). You can configure this behavior using the option `org-link-file-path-type'. With a `\[universal-argument] \[universal-argument]' prefix, enforce an absolute path even if the file is in the current directory or below. A `\[universal-argument] \[universal-argument] \[universal-argument]' prefix negates `org-link-keep-stored-after-insertion'. If the LINK-LOCATION parameter is non-nil, this value will be used as the link location instead of reading one interactively. If the DESCRIPTION parameter is non-nil, this value will be used as the default description. Otherwise, if `org-link-make-description-function' is non-nil, this function will be called with the link target, and the result will be the default link description. When called non-interactively, don't allow to edit the default description. (fn &optional COMPLETE-FILE LINK-LOCATION DESCRIPTION) (defalias 'org-insert-link #[768 "\306 p\307 \205 \310 \311 {\211\205 \310 \311 D\312\211\211 \204s\313 \314\"\203G \315\224\315\225D\262\316\225\2058 \317\316!\262\320\321\322\317\314!!\"\262\202s\313\n!\204S \313 !\203i \315\224\315\225D\262\320\321\323\324\325\326\315!#\"\262\202s\f\327\235\203y \330 !\262\202s\331 \210\332\333!\210r\333q\210\334 \210\335c\210\f\203\232 \336c\210\337\340\341\f!\342#c\210eb\210)\343 \344\345\333\346\"!\210r\333q\210\347)\350d!\204\267 \351 \210\352!\203\301 \344!\210\210\353\354\355\"\354\355@\"\356 #\262\357\315\360\361\362!\363\"\316$\216\353\354\355\f\"A\" 6\364\321\353\354\365\"\354\355\f\"\"\312\211\211\366\f@@&\262\367!\204 \370\371!\210\f\211\203)\211@A@\232\203\"\211@\262\347\262A\266\202\202\f\210\235\204N\372\373\"\374\232\203Y\372\315\373#\235\203Y\372\315\373#\211\262\203Yrq\210\375!)\262*\376\f\"\262\204jABA\206qA@\262\f\377\232\203\200\201I \202\203\201J B?!\203\225\201K \376\f\"\f\"\201L \"\203\262\201L C\"\204\262\323\324\325#\262D\203\377\312 E\201L \201M \")\203\377\317\314\"\201N \315\225\"\201O \357\315\201P \361\362!\201Q \"\201R $\216\201S D!\201S !\232\203\374\262)\266\312 E\201L \201T \"\203\345\317\315\"\315\225\201L \201U \"\205&\326\314\"\211\2036\201N \315\224#\202>\201N \315\225\"\211F\201V =\204Q\201W \232\203_\201X \201Y !!\262\202\313F\201Z \267\202|\201Y !\262\202\313\201[ !\262\202\313\201O \357\315\201P \361\362!\201\\ \"\201R $\216\201L \201] \201^ \201Y \201_ G!!!P\201Y !\"\203\276\372\201Y !\315\225\"\262\202\311\201X \201Y !!\262)\210\205\326\201` PQ\262\n\n\232\203\343\262 \266)\211\2045\n\206 H\204\370\202 \201a 1H\"0\202 \210\201b \201c \201d H!\"\210\201e \316!\210\312\201f \201g !\2031\320\201h \"\2022\211\262\210\367!\204?\312\262\203N\201i \201j \"\210\201k \"c\210\201e \315!\207" [org-link-abbrev-alist-local org-link-bracket-re org-link-angle-re org-link-plain-re org-stored-links truncate-lines current-window-configuration org-region-active-p region-beginning region-end nil org-in-regexp 1 0 2 match-string-no-properties read-string "Link: " org-link-unescape org-unbracket-string "<" ">" match-string ((4) (16)) org-link-complete-file org-link--fontify-links-to-this-file org-switch-to-buffer-other-window "*Org Links*" erase-buffer "Insert a link.\nUse TAB to complete link prefixes, then RET for type-specific completion support\n" "\nStored links are available with <up>/<down> or M-p/n (most recent with RET):\n\n" mapconcat org-link--prettify reverse "\n" selected-window select-window get-buffer-window visible t pos-visible-in-window-p org-fit-window-to-buffer window-live-p append mapcar car org-link-types make-byte-code "\301\300!\210\302\303!\207" vconcat vector [set-window-configuration kill-buffer "*Org Links*"] org-completing-read #[257 "\211\300P\207" [":"] 3 "\n\n(fn X)"] org-link--history org-string-nw-p user-error "No link selected" substring -1 ":" org-link--try-special-completion assoc (64) org-link-abbrev-alist org-link--insert-history org-link-keep-stored-after-insertion org-ts-regexp buffer-file-name case-fold-search org-link-file-path-type default-directory org-link-make-description-function not identity delq string-match "\\`file:\\(.+?\\)::" substring-no-properties match-data "\301\300\302\"\207" [set-match-data evaporate] 3 file-truename "\\`\\(file\\|docview\\):" "::\\(.*\\)\\'" absolute (16) abbreviate-file-name expand-file-name #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (noabbrev 616 relative 626)) file-relative-name [set-match-data evaporate] "^" regexp-quote file-name-as-directory "::" (error) message "Can't get link description from %S" symbol-name sit-for called-interactively-p any "Description: " apply delete-region org-link-make-string] 25 (#$ . 48881) "P"]) #@279 Insert all links in `org-stored-links'. When a universal prefix, do not delete the links from `org-stored-links'. When `ARG' is a number, insert the last N link(s). `PRE' and `POST' are optional arguments to define a string to prepend or to append. (fn ARG &optional PRE POST) (defalias 'org-insert-all-links #[769 "\302\232\303!\206 \304\206 \305\306\307\204 \310\311!\202_ <\204+ Y\205_ <\203: \211A\262\242\202? \211A\242\211\262\205_ T\262c\210\312\307@A@\206W \313#\210c\210\202 )\207" [org-stored-links org-link-keep-stored-after-insertion (4) copy-sequence "- " "\n" 1 nil message "No link to insert" org-insert-link "<no description>"] 13 (#$ . 54765) "P"]) #@62 Insert the last link stored in `org-stored-links'. (fn ARG) (defalias 'org-insert-last-stored-link #[257 "\300\301\302#\207" [org-insert-all-links "" "\n"] 5 (#$ . 55467) "p"]) #@106 Insert a link like Org mode does. This command can be called in any mode to insert a link in Org syntax. (defalias 'org-insert-link-global #[0 "\300 \210\301\302!\207" [org-load-modules-maybe org-run-like-in-org-mode org-insert-link] 2 (#$ . 55653) nil]) #@110 Find all radio targets in this file and update the regular expression. Also refresh fontification if needed. (defalias 'org-update-radio-target-regexp #[0 "\303\304\212\214~\210eb\210\305\306 \305\307#\2039 \310u\210\311 \312!\313=\2035 \314\315\"\211\235\203. \2021 \211B\262\262\210\202 \211\262*\211\205I \316\317\320#Q\232?\205\263 \204Y \202z \204a \202z \316\321\322\323\324\325 \"\326\"\327\330%D\320#Q\331\332!\203\252 \333\212\334!\203\215 \335!q\210\212\214~\210\211\206\226 `b\210\306\305\307#\203\250 \336\333\224!\210\202\230 +\210\210\337\n>\205\263 \340 \207" [org-target-link-regexp org-radio-target-regexp org-highlight-links "\\(?:^\\|[^[:alnum:]]\\|\\c|\\)\\(" "\\)\\(?:$\\|[^[:alnum:]]\\|\\c|\\)" nil re-search-forward t -1 org-element-context org-element-type radio-target org-element-property :value mapconcat #[257 "\300\301\302\303!\304\211%\207" [replace-regexp-in-string " +" "\\s-+" regexp-quote t] 7 "\n\n(fn X)"] "\\|" make-byte-code 257 "\302\300G\301G[#\207" vconcat vector [substring] 5 "\n\n(fn RE)" featurep org-element 1 markerp marker-buffer org-element-cache-refresh radio org-restart-font-lock] 13 (#$ . 55915) nil]) (byte-code "\300 \210\301\302!\207" [org-link-make-regexps provide ol] 2)