Current File : //usr/local/share/emacs/27.2/lisp/org/org-src.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312DD\313\314\315\316\317\320\321\322\323& \210\306\324\310\311\325DD\326\314\315\316\317\320\327\322\330& \210\306\331\310\311\332DD\333\314\315\322\334&\210\306\335\310\311\336DD\337\314\315\322\340&\210\306\341\310\311\342DD\343\314\315\322\323&\210\306\344\310\311\345DD\346\314\315\322\330\347\350& \210\306\351\310\311\352DD\353\314\315\322\323&\210\306\354\310\311\355DD\356\314\315\316\317\320\357\322\323& \210\306\360\310\311\361DD\362\314\315\322\363&\207" [require cl-lib ob-comint org-macs org-compat org-keys custom-declare-variable org-edit-src-turn-on-auto-save funcall function #[0 "\300\207" [nil] 1] "Non-nil means turn `auto-save-mode' on when editing a source block.\nThis will save the content of the source code editing buffer into\na newly created file, not the base buffer for this source block.\n\nIf you want to regularly save the base buffer instead of the source\ncode editing buffer, see `org-edit-src-auto-save-idle-delay' instead." :group org-edit-structure :version "24.4" :package-version (Org . "8.0") :type boolean org-edit-src-auto-save-idle-delay #[0 "\300\207" [0] 1] "Delay before saving a source code buffer back into its base buffer.\nWhen a positive integer N, save after N seconds of idle time.\nWhen 0 (the default), don't auto-save.\n\nIf you want to save the source code buffer itself, don't use this.\nCheck `org-edit-src-turn-on-auto-save' instead." (Org . "8.0") integer org-coderef-label-format #[0 "\300\207" [#1="(ref:%s)"] 1 #1#] "The default coderef format.\nThis format string will be used to search for coderef labels in literal\nexamples (EXAMPLE and SRC blocks). The format can be overwritten in\nan individual literal example with the -l option, like\n\n#+BEGIN_SRC pascal +n -r -l \"((%s))\"\n...\n#+END_SRC\n\nIf you want to use this for HTML export, make sure that the format does\nnot introduce special font-locking, and avoid the HTML special\ncharacters `<', `>', and `&'. The reason for this restriction is that\nthe labels are searched for only after htmlize has done its job." string org-edit-fixed-width-region-mode #[0 "\300\207" [artist-mode] 1] "The mode that should be used to edit fixed-width regions.\nThese are the regions where each line starts with a colon." (choice (const artist-mode) (const picture-mode) (const fundamental-mode) (function :tag "Other (specify)")) org-src-preserve-indentation #[0 "\300\207" [nil] 1] "If non-nil preserve leading whitespace characters on export.\n\\<org-mode-map>\nIf non-nil leading whitespace characters in source code blocks\nare preserved on export, and when switching between the org\nbuffer and the language mode edit buffer.\n\nWhen this variable is nil, after editing with `\\[org-edit-src-code]',\nthe minimum (across-lines) number of leading whitespace characters\nare removed from all lines, and the code block is uniformly indented\naccording to the value of `org-edit-src-content-indentation'." org-edit-src-content-indentation #[0 "\300\207" [2] 1] "Indentation for the content of a source code block.\n\nThis should be the number of spaces added to the indentation of the #+begin\nline in order to compute the indentation of the block content after\nediting it with `\\[org-edit-src-code]'.\n\nIt has no effect if `org-src-preserve-indentation' is non-nil." :safe wholenump org-edit-src-persistent-message #[0 "\300\207" [t] 1] "Non-nil means show persistent exit help message while editing src examples.\nThe message is shown in the header-line, which will be created in the\nfirst line of the window showing the editing buffer." org-src-ask-before-returning-to-edit-buffer #[0 "\300\207" [t] 1] "Non-nil means ask before switching to an existing edit buffer.\nIf nil, when `org-edit-src-code' is used on a block that already\nhas an active edit buffer, it will switch to that edit buffer\nimmediately; otherwise it will ask whether you want to return to\nthe existing edit buffer." (Org . "8.0") org-src-window-setup #[0 "\300\207" [reorganize-frame] 1] "How the source code edit buffer should be displayed.\nPossible values for this option are:\n\nplain Show edit buffer using `display-buffer'. Users can\n further control the display behavior by modifying\n `display-buffer-alist' and its relatives.\ncurrent-window Show edit buffer in the current window, keeping all other\n windows.\nsplit-window-below Show edit buffer below the current window, keeping all\n other windows.\nsplit-window-right Show edit buffer to the right of the current window,\n keeping all other windows.\nother-window Use `switch-to-buffer-other-window' to display edit buffer.\nreorganize-frame Show only two windows on the current frame, the current\n window and the edit buffer.\nother-frame Use `switch-to-buffer-other-frame' to display edit buffer.\n Also, when exiting the edit buffer, kill that frame.\n\nValues that modify the window layout (reorganize-frame, split-window-below,\nsplit-window-right) will restore the layout after exiting the edit buffer." (choice (const current-window) (const split-window-below) (const split-window-right) (const other-frame) (const other-window) (const reorganize-frame))] 12)
#@451 Hook run after Org switched a source code snippet to its Emacs mode.
\<org-mode-map>
This hook will run:
- when editing a source code snippet with `\[org-edit-special]'
- when formatting a source code snippet for export with htmlize.
You may want to use this hook for example to turn off `outline-minor-mode'
or similar things which you want to have when editing a source code file,
but which mess up the display of a snippet in Org exported files.
(defvar org-src-mode-hook nil (#$ . 5801))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315\316\317\320\321& \210\300\322\302\303\323DD\324\310\325\320\326\306\327& \207" [custom-declare-variable org-src-lang-modes funcall function #[0 "\300\207" [(("C" . c) ("C++" . c++) ("asymptote" . asy) ("bash" . sh) ("beamer" . latex) ("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist) ("dot" . fundamental) ("elisp" . emacs-lisp) ("ocaml" . tuareg) ("screen" . shell-script) ("shell" . sh) ("sqlite" . sql))] 1] "Alist mapping languages to their major mode.\n\nThe key is the language name. The value is the mode name, as\na string or a symbol, without the \"-mode\" suffix.\n\nFor many languages this is simple, but for language where this is\nnot the case, this variable provides a way to simplify things on\nthe user side. For example, there is no `ocaml-mode' in Emacs,\nbut the mode to use is `tuareg-mode'." :group org-edit-structure :type (repeat (cons (string "Language name") (symbol "Major mode"))) org-src-block-faces #[0 "\300\207" [nil] 1] "Alist of faces to be used for source-block.\nEach element is a cell of the format\n\n (\"language\" FACE)\n\nWhere FACE is either a defined face or an anonymous face.\n\nFor instance, the following value would color the background of\nemacs-lisp source blocks and python source blocks in purple and\ngreen, respectability.\n\n \\='((\"emacs-lisp\" (:background \"#EEE2FF\"))\n (\"python\" (:background \"#e5ffb8\")))" (repeat (list (string :tag "language") (choice (face :tag "Face") (sexp :tag "Anonymous face")))) :version "26.1" :package-version (Org . "9.0") org-src-tab-acts-natively #[0 "\300\207" [t] 1] "If non-nil, the effect of TAB in a code block is as if it were\nissued in the language major mode buffer." boolean (Org . "9.4") org-babel] 12)
#@48 Idle Timer auto-saving remote editing buffers.
(defvar org-src--auto-save-timer nil (#$ . 8132))
(defvar org-src--allow-write-back t nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--allow-write-back put permanent-local t] 4)
(defvar org-src--babel-info nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--babel-info put permanent-local t] 4)
(defvar org-src--beg-marker nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--beg-marker put permanent-local t] 4)
(defvar org-src--block-indentation nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--block-indentation put permanent-local t] 4)
(defvar org-src--content-indentation nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--content-indentation put permanent-local t] 4)
(defvar org-src--end-marker nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--end-marker put permanent-local t] 4)
(defvar org-src--from-org-mode nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--from-org-mode put permanent-local t] 4)
(defvar org-src--overlay nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--overlay put permanent-local t] 4)
(defvar org-src--preserve-indentation nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--preserve-indentation put permanent-local t] 4)
(defvar org-src--remote nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--remote put permanent-local t] 4)
(defvar org-src--saved-temp-window-config nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--saved-temp-window-config put permanent-local t] 4)
#@44 Type of element being edited, as a symbol.
(defvar org-src--source-type nil (#$ . 10066))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--source-type put permanent-local t] 4)
#@122 Contains `tab-width' value from Org source buffer.
However, if `indent-tabs-mode' is nil in that buffer, its value
is 0.
(defvar org-src--tab-width nil (#$ . 10286))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--tab-width put permanent-local t] 4)
#@52 File name associated to Org source buffer, or nil.
(defvar org-src-source-file-name nil (#$ . 10579))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src-source-file-name put permanent-local t] 4)
#@83 Construct the buffer name for a source editing buffer.
(fn ORG-BUFFER-NAME LANG)
(defalias 'org-src--construct-edit-buffer-name #[514 "\300\301\302\260\207" ["*Org Src " "[ " " ]*"] 7 (#$ . 10814)])
#@102 Return buffer editing area between BEG and END.
Return nil if there is no such buffer.
(fn BEG END)
(defalias 'org-src--edit-buffer #[514 "\3022E \303 \211\205B \211@r\211q\210\304 \203: U\203: \305!\305!=\203: U\203: \305!\305 !=\203: \306\302\"\210)A\266\202\202 \2620\207" [org-src--beg-marker org-src--end-marker exit buffer-list org-src-edit-buffer-p marker-buffer throw] 7 (#$ . 11024)])
#@219 Return coordinates of POS relatively to BEG and END.
POS, BEG and END are buffer positions. Return value is either
a cons cell (LINE . COLUMN) or symbol `end'. See also
`org-src--goto-coordinates'.
(fn POS BEG END)
(defalias 'org-src--coordinates #[771 "Y\203 \300\207\212\214~\210]b\210\301\302 \"i\303\210iZ*B\207" [end count-lines line-beginning-position nil] 6 (#$ . 11437)])
#@182 Move to coordinates COORD relatively to BEG and END.
COORD are coordinates, as returned by `org-src--coordinates',
which see. BEG and END are buffer positions.
(fn COORD BEG END)
(defalias 'org-src--goto-coordinates #[771 "\300=\203
\211S]\202& \212\214~\210b\210@y\210\301\210\302iA\\\303]!\210`*b\207" [end nil org-move-to-column 0] 6 (#$ . 11834)])
#@180 Return contents boundaries of DATUM.
DATUM is an element or object. Return a list (BEG END CONTENTS)
where BEG and END are buffer positions and CONTENTS is a string.
(fn DATUM)
(defalias 'org-src--contents-area #[257 "\300!\212\214~\210\211\301\267\202\201 \302\303\"b\210\304\305!\302\306\"\206 \211\307\"E\266\202\202\357 \302\310\"b\210\304\311\312 \313#\302\314\"b\210\315\316\317 \313#\307\"E\266\202\202\357 \302\310\"\302\314\"\212\320!\203b \321!q\210\212\214~\210\211\206k `b\210\322\323x\210`+\262\307\"E\266\202\202\357 \302\324\"\203\234 \302\324\"\302\306\"\307\"E\266\202\202\357 \211\325\267\202\353 \302\303\"b\210\317\326!\302\314\"b\210\327\323x\210\317\330!\302\331\"E\202\357 \302\303\"\302\314\"b\210\327\323x\210\317\326!\332=\203\341 \302\331\"\202\345 \307\"E\266\202\202\357 \333\334\"*\207" [org-element-type #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (footnote-definition 13 inline-src-block 42 latex-fragment 78)) org-element-property :post-affiliated search-forward "]" :contents-end buffer-substring-no-properties :begin "{" line-end-position t :end search-backward "}" line-beginning-position markerp marker-buffer " " nil :contents-begin #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (example-block 162 export-block 162 src-block 162 fixed-width 192 latex-environment 192 table 192)) 2 "
\n" 1 :value fixed-width error "Unsupported element or object: %s"] 9 (#$ . 12202)])
#@157 Create overlay between BEG and END positions and return it.
EDIT-BUFFER is the buffer currently editing area between BEG and
END.
(fn BEG END EDIT-BUFFER)
(defalias 'org-src--make-source-overlay #[771 "\300\"\301\302\303#\210\301\304#\210\301\305\306#\210\301\302\303#\210\301\307\310 \311\312\313#\210\211\262#\210\314C\301\315#\210\301\316#\210\301\317#\266\211\207" [make-overlay overlay-put face secondary-selection edit-buffer help-echo "Click with mouse-1 to switch to buffer editing this segment" keymap make-sparse-keymap define-key [mouse-1] org-edit-src-continue #[128 "\300\301!\207" [user-error "Cannot modify an area being edited in a dedicated buffer"] 3 "\n\n(fn &rest _)"] modification-hooks insert-in-front-hooks insert-behind-hooks] 12 (#$ . 13743)])
#@44 Remove overlay from current source buffer.
(defalias 'org-src--remove-overlay #[0 "\301!\205 \302!\207" [org-src--overlay overlayp delete-overlay] 2 (#$ . 14536)])
#@144 Non-nil when point is on DATUM.
DATUM is an element or an object. Consider blank lines or white
spaces after it as being outside.
(fn DATUM)
(defalias 'org-src--on-datum-p #[257 "`\300\301\"Y\205( `\212\214~\210\300\302\"b\210\303\304x\210\305!\306=\203% \307 \202& `*X\207" [org-element-property :begin :end "
\n" nil org-element-class element line-end-position] 5 (#$ . 14710)])
#@114 Return buffer contents in a format appropriate for write back.
Assume point is in the corresponding edit buffer.
(defalias 'org-src--contents-for-write-back #[0 "\203 \306\202 \206
\306\n\307>\203 \202 \306\\\f\306V\205 \310\f\212\214~\210\311 *
\312\313!r\211q\210\314\306\315\316\317!\320\"\321$\216\306V\203H \322\211\203Z \323\306G$\210\202b \324\306G\322$\210\266\202c\210eb\210\325!\203u \212 \210)\306V\203\232 m\204\232 \326\322w\210l\204\224 i\327 `|\210\211\\j\266\322y\210\202{ \311 *\262\207" [org-src--preserve-indentation org-src--block-indentation org-src--source-type org-src--content-indentation org-src--tab-width org-src--allow-write-back 0 (example-block src-block) t buffer-string generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil remove-text-properties set-text-properties functionp " " line-beginning-position indent-tabs-mode tab-width org-rm-props] 13 (#$ . 15105)])
#@627 Edit DATUM contents in a dedicated buffer NAME.
INITIALIZE is a function to call upon creating the buffer.
When WRITE-BACK is non-nil, assume contents will replace original
region. Moreover, if it is a function, apply it in the edit
buffer, from point min, before returning the contents.
When CONTENTS is non-nil, display them in the edit buffer.
Otherwise, show DATUM contents as specified by
`org-src--contents-area'.
When REMOTE is non-nil, do not try to preserve point or mark when
moving from the edit area to the source.
Leave point in edit buffer.
(fn DATUM NAME &optional INITIALIZE WRITE-BACK CONTENTS REMOTE)
(defalias 'org-src--edit-element #[1538 "\306>\203 \307 \310!\311@!\311A@\312\"\313\"\206\" \3148\2037 \n\2030 \315\316!\2037 \317\320\"\202m\203G rq\210\321 \210)\322!\210\323\324!\325\326 ! \203V \f\202W \327\330!\331\332\"\212\333!\203l \334!q\210\212\214~\210\211\206u `b\210\335 +\262
\336>\205\215 \331\337\"\206\215 9\f?\205\232 \340`\f\f#
?\205\276 \341 \205\276 \342 \211
Y\205\274 Y\205\274 \340#\262\343!\344#\317\345\"\210 c\210\346ed\347#\210\204\337 \350 \210\351\352!\210\352\353!\203\312 :\3541\373 0\202\355\356\357!\"\262\210);\n<=
>?@ABC\211DE F\360 \210\361p!\210\362 \210\203S\363ed\364\352$\206Kdb\210\365\352w\202k\203f\366ed#\210\367`\370\312#\210\352G\366ed#\266\213\207" [org-src-window-setup org-src--saved-temp-window-config org-src-ask-before-returning-to-edit-buffer indent-tabs-mode tab-width org-edit-src-content-indentation (reorganize-frame split-window-below split-window-right) current-window-configuration org-src--contents-area copy-marker t org-src--edit-buffer 2 y-or-n-p "Return to existing edit buffer ([n] will revert changes)? " org-src-switch-to-buffer return org-src--remove-overlay kill-buffer derived-mode-p org-mode buffer-file-name buffer-base-buffer 0 org-element-type org-element-property :begin markerp marker-buffer current-indentation (example-block src-block) :preserve-indent org-src--coordinates org-region-active-p mark generate-new-buffer org-src--make-source-overlay edit remove-text-properties (display nil invisible nil intangible nil) org-do-remove-indentation set-buffer-modified-p nil functionp (error) message "Initialization fails with: %S" error-message-string org-src-mode buffer-disable-undo buffer-enable-undo text-property-any read-only "
\n" org-src--goto-coordinates push-mark no-message org-src-preserve-indentation org-inhibit-startup org-src--tab-width org-src--from-org-mode org-src--beg-marker org-src--end-marker org-src--remote org-src--source-type org-src--block-indentation org-src--content-indentation org-src--preserve-indentation org-src--overlay org-src--allow-write-back org-src-source-file-name deactivate-mark] 27 (#$ . 16110)])
#@150 Fontify code block.
This function is called by emacs automatic fontification, as long
as `org-src-fontify-natively' is non-nil.
(fn LANG START END)
(defalias 'org-src-font-lock-fontify-block #[771 "\304!\305!\205\251 \306\"\307 p\310\311#\210r\312\313\314\"!q\210\315\316 \210\317\261\210) =\2046 \210\320 \210e\315\321!\211\262\203s \322\nB\211\203l \211@\323\"\324 S\\\f\\S\n%\266A\266\202\202G \210\211\262\202; \266)\325 \326#A@\327!\204\211 \211<\203\222 \330\322$\210\330\322\331$\266\332\333#\210\334!\266\203\207" [inhibit-modification-hooks major-mode font-lock-extra-managed-props org-src-block-faces org-src-get-lang-mode fboundp buffer-substring-no-properties buffer-modified-p remove-text-properties (face nil) get-buffer-create format " *org-src-fontification:%s*" nil erase-buffer " " org-font-lock-ensure next-property-change face get-text-property put-text-property assoc-string t facep font-lock-append-text-property org-block add-text-properties (font-lock-fontified t fontified t font-lock-multiline t) set-buffer-modified-p] 18 (#$ . 18969)])
#@143 Escape lines between BEG and END.
Escaping happens when a line starts with "*", "#+", ",*" or
",#+" by appending a comma to it.
(fn BEG END)
(defalias 'org-escape-code-in-region #[514 "\212\211b\210\300\301\302#\205 \212\303\304\305\211\211\306%\210)\202 )\207" [re-search-backward "^[ ]*\\(,*\\(?:\\*\\|#\\+\\)\\)" t replace-match ",\\1" nil 1] 8 (#$ . 20092) "r"])
#@129 Escape lines in string S.
Escaping happens when a line starts with "*", "#+", ",*" or
",#+" by appending a comma to it.
(fn S)
(defalias 'org-escape-code-in-string #[257 "\300\301\302\303\211\304&\207" [replace-regexp-in-string "^[ ]*\\(,*\\(?:\\*\\|#\\+\\)\\)" ",\\1" nil 1] 8 (#$ . 20471)])
#@154 Un-escape lines between BEG and END.
Un-escaping happens by removing the first comma on lines starting
with ",*", ",#+", ",,*" and ",,#+".
(fn BEG END)
(defalias 'org-unescape-code-in-region #[514 "\212\211b\210\300\301\302#\205 \212\303\304\305\211\211\306%\210)\202 )\207" [re-search-backward "^[ ]*,*\\(,\\)\\(?:\\*\\|#\\+\\)" t replace-match "" nil 1] 8 (#$ . 20775) "r"])
#@140 Un-escape lines in string S.
Un-escaping happens by removing the first comma on lines starting
with ",*", ",#+", ",,*" and ",,#+".
(fn S)
(defalias 'org-unescape-code-in-string #[257 "\300\301\302\303\211\304&\207" [replace-regexp-in-string "^[ ]*,*\\(,\\)\\(?:\\*\\|#\\+\\)" "" nil 1] 8 (#$ . 21164)])
(defvar org-src-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key "'" org-edit-src-exit " " org-edit-src-abort "" org-edit-src-save] 5))
#@93 Non-nil if Org-Src mode is enabled.
Use the command `org-src-mode' to change this variable.
(defvar org-src-mode nil (#$ . 21689))
(make-variable-buffer-local 'org-src-mode)
#@571 Minor mode for language major mode buffers generated by Org.
\<org-mode-map>
This minor mode is turned on in two situations:
- when editing a source code snippet with `\[org-edit-special]'
- when formatting a source code snippet for export with htmlize.
If called interactively, enable Org-Src mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
\{org-src-mode-map}
See also `org-src-mode-hook'.
(fn &optional ARG)
(defalias 'org-src-mode #[256 "\306 \307=\203
?\202 \310!\311V \203# \312\n\203 \313\202! \314!\f\2030 \315\316!\317\320!\321Q!\204D \"\311U\204D \322\"\323\324#!\325\326\203N \327\202O \330\"\210\331\332!\203s \306 \203c \211\306 \232\203s \333\334\335\203n \336\202o \337#\266\210\340 \210\207" [org-src-mode org-edit-src-persistent-message org-src--allow-write-back header-line-format org-edit-src-turn-on-auto-save buffer-auto-save-file-name current-message toggle prefix-numeric-value 0 substitute-command-keys "Edit, then exit with `\\[org-edit-src-exit]' or abort with `\\[org-edit-src-abort]'" "Exit with `\\[org-edit-src-exit]' or abort with `\\[org-edit-src-abort]'" make-temp-name "org-src-" format-time-string "-%Y-%d-%m" ".txt" run-with-idle-timer t #[0 "\212\301\302 \211\203* \211@r\211q\210\303 \203\" \204 \304\262\305 \203\" \306 \210)A\266\202\202 \210\211?\2057 \307!\210\301\211\262)\207" [org-src--auto-save-timer nil buffer-list org-src-edit-buffer-p t buffer-modified-p org-edit-src-save cancel-timer] 4] run-hooks org-src-mode-hook org-src-mode-on-hook org-src-mode-off-hook called-interactively-p any " in current buffer" message "Org-Src mode %sabled%s" "en" "dis" force-mode-line-update org-src--auto-save-timer org-edit-src-auto-save-idle-delay] 7 (#$ . 21870) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar org-src-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [org-src-mode-map org-src-mode-hook variable-documentation put "Hook run after entering or leaving `org-src-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode org-src-mode " OrgSrc" boundp nil] 6)
#@32 Configure the src edit buffer.
(defalias 'org-src-mode-configure-edit-buffer #[0 "\305\300!\205$ \205$ \306\307\310\311\312$\210\305\301!\203! \203! \313\314\211\207\313\211\207" [org-src--from-org-mode org-src--allow-write-back buffer-offer-save write-contents-functions buffer-read-only boundp add-hook kill-buffer-hook org-src--remove-overlay nil local t (org-edit-src-save)] 5 (#$ . 24244)])
(add-hook 'org-src-mode-hook 'org-src-mode-configure-edit-buffer)
#@55 Associate edit buffer with comint session.
(fn INFO)
(defalias 'org-src-associate-babel-session #[257 "\300\3018\236A\211\205) \211\302\230?\205) \303!\205) \304\305\306@\"!\307!\205' \211!\262\207" [:session 2 "none" org-babel-comint-buffer-livep intern format "org-babel-%s-associate-session" fboundp] 6 (#$ . 24717) nil])
(defalias 'org-src-babel-configure-edit-buffer #[0 "\205 \301!\207" [org-src--babel-info org-src-associate-babel-session] 2])
(add-hook 'org-src-mode-hook 'org-src-babel-configure-edit-buffer)
#@75 Execute BODY from an edit buffer in the Org mode buffer.
(fn &rest BODY)
(defalias 'org-src-do-at-code-block '(macro . #[128 "\300\301\302\303\304\305\306BBBEE\207" [let ((beg-marker org-src--beg-marker)) when beg-marker with-current-buffer (marker-buffer beg-marker) (goto-char beg-marker)] 9 (#$ . 25251)]))
(put 'org-src-do-at-code-block 'edebug-form-spec '(body))
#@753 Execute key sequence at code block in the source Org buffer.
The command bound to KEY in the Org-babel key map is executed
remotely with point temporarily at the start of the code block in
the Org buffer.
This command is not bound to a key by default, to avoid conflicts
with language major mode bindings. To bind it to C-c @ in all
language major modes, you could use
(add-hook \='org-src-mode-hook
(lambda () (define-key org-src-mode-map "\C-c@"
\='org-src-do-key-sequence-at-code-block)))
In that case, for example, C-c @ t issued in code edit buffers
would tangle the current Org code block, C-c @ e would execute
the block and C-c @ h would display the other available
Org-babel commands.
(fn &optional KEY)
(defalias 'org-src-do-key-sequence-at-code-block #[256 "\211\302\232\203 \303 \207\304 \210\211\205! r\305!q\210\211b\210\306\307 \"!)\207" [org-src--beg-marker org-babel-map "" keyboard-quit org-edit-src-save marker-buffer call-interactively lookup-key] 6 (#$ . 25629) "kOrg-babel key: "])
#@119 Return major mode that should be used for LANG.
LANG is a string, and the returned major mode is a symbol.
(fn LANG)
(defalias 'org-src-get-lang-mode #[257 "\301\302\"A\206\n \2119\203 \303!\202 \211\262\304P!\207" [org-src-lang-modes intern assoc symbol-name "-mode"] 5 (#$ . 26684)])
#@119 Non-nil when current buffer is a source editing buffer.
If BUFFER is non-nil, test it instead.
(fn &optional BUFFER)
(defalias 'org-src-edit-buffer-p #[256 "\300\206 p!\301!\205 \302\303\"\205 \302\304\"\207" [org-base-buffer buffer-live-p local-variable-p org-src--beg-marker org-src--end-marker] 5 (#$ . 26985)])
#@115 Return source buffer edited in current buffer.
Raise an error when current buffer is not a source editing buffer.
(defalias 'org-src-source-buffer #[0 "\301 \204 \302\303!\210\304!\206 \302\305!\207" [org-src--beg-marker org-src-edit-buffer-p error "Not in a source buffer" marker-buffer "No source buffer available for current editing session"] 2 (#$ . 27315)])
#@117 Return type of element edited in current buffer.
Raise an error when current buffer is not a source editing buffer.
(defalias 'org-src-source-type #[0 "\301 \204 \302\303!\210\207" [org-src--source-type org-src-edit-buffer-p error "Not in a source buffer"] 2 (#$ . 27688)])
#@23
(fn BUFFER CONTEXT)
(defalias 'org-src-switch-to-buffer #[514 "\301\267\202\206 \211\302=\203 \303 \210\304!\207\305!\207\306 \307!\210\302=\205& \303!\207\211\302=\2033 \310 \210\2028 \311\312 !\210\305!\207\211\302=\203H \310 \210\202M \311\313 !\210\305!\207\211\314\267\202i \315 \316!\210\317!\207\320p!\210\305!\207\316!\207\211\321=\203v \322 \210\307!\210\211\302=\205\216 \322 \207q\207\323\324\"\210\305!\207" [org-src-window-setup #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plain 6 current-window 19 other-window 23 split-window-below 39 split-window-right 60 other-frame 81 reorganize-frame 109 switch-invisibly 131)) exit quit-restore-window pop-to-buffer pop-to-buffer-same-window selected-window org-switch-to-buffer-other-window delete-window select-window split-window-vertically split-window-horizontally #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (exit 87 save 97)) selected-frame switch-to-buffer-other-frame delete-frame kill-buffer edit delete-other-windows message "Invalid value %s for `org-src-window-setup'"] 5 (#$ . 27970)])
#@295 Return format string for block at point.
When optional argument ELEMENT is provided, use that block.
Otherwise, assume point is either at a source block, at an
example block.
If point is in an edit buffer, retrieve format string associated
to the remote source block.
(fn &optional ELEMENT)
(defalias 'org-src-coderef-format #[256 "\211\203 \302\303\"\206+ \304 \203\" \211\205! r\305!q\210\211b\210\306 )\207\302\303\307 \"\206+ \207" [org-src--beg-marker org-coderef-label-format org-element-property :label-fmt org-src-edit-buffer-p marker-buffer org-src-coderef-format org-element-at-point] 4 (#$ . 29133)])
#@403 Return regexp matching a coderef format string FMT.
When optional argument LABEL is non-nil, match coderef for that
label only.
Match group 1 contains the full coderef string with surrounding
white spaces. Match group 2 contains the same string without any
surrounding space. Match group 3 contains the label.
A coderef format regexp can only match at the end of a line.
(fn FMT &optional LABEL)
(defalias 'org-src-coderef-regexp #[513 "\300\301\302\303\203 \304!\202 \305\304!\306\307%\"\207" [format "\\([ ]*\\(%s\\)[ ]*\\)$" replace-regexp-in-string "%s" regexp-quote "\\([-a-zA-Z0-9_][-a-zA-Z0-9_ ]*\\)" nil t] 10 (#$ . 29760)])
#@49 Edit definition of footnote reference at point.
(defalias 'org-edit-footnote-reference #[0 "\300 \301\302\"\303!\304=\203 \305!\204 \306\307!\210\211\204 \306\310!\210\212\214~\210\311!\210\312u\210\300 *\303!\304=\212\214~\210\313\301\314\"\206C \301\315\"\203O \301\316\"T\202^ \301\316\"\206^ \301\314\"b\210\317 \"*\320\321\322\203k \323\202l \324\"\210\321\225\325$\210\203\204 \211G\320S\326$\266\327\330\331\"p\332\321\333\334\335!\336\"\337$\262\332\321\340\334\335 \"\341\"\342$\343&\266\344\207" [org-element-context org-element-property :label org-element-type footnote-reference org-src--on-datum-p user-error "Not on a footnote reference" "Cannot edit remotely anonymous footnotes" org-footnote-goto-definition -1 buffer-substring-no-properties :post-affiliated :begin :contents-end line-end-position add-text-properties 0 string-match "\\`\\[fn:.*?:" "\\`.*?\\]" (read-only "Cannot edit footnote label" front-sticky t rear-nonsticky t) (read-only "Cannot edit past footnote reference" front-sticky nil rear-nonsticky nil) org-src--edit-element format "*Edit footnote [%s]*" make-byte-code "\301 \210\302\300!\207" vconcat vector [org-mode org-clone-local-variables] 2 "\301\204\n `\302\303!|\207`\302\304\305\306\307$|\210dSd|\210\310\311\305\306#\203$ \312\313!\210\314\300\315\"\205: \302\316\305\306#\205: \317\320!\210\202+ \207" [search-forward "]" ":" nil t 2 re-search-forward "\n[ ]*\n" user-error "Inline definitions cannot contain blank lines" org-element-lineage (table-cell) "\n" replace-match " "] 6 remote t] 16 (#$ . 30413) nil])
#@328 Edit "table.el" table at point.
\<org-src-mode-map>
A new buffer is created and the table is copied into it. Then
the table is recognized with `table-recognize'. When done
editing, exit with `\[org-edit-src-exit]'. The edited text will then replace
the area in the Org mode buffer.
Throw an error when not at such a table.
(defalias 'org-edit-table\.el #[0 "\301 \302!\303=\203 \304\305\"\306=\203 \307!\204 \310\311!\210\312\313\314 \315\"\316\317$\210\320\300!\2036 \2036 \300\321!\210\322 \210\317\207" [flyspell-mode org-element-at-point org-element-type table org-element-property :type table\.el org-src--on-datum-p user-error "Not in a table.el table" org-src--edit-element org-src--construct-edit-buffer-name buffer-name "Table" text-mode t boundp -1 table-recognize] 6 (#$ . 32013) nil])
#@31 Edit LaTeX fragment at point.
(defalias 'org-edit-latex-fragment #[0 "\300 \301!\302=\203 \303!\204 \304\305!\210\306\307\310\"\307\311\"\307\312\"Z\"\313\314\"\203. \315\202/ \316\317\320\321\322\323\324\325\324\257$\210G\317Z\321\322\323\326\325\326\257$\266\327\330\331 \332\"\333\334!\335\320\336\337\340 !\341\"\342$%\266\324\207" [org-element-context org-element-type latex-fragment org-src--on-datum-p user-error "Not on a LaTeX fragment" buffer-substring-no-properties org-element-property :begin :end :post-blank string-match "\\`\\$[^$]" 1 2 add-text-properties 0 read-only "Cannot edit LaTeX deliminator" front-sticky t rear-nonsticky nil org-src--edit-element org-src--construct-edit-buffer-name buffer-name "LaTeX fragment" org-src-get-lang-mode "latex" make-byte-code "\301\302\303\304#\203 \305\306!\210\202 eb\210\307\300\310\"\205( \311\306\303\304#\205( \305\312!\210\202 \207" vconcat vector [re-search-forward "\n[ ]*\n" nil t replace-match "\n" org-element-lineage (table-cell) search-forward " "] 4] 13 (#$ . 32828) nil])
#@346 Edit LaTeX environment at point.
\<org-src-mode-map>
The LaTeX environment is copied into a new buffer. Major mode is
set to the one associated to "latex" in `org-src-lang-modes',
or to `latex-mode' if there is none.
When done, exit with `\[org-edit-src-exit]'. The edited text will then replace
the LaTeX environment in the Org mode buffer.
(defalias 'org-edit-latex-environment #[0 "\300 \301!\302=\203 \303!\204 \304\305!\210\306\307\310 \311\"\312\313!\314$\210\314\207" [org-element-at-point org-element-type latex-environment org-src--on-datum-p user-error "Not in a LaTeX environment" org-src--edit-element org-src--construct-edit-buffer-name buffer-name "LaTeX environment" org-src-get-lang-mode "latex" t] 6 (#$ . 33907) nil])
#@356 Edit export block at point.
\<org-src-mode-map>
A new buffer is created and the block is copied into it, and the
buffer is switched into an appropriate major mode. See also
`org-src-lang-modes'.
When done, exit with `\[org-edit-src-exit]'. The edited text will then replace
the area in the Org mode buffer.
Throw an error when not at an export block.
(defalias 'org-edit-export-block #[0 "\300 \301!\302=\203 \303!\204 \304\305!\210\306\307\"\206 \310\227\311!\312!\204+ \313\314\"\210\315\316\317 \"\320$\266\321\207" [org-element-at-point org-element-type export-block org-src--on-datum-p user-error "Not in an export block" org-element-property :type "fundamental" org-src-get-lang-mode functionp error "No such language mode: %s" org-src--edit-element org-src--construct-edit-buffer-name buffer-name #[0 "\300ed\"\207" [org-escape-code-in-region] 3] t] 8 (#$ . 34658) nil])
#@613 Edit the source or example block at point.
\<org-src-mode-map>
The code is copied to a separate buffer and the appropriate mode
is turned on. When done, exit with `\[org-edit-src-exit]'. This will remove the
original code in the Org buffer, and replace it with the edited
version. See `org-src-window-setup' to configure the display of
windows containing the Org buffer and the code buffer.
When optional argument CODE is a string, edit it in a dedicated
buffer instead.
When optional argument EDIT-BUFFER-NAME is non-nil, use it as the
name of the sub-editing buffer.
(fn &optional CODE EDIT-BUFFER-NAME)
(defalias 'org-edit-src-code #[512 "\303 \304!\211\305>\203 \306!\204 \307\310!\210\211\311=\203\" \312\313\"\202# \314\311=\205, \315!\311=\2055 \316\317!\320\311=\203H \321!\204H \322\323\"\210\324\206U \325\326 \"\n?\205] \327 \205f \330\f!%\210\331\301!\210\312\332\"\206u \311=\203\216 \211\333\334P!\335!\203\215 \211!\210\210)\336\266\203\207" [deactivate-mark org-coderef-label-format org-src--babel-info org-element-at-point org-element-type (example-block src-block) org-src--on-datum-p user-error "Not in a source or example block" src-block org-element-property :language "example" org-src-get-lang-mode org-babel-get-src-block-info light nil functionp error "No such language mode: %s" org-src--edit-element org-src--construct-edit-buffer-name buffer-name #[0 "\300ed\"\207" [org-escape-code-in-region] 3] org-unescape-code-in-string make-local-variable :label-fmt intern "org-babel-edit-prep:" fboundp t] 14 (#$ . 35560) nil])
#@35 Edit inline source code at point.
(defalias 'org-edit-inline-src-code #[0 "\303 \304!\305=\203 \306!\204 \307\310!\210\311\312\"\313!\314\315!\316\317!\204+ \320\321\"\210\322\323\324 \"\325$\210\211\326\327\330P!\331!\203J \211!\210\210)\326\266\203\207" [deactivate-mark org-src--babel-info org-src--preserve-indentation org-element-context org-element-type inline-src-block org-src--on-datum-p user-error "Not on inline source code" org-element-property :language org-src-get-lang-mode org-babel-get-src-block-info light nil functionp error "No such language mode: %s" org-src--edit-element org-src--construct-edit-buffer-name buffer-name #[0 "\300\301\302\303#\203 \304\305!\210\202 eb\210\306\302w\210e`|\210db\210\306\302x\210`d|\207" [re-search-forward "\n[ ]*" nil t replace-match " " " "] 4] t intern "org-babel-edit-prep:" fboundp] 9 (#$ . 37149) nil])
#@458 Edit the fixed-width ASCII drawing at point.
\<org-src-mode-map>
This must be a region where each line starts with a colon
followed by a space or a newline character.
A new buffer is created and the fixed-width region is copied into
it, and the buffer is switched into the major mode defined in
`org-edit-fixed-width-region-mode', which see.
When done, exit with `\[org-edit-src-exit]'. The edited text will then replace
the area in the Org mode buffer.
(defalias 'org-edit-fixed-width-region #[0 "\301 \302!\303=\203 \304!\204 \305\306!\210\307\310\311 \312\"\313$\210\314\207" [org-edit-fixed-width-region-mode org-element-at-point org-element-type fixed-width org-src--on-datum-p user-error "Not in a fixed-width area" org-src--edit-element org-src--construct-edit-buffer-name buffer-name "Fixed Width" #[0 "m?\205 \300c\210\301y\210\202 \207" [": " nil] 1] t] 6 (#$ . 38041) nil])
#@61 Abort editing of the src code and return to the Org buffer.
(defalias 'org-edit-src-abort #[0 "\301\302 )\207" [org-src--allow-write-back nil org-edit-src-exit] 1 (#$ . 38943) nil])
#@111 Unconditionally return to buffer editing area under point.
Throw an error if there is no such buffer.
(fn E)
(defalias 'org-edit-src-continue #[257 "\300!\210\301`\302\"\211\203 \303\304\"\202 \305\306!\207" [mouse-set-point get-char-property edit-buffer org-src-switch-to-buffer continue user-error "No sub-editing buffer for area at point"] 5 (#$ . 39133) "e"])
#@59 Save parent buffer with current state source-code buffer.
(defalias 'org-edit-src-save #[0 "\303 \204 \304\305!\210\306\307!\210\310 \nr\311 q\210\312 \210b\210\313!\210|\210nc\210\211\2034 n\2044 \314c\210\210\315 \210\316`#\210)\266\317\207" [org-src--beg-marker org-src--end-marker org-src--overlay org-src-edit-buffer-p user-error "Not in a sub-editing buffer" set-buffer-modified-p nil org-src--contents-for-write-back org-src-source-buffer undo-boundary delete-overlay "\n" save-buffer move-overlay t] 8 (#$ . 39508) nil])
#@62 Kill current sub-editing buffer and return to source buffer.
(defalias 'org-edit-src-exit #[0 "\305 \204 \306\307!\210 \n \211?\205 \310`\311d#\205 \312 \313\314!\210p\315!\211\204. \306\316!\210\317\320\"\210\321!\266\212\214~\210\203b {\232\204b \322 \210b\210|\210nc\210\211\203a n\204a \323c\210\210*\204\206 b\210\324\325\326`!\"\203z \327\330!\210\202\206 \203\206 \331#\210\314\211\223\210\314\211\223\210\f\205\232 \332\216\333\f!)\207" [org-src--beg-marker org-src--end-marker org-src--allow-write-back org-src--remote org-src--saved-temp-window-config org-src-edit-buffer-p error "Not in a sub-editing buffer" org-src--coordinates 1 org-src--contents-for-write-back set-buffer-modified-p nil marker-buffer "Source buffer disappeared. Aborting" org-src-switch-to-buffer exit kill-buffer undo-boundary "\n" cl-some #[257 "\300\301\"\302=\207" [overlay-get invisible org-hide-block] 4 "\n\n(fn O)"] overlays-at beginning-of-line 0 org-src--goto-coordinates #[0 "\301\211\207" [org-src--saved-temp-window-config nil] 2] set-window-configuration] 11 (#$ . 40054) nil])
(provide 'org-src)
Mini Shell