WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/org-src.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:50:31 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-src.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

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

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

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\305\315\316\317\311\312\313\320&\210\305\321\322\323\311\312\313\324&\210\305\325\307\326\311\312\313\327&\210\305\330\331\332\311\312\313\333&\207" [require org-macs org-compat ob-keys ob-comint custom-declare-variable org-edit-src-region-extra nil "Additional regexps to identify regions for editing with `org-edit-src-code'.\nFor examples see the function `org-edit-src-find-region-and-lang'.\nThe regular expression identifying the begin marker should end with a newline,\nand the regexp marking the end line should start with a newline, to make sure\nthere are kept outside the narrowed region." :group org-edit-structure :type (repeat (list (regexp :tag "begin regexp") (regexp :tag "end regexp") (choice :tag "language" (string :tag "specify") (integer :tag "from match group") (const :tag "from `lang' element") (const :tag "from `style' element")))) org-coderef-label-format "(ref:%s)" "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 'artist-mode "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 "If non-nil preserve leading whitespace characters on export.\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.  If this variable is nil\nthen, after editing with \\[org-edit-src-code], the\nminimum (across-lines) number of leading whitespace characters\nare removed from all lines, and the code block is uniformly\nindented according to the value of `org-edit-src-content-indentation'." boolean org-edit-src-content-indentation 2 "Indentation for the content of a source code block.\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].  Has no effect if\n`org-src-preserve-indentation' is non-nil." integer] 8)
#@72 If non-nil, blank lines are removed when exiting the code edit buffer.
(defvar org-src-strip-leading-and-trailing-blank-lines nil (#$ . 3294))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-variable org-edit-src-persistent-message t "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." :group org-edit-structure :type boolean org-src-window-setup 'reorganize-frame "How the source code edit buffer should be displayed.\nPossible values for this option are:\n\ncurrent-window    Show edit buffer in the current window, keeping all other\n                  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.  When exiting the edit buffer,\n                  return to one window.\nother-frame       Use `switch-to-buffer-other-frame' to display edit buffer.\n                  Also, when exiting the edit buffer, kill that frame." (choice (const current-window) (const other-frame) (const other-window) (const reorganize-frame))] 8)
#@423 Hook  run after Org switched a source code snippet to its Emacs mode.
This hook will run

- when editing a source code snippet with "C-c '".
- 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 (#$ . 4600))
#@386 Alist mapping languages to their major mode.
The key is the language name, the value is the string that should
be inserted as the name of the major mode.  For many languages this is
simple, but for language where this is not the case, this variable
provides a way to simplify things on the user side.
For example, there is no ocaml-mode in Emacs, but the mode to use is
`tuareg-mode'.
(custom-declare-variable 'org-src-lang-modes ''(("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa" . artist) ("asymptote" . asy) ("dot" . fundamental) ("sqlite" . sql) ("calc" . fundamental) ("C" . c) ("cpp" . c++) ("screen" . shell-script)) '(#$ . 5072) :group 'org-edit-structure :type '(repeat (cons (string "Language name") (symbol "Major mode"))))
(defvar org-src-mode-map (make-sparse-keymap))
(byte-code "\301\302\303#\210\301\304\305#\207" [org-src-mode-map define-key "'" org-edit-src-exit "" org-edit-src-save] 4)
(defvar org-edit-src-force-single-line nil)
(defvar org-edit-src-from-org-mode nil)
(defvar org-edit-src-allow-write-back-p t)
(defvar org-edit-src-picture nil)
(defvar org-edit-src-beg-marker nil)
(defvar org-edit-src-end-marker nil)
(defvar org-edit-src-overlay nil)
(defvar org-edit-src-block-indentation nil)
(defvar org-edit-src-saved-temp-window-config nil)
#@217 If nil, when org-edit-src code is used on a block that already
has an active edit buffer, it will switch to that edit buffer
immediately; otherwise it will ask whether you want to return to
the existing edit buffer.
(defvar org-src-ask-before-returning-to-edit-buffer t (#$ . 6357))
(defvar org-src-babel-info nil)
#@93 Non-nil if Org-Src mode is enabled.
Use the command `org-src-mode' to change this variable.
(defvar org-src-mode nil (#$ . 6678))
(make-variable-buffer-local 'org-src-mode)
#@312 Minor mode for language major mode buffers generated by org.
This minor mode is turned on in two situations:
- when editing a source code snippet with "C-c '".
- When formatting a source code snippet for export with htmlize.
There is a mode hook, and keybindings for `org-edit-src-exit' and
`org-edit-src-save'
(defalias 'org-src-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310\n\203\311\202\312\"\210\313\314!\203@\303 \2033\303 \232\203@\315\316\n\203=\317\202>\320\"\210)\321 \210\n\207" [#1=#:last-message arg org-src-mode current-message toggle prefix-numeric-value 0 run-hooks org-src-mode-hook org-src-mode-on-hook org-src-mode-off-hook called-interactively-p any message "Org-Src mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 6858) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [org-src-mode-map add-minor-mode org-src-mode nil boundp] 6)
#@457 Edit the source CODE block at point.
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.  An optional argument CONTEXT is used by \[org-edit-src-save]
when calling this function.  See `org-src-window-setup' to configure
the display of windows containing the Org buffer and the code buffer.
(defalias 'org-edit-src-code #[(&optional context code edit-buffer-name) "\306\307!\204\310 \204\311\312!\207\313=\204\314 \315 \205\302 \316\317 \211@\fA@\211@
Y\2037\f\202?
b\210\320c\210\317 +A\321\322!B\323\324!C\325 \326\325 \316\"@D?E\327\211FG\327\211HI\327\211JK\327\211LM\327\211NO\327\211PQ\327\211RS\327T
A@\327\223@AA@\327\223@E\203\244\330\331!\202\245\332ND\206\261\333
@\"D\334\335A8U\"A\206\303\335A8\211I9\203\321\336I!\202\323II\337A8K\340A8F\341I\342P!J\212
b\210\327V\212V\203\372Vb\210n\203\343\202\344\345\343`\"\\+O\346&D\347KD\350CD\351ED\352*D\353\321\322!D\354\355A8\206.,D\356
D\357@D\360FD\257\nT\n\203y\n
Y\203y\n@TX\203y\212\n@^b\210\327V\212V\203dVb\210n\203l\343\202m\344\345\343`\"\\*PiQ)J\361\232\203\203\362J\363J!\204\220\364\365J\"\210\212`@V\203\234@b\210\327V\212V\203\251Vb\210n\203\261\343\202\262\344\345\343`\"\\*RiS)\366
@\"\211M\203\347\313=\204\336W\203\332\367\370!\202\333\316\203\347\371M\372\"\210\202\262M\203rMq\210\373\374!\203\374\375<!\210)\376M!\210\377X\206\201e\201f I\"!M\201g
@\"H\201hH\201iM#\210\201hH\201j\201k#\210\201hH\201l\201m#\210\201hH\201n\201o Y\201pY\201q\201r#\210Y)#\210\201hH\201s\201t#\210\201uT\374HDC\"T\371M\201v\"\210K\201w=\203\235\201x\201y\320D\316\211%DDc\210\201zed\201{#\210\352T\236\211ZA@)\204\302\201| \206\300\344G\316[\201}\201~\201\217\210)T\327\\\211]\203]@\211\\@\\\211ZA@)^_\201\200_!^L*\210]A\211]\204\334*\201\201ed\"\210P\203GPOZT`\214~\210eb\210`Sy*\210\201\202*\2031Q\2028\344QGZ]!\210\201\203`\201\204\316#\210\327aROZT`\214~\210eb\210`Sy*\210\201\202*\203hS\202o\344SGZ]!\210\201\205 \210\201\206\327!\210\327bc\203\230\201\207N^_\201\200_!^L*\210\341\201\210IP!d\201\211d!\203\261dB!\210).\316\207" [context org-edit-src-saved-temp-window-config mark case-fold-search temp beg org-in-block-p ("src" "example" "latex" "html") org-at-table\.el-p user-error "Not in a source code or example block" save current-window-configuration org-region-active-p t org-edit-src-find-region-and-lang "\n" org-babel-get-src-block-info light derived-mode-p org-mode make-marker copy-marker nil substitute-command-keys "Edit, then exit with C-c ' (C-c and single quote)" "Exit with C-c ' (C-c and single quote)" buffer-substring-no-properties assoc 2 symbol-name 3 5 intern "-mode" 1 0 count-lines org-edit-src-content-indentation org-edit-src-force-single-line org-edit-src-from-org-mode org-edit-src-allow-write-back-p org-src-preserve-indentation org-src-babel-info org-coderef-label-format 4 org-edit-src-beg-marker org-edit-src-end-marker org-edit-src-block-indentation table\.el-mode #[nil "\303 \210\304\300!\203\203\300\305!\210\306 \210\307\310\311\n!	L*\207" [flyspell-mode value var text-mode boundp -1 table-recognize org-edit-src-content-indentation 0 make-local-variable] 2] functionp error "No such language mode: %s" org-edit-src-find-buffer y-or-n-p "Return to existing edit buffer ([n] will revert changes)? " org-src-switch-to-buffer return boundp org-edit-src-overlay delete-overlay kill-buffer generate-new-buffer end info full-info org-mode-p code allow-write-back-p block-nindent total-nindent ovl lang lang-f single lfmt buffer msg begline markline markcol line col transmitted-variables org-src-lang-modes pos org-src-ask-before-returning-to-edit-buffer edit-buffer-name map x org-inhibit-startup pair --dolist-tail-- value var N deactivate-mark buffer-file-name org-edit-src-persistent-message edit-prep-func org-src-construct-edit-buffer-name buffer-name make-overlay overlay-put edit-buffer help-echo "Click with mouse-1 to switch to buffer editing this segment" face secondary-selection keymap make-sparse-keymap define-key [mouse-1] org-edit-src-continue :read-only "Leave me alone" append edit macro-definition replace-regexp-in-string "\\\\n" remove-text-properties (display nil invisible nil intangible nil) org-do-remove-indentation e (funcall lang-f) ((error (byte-code "\302\303	A@#\207" [lang-f e error "Language mode `%s' fails with: %S"] 4))) make-local-variable org-unescape-code-in-region org-move-to-column push-mark no-message org-src-mode set-buffer-modified-p header-line-format "org-babel-edit-prep:" fboundp] 12 (#$ . 7808) nil])
#@33 Continue editing source blocks.
(defalias 'org-edit-src-continue #[(e) "\302!\210\303`\304\"\211\203\305	\306\"\202\307\310!)\207" [e buf mouse-set-point get-char-property edit-buffer org-src-switch-to-buffer continue error "Something is wrong here"] 4 (#$ . 12706) "e"])
(defalias 'org-src-switch-to-buffer #[(buffer context) "\304\305\"\203\306	!\207\304\307\"\203\310	!\207\304\311\"\203C\304\n\312\"\2030\313 \314	!\210\315!)\207\304\n\316\"\203?\317p!\210\306	!\207\314	!\207\304\320\"\203`\n\321=\203S\322 \210\323	!\210\n\324=\205t\322 \207\304\325\"\203j	q\207\326\327\330!\"\210\306	!\207" [org-src-window-setup buffer context frame memql 'current-window org-pop-to-buffer-same-window 'other-window switch-to-buffer-other-window 'other-frame 'exit selected-frame switch-to-buffer-other-frame delete-frame 'save kill-buffer 'reorganize-frame edit delete-other-windows org-switch-to-buffer-other-window exit 'switch-invisibly message "Invalid value %s for org-src-window-setup" symbol-name] 4])
#@56 Construct the buffer name for a source editing buffer.
(defalias 'org-src-construct-edit-buffer-name #[(org-buffer-name lang) "\302\303	\304\260\207" [org-buffer-name lang "*Org Src " "[ " " ]*"] 5 (#$ . 13739)])
#@96 Test whether BUFFER (or the current buffer if BUFFER is nil)
is a source block editing buffer.
(defalias 'org-src-edit-buffer-p #[(&optional buffer) "\301\206p!\302!\205\"\303\304\302!\"\205\"\305\306\"\205\"\305\307\")\207" [buffer org-base-buffer buffer-name string-match "\\`*Org Src " local-variable-p org-edit-src-beg-marker org-edit-src-end-marker] 4 (#$ . 13960)])
#@77 Find a source editing buffer that is already editing the region BEG to END.
(defalias 'org-edit-src-find-buffer #[(beg end) "\300\301\215\207" [exit (byte-code "\300\301\302 \"\210\303\207" [mapc #[(b) "rq\210\305\306\307 \"\205*\310\302p\"\205*\310\304p\"\205*	\n\232\205*\f\232\205*\311\312p\")\207" [b beg org-edit-src-beg-marker end org-edit-src-end-marker string-match "\\`*Org Src " buffer-name local-variable-p throw exit] 3] buffer-list nil] 3)] 2 (#$ . 14349)])
#@381 Edit the fixed-width ascii drawing at point.
This must be a region where each line starts with a colon followed by
a space character.
An new buffer is created and the fixed-width region is copied into it,
and the buffer is switched into `artist-mode' for editing.  When done,
exit with \[org-edit-src-exit].  The edited text will then replace
the fragment in the Org-mode buffer.
(defalias 'org-edit-fixed-width-region #[nil "\306\212\203\nb\210n\203\307\202\310\311\307`\"\\*i\312\313\314!\315\316!\317 \317 	\306\211\211\211\211\211\211@ABCDEFGHIJ\320\307!\210\321\322!?\205N\321\323!\203``\211@\202\230\212\324\325\306\326#\203q\327\330!@\202t`@)\212\331\325\306\326#\203\205\310\224S\202\207`)JK\214~\210eb\210KSy*\210E@\306\223ED
\306\223D\332ED\"\212Eb\210\306\212\203\275b\210n\203\305\307\202\306\310\311\307`\"\\+\333ED\"\211\203\345\334\335!\203\345\336\n!\210\202C\n\203\375r\nq\210\337\340!\203\370\341 !\210)\342\n!\210\343\344\345 \346\"!\347ED\"A\350A\351\352#\210\350A\353\n#\210\350A\354\355#\210\350A\351\352#\210\350A\356\357 L\360L\361\362#\210L)#\210\350A\363\364#\210\336\n!\210\fc\210\365ed\366#\210\367 \206W\310BM\370=\203j\371 \210\370\307!\210\202nM \210\372\373!\210\306;\372\374!\210F<\372\375!\210\312=eb\210\331\376\306\312#\203\230\377\201Q!\210\202\207JZTK\214~\210eb\210KSy*\210\201R\310\201SIB\330#]!\210\201TENO\372O!NL*\210\201UDNO\372O!NL*\210\340ANO\372O!NL*\210\201VBNO\372O!NL*\210\201W\310NO\372O!NL*\210\301\306NO\372O!NL*\210\201X \210\201Y\306!\210P\203C\201ZGNO\372O!NL*\210\201[\201\\G\"\210\312.\207" [pos org-src-preserve-indentation buffer begline code end1 nil 1 0 count-lines t substitute-command-keys "Edit, then exit with C-c ' (C-c and single quote)" derived-mode-p org-mode make-marker beginning-of-line looking-at "[ 	]*[^:\n 	]" "[ 	]*\\(\n\\|\\'\\)" re-search-backward "^[ 	]*[^: 	]" move point-at-bol 2 re-search-forward buffer-substring-no-properties org-edit-src-find-buffer y-or-n-p "Return to existing edit buffer ([n] will revert changes)? " org-pop-to-buffer-same-window boundp org-edit-src-overlay delete-overlay kill-buffer generate-new-buffer org-src-construct-edit-buffer-name buffer-name "Fixed Width" 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 :read-only "Leave me alone" remove-text-properties (display nil invisible nil intangible nil) org-do-remove-indentation artist-mode fundamental-mode make-local-variable org-edit-src-force-single-line org-edit-src-from-org-mode org-edit-src-picture "^[ 	]*: ?" replace-match beg1 ovl block-nindent preserve-indentation end beg org-mode-p msg case-fold-search col line N map org-edit-fixed-width-region-mode value var org-edit-src-persistent-message "" org-move-to-column - org-edit-src-beg-marker org-edit-src-end-marker org-edit-src-block-indentation org-edit-src-content-indentation org-src-mode set-buffer-modified-p header-line-format message "%s"] 16 (#$ . 14834) nil])
#@196 Find the region and language for a local edit.
Return a list with beginning and end of the region, a string representing
the language, a switch telling if the content should be in a single line.
(defalias 'org-edit-src-find-region-and-lang #[nil "\306\307\"`\310\211\211\211\211\211\211\211\211\211\f
\311\312\215.\f\207" [org-edit-src-region-extra entry ind match-re1 lfmt lang append (("<src\\>[^<]*>[ 	]*\n?" "\n?[ 	]*</src>" lang) ("<literal\\>[^<]*>[ 	]*\n?" "\n?[ 	]*</literal>" style) ("<example>[ 	]*\n?" "\n?[ 	]*</example>" "fundamental") ("<lisp>[ 	]*\n?" "\n?[ 	]*</lisp>" "emacs-lisp") ("<perl>[ 	]*\n?" "\n?[ 	]*</perl>" "perl") ("<python>[ 	]*\n?" "\n?[ 	]*</python>" "python") ("<ruby>[ 	]*\n?" "\n?[ 	]*</ruby>" "ruby") ("^[ 	]*#\\+begin_src\\( \\([^ 	\n]+\\)\\)?.*\n" "\n[ 	]*#\\+end_src" 2) ("^[ 	]*#\\+begin_example.*\n" "\n[ 	]*#\\+end_example" "fundamental") ("^[ 	]*#\\+html:" "\n" "html" single-line) ("^[ 	]*#\\+begin_html.*\n" "\n[ 	]*#\\+end_html" "html") ("^[ 	]*#\\+latex:" "\n" "latex" single-line) ("^[ 	]*#\\+begin_latex.*\n" "\n[ 	]*#\\+end_latex" "latex") ("^[ 	]*#\\+ascii:" "\n" "fundamental" single-line) ("^[ 	]*#\\+begin_ascii.*\n" "\n[ 	]*#\\+end_ascii" "fundamental") ("^[ 	]*#\\+docbook:" "\n" "xml" single-line) ("^[ 	]*#\\+macro:[ 	]+\\S-+\\( \\|$\\)" "\n" "fundamental" macro-definition) ("^[ 	]*#\\+begin_docbook.*\n" "\n[ 	]*#\\+end_docbook" "xml")) nil exit (byte-code "\306 \2030\307\310\311\312#\210\313 T\211b\210\314\310\311\312#\204 db\210\315 \210\316 S\317\320	\321\311\211\322\257\"\210\n\211A@\211\205\335@A@\3238\3248\212\325\f!\204Z\307\f\311\312#\203\230\326\322!\322\225\327!\330!\331\322\224!\314
\311\312#\203\331\322\225Y\203\331\317\320\322\224\257\"\210\202\331\325
!\204\246\314
\311\312#\203\331\322\224\307\f\311\312#\203\331\322\224X\203\331\330\326\322!!\331\322\224!\317\320\322\225	\327!\257\"\210)\2020\207" [beg end re-list entry re1 re2 org-at-table\.el-p re-search-backward "^[	]*[^ 	|\\+]" nil t point-at-eol re-search-forward newline point-at-bol throw exit table\.el 0 2 3 looking-at match-string org-edit-src-get-lang org-edit-src-get-label-format org-edit-src-get-indentation lang single match-re1 lfmt ind pos] 9) end beg single re2 re1 pos re-list] 12 (#$ . 18035)])
#@27 Extract the src language.
(defalias 'org-edit-src-get-lang #[(lang) "\302\303!	;\203
	\202A	\250\203\302	!\202A	\301=\203,\304\305\"\203,\302\306\"\202A	\307=\203@\304\310\"\203@\302\306\"\202A\311)\207" [m lang match-string 0 string-match "\\<lang=\"\\([^ 	\n\"]+\\)\"" 1 style "\\<style=\"\\([^ 	\n\"]+\\)\"" "fundamental"] 3 (#$ . 20380)])
#@27 Extract the label format.
(defalias 'org-edit-src-get-label-format #[(s) "\302 \303\216\304\305	\"\205\306\307	\"*\207" [save-match-data-internal s match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "-l[ 	]+\\\\?\"\\([^	
\n\"]+\\)\\\\?\"" match-string 1] 3 (#$ . 20745)])
#@46 Count leading whitespace characters on line.
(defalias 'org-edit-src-get-indentation #[(pos) "\302 \303\216	b\210\304 *\207" [save-match-data-internal pos match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-get-indentation] 1 (#$ . 21085)])
#@129 Escape lines between BEG and END.
Escaping happens when a line starts with "*", "#+", ",*" or
",#+" by appending a comma to it.
(defalias 'org-escape-code-in-region #[(beg end) "\212b\210\302\303	\304#\205\305\306\307\211\211\310%\210\202)\207" [beg end re-search-forward "^[ 	]*,?\\(\\*\\|#\\+\\)" t replace-match ",\\1" nil 1] 6 (#$ . 21383) "r"])
#@121 Escape lines in string S.
Escaping happens when a line starts with "*", "#+", ",*" or
",#+" by appending a comma to it.
(defalias 'org-escape-code-in-string #[(s) "\301\302\303\304\211\305&\207" [s replace-regexp-in-string "^[ 	]*,?\\(\\*\\|#\\+\\)" ",\\1" nil 1] 7 (#$ . 21745)])
#@140 Un-escape lines between BEG and END.
Un-escaping happens by removing the first comma on lines starting
with ",*", ",#+", ",,*" and ",,#+".
(defalias 'org-unescape-code-in-region #[(beg end) "\212b\210\302\303	\304#\205\305\306\307\211\211\310%\210\202)\207" [beg end re-search-forward "^[ 	]*,?\\(,\\)\\(?:\\*\\|#\\+\\)" t replace-match "" nil 1] 6 (#$ . 22035) "r"])
#@132 Un-escape lines in string S.
Un-escaping happens by removing the first comma on lines starting
with ",*", ",#+", ",,*" and ",,#+".
(defalias 'org-unescape-code-in-string #[(s) "\301\302\303\304\211\305&\207" [s replace-regexp-in-string "^[ 	]*,?\\(,\\)\\(?:\\*\\|#\\+\\)" "" nil 1] 7 (#$ . 22415)])
#@50 Exit special edit and protect problematic lines.
(defalias 'org-edit-src-exit #[(&optional context) "\306\300!\203\n\204\307\310!\210~\210\311\312\313 \"\n\f:;\314 <p=\306\315!\205-
\211>\316=?@\206:\317A\\BCD\306\320!\205KE\317F\321\211GH\321\211IJE\203\220D\204k\322ed\"\210K\203\220\212eb\210\323\324!\203~\325\326!\210?\204\217\327\330\321\331#\203\217\325\326!\210)\306\315!\203\237
\203\237\332\202\273\321L\212L\203\254Lb\210n\203\264\332\202\265\317\333\332`\"\\*HiIE\203\312>\203eb\210\327\334\321\331#\203\331\325\326!\210eb\210\317M\327\335\321\331#\203\376MTM\325?\203\366\336\202\367\337\331\211#\210\202\337?\203M\317V\203db\210\336c\210)eb\210\323\340!\203\325\337!\210\306\300!\203S\203S	\204S\341ed\"\210F\212HN\214~\210eb\210NSy*\210\323\342!\203N\332\202O\317)\\F\306\343!\203x#\203x\321D\322ed\"\210eb\210\327\344\321\331#\203x\325\345!\210\202i>\204\243D\204\243B\317U\204\243\346B\347\"Jeb\210\327\344\321\331#\203\243\325J!\210\202\223\306\343!\203\264#\203\264B\350\\B\314 GO\351=\203\306\352 \210<c\210\353\321!\210\354\355!O\206\324\356\"\210O\351=\203\343\357 \210\202\350\360=!\210b\210E\203
\211
]|\210\311\361G\"\204Gc\210b\210>\203
\362 \210\331\363\364\365`!\">\203\366\317!\210\202b\321L\212L\203,Lb\210n\2034\332\2025\317\333\332`\"\\*H\\SN\214~\210eb\210NSy*\210\367D\203XI\202`\370IBF#!\210O\351=\204s\321\211\223\210
\321\211\223\210.O\351=?\205\213P\205\213\371P!\210\321\211P\207" [org-edit-src-from-org-mode fixed-width-p org-edit-src-beg-marker beg org-edit-src-end-marker end boundp error "This is not a sub-editing buffer, something is wrong" string-match "Fixed Width" buffer-name buffer-string org-edit-src-force-single-line macro-definition 0 org-edit-src-allow-write-back-p nil untabify looking-at "[ 	\n]*\n" replace-match "" re-search-forward "\n[ 	\n]*\\'" t 1 count-lines "\\s-+\\'" "\n" "\\n" " " "\\s-*" org-escape-code-in-region "[ 	]*\\(,,\\)?\\(\\*\\|#+\\)" org-edit-src-picture "^" ": " make-string 32 2 save erase-buffer set-buffer-modified-p org-src-switch-to-buffer marker-buffer exit save-buffer kill-buffer "\\`[ 	]*\\'" just-one-space mapcar #[(overlay) "\301\302\"\303=\207" [overlay overlay-get invisible org-hide-block] 3] overlays-at beginning-of-line org-move-to-column + set-window-configuration org-edit-src-overlay ovl bufstr buffer single macro org-edit-src-block-indentation org-edit-src-content-indentation total-nindent org-src-preserve-indentation preserve-indentation allow-write-back-p delta code line col indent org-src-strip-leading-and-trailing-blank-lines pos cnt N context org-edit-src-saved-temp-window-config] 6 (#$ . 22722) nil])
(defalias 'org-src-in-org-buffer '(macro . #[(&rest body) "\301\302\303\304\305\306\"BB\307BBB\207" [body let ((p (point)) (m (mark)) (ul buffer-undo-list) msg) save-window-excursion (org-edit-src-exit 'save) append ((setq msg (current-message)) (if (eq org-src-window-setup 'other-frame) (let ((org-src-window-setup 'current-window)) (org-edit-src-code 'save)) (org-edit-src-code 'save))) ((setq buffer-undo-list ul) (push-mark m 'nomessage) (goto-char (min p (point-max))) (message (or msg "")))] 7]))
(put 'org-src-in-org-buffer 'edebug-form-spec '(body))
#@59 Save parent buffer with current state source-code buffer.
(defalias 'org-edit-src-save #[nil "`\306 \307\310 \311\216\312\313!\210\314 \210\315 \316=\203*\317\320\313!\210)\202.\320\313!\210*\n\321\322\"\210\fd^b\210\323	\206A\324!,\207" [buffer-undo-list msg ul m p #1=#:wconfig mark nil current-window-configuration ((set-window-configuration #1#)) org-edit-src-exit save save-buffer current-message other-frame current-window org-edit-src-code push-mark nomessage message "" org-src-window-setup] 4 (#$ . 26063) nil])
#@27 Tangle the parent buffer.
(defalias 'org-src-tangle #[(arg) "`\306 \307\310 \311\216\312\313!\210\314!\210\315 \316=\203,\317\320\313!\210)\2020\320\313!\210*\n\321\322\"\210\fd^b\210\323	\206C\324!,\207" [buffer-undo-list msg ul m p #1=#:wconfig mark nil current-window-configuration ((set-window-configuration #1#)) org-edit-src-exit save org-babel-tangle current-message other-frame current-window org-edit-src-code push-mark nomessage message "" arg org-src-window-setup] 4 (#$ . 26606) nil])
(defalias 'org-src-mode-configure-edit-buffer #[nil "\306\300!\2050\2050\307\310\311\312\313$\210\306\301!\203,	\203,\314\304\315!!\316\317 \320R\321\211\207\314\211\207" [org-edit-src-from-org-mode org-edit-src-allow-write-back-p buffer-offer-save org-edit-src-beg-marker buffer-file-name write-contents-functions boundp org-add-hook kill-buffer-hook #[nil "\301!\207" [org-edit-src-overlay delete-overlay] 2] nil local t marker-buffer "[" buffer-name "]" (org-edit-src-save) buffer-read-only] 5])
(org-add-hook 'org-src-mode-hook 'org-src-mode-configure-edit-buffer)
#@44 Associate edit buffer with comint session.
(defalias 'org-src-associate-babel-session #[(info) "\303\304\3058\"A\211\205+	\306\230?\205+\307	!\205+\310\311\312@\"!\313\n!\205*\n	!))\207" [info session f assoc :session 2 "none" org-babel-comint-buffer-livep intern format "org-babel-%s-associate-session" fboundp] 5 (#$ . 27708) nil])
(defalias 'org-src-babel-configure-edit-buffer #[nil "\205\301!\207" [org-src-babel-info org-src-associate-babel-session] 2])
(org-add-hook 'org-src-mode-hook 'org-src-babel-configure-edit-buffer)
#@63 Execute a command from an edit buffer in the Org-mode buffer.
(defalias 'org-src-do-at-code-block '(macro . #[(&rest body) "\301\302\303\304\305\306\307BBBEE\207" [body let ((beg-marker org-edit-src-beg-marker)) if beg-marker with-current-buffer (marker-buffer beg-marker) (goto-char (marker-position beg-marker))] 8 (#$ . 28257)]))
(put 'org-src-do-at-code-block 'edebug-form-spec '(body))
#@729 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.
(defalias 'org-src-do-key-sequence-at-code-block #[(&optional key) "\304\232\203	\305 \207\306 \210	\211\205$r\307\n!q\210\310\n!b\210\311\312\"!))\207" [key org-edit-src-beg-marker beg-marker org-babel-map "" keyboard-quit org-edit-src-save marker-buffer marker-position call-interactively lookup-key] 5 (#$ . 28656) "kOrg-babel key: "])
#@106 If non-nil, the effect of TAB in a code block is as if it were
issued in the language major mode buffer.
(custom-declare-variable 'org-src-tab-acts-natively nil '(#$ . 29737) :type 'boolean :version "24.1" :group 'org-babel)
#@111 Perform language-specific TAB action.
Alter code block according to effect of TAB in the language major
mode.
(defalias 'org-src-native-tab-command-maybe #[nil "\205	\303\232?\205\304\305\306!)\207" [org-src-tab-acts-natively this-command org-src-strip-leading-and-trailing-blank-lines org-shifttab nil org-babel-do-key-sequence-in-edit-buffer "	"] 2 (#$ . 29969)])
(add-hook 'org-tab-first-hook 'org-src-native-tab-command-maybe)
#@227 Fontify code block.
This function is called by emacs automatic fontification, as long
as `org-src-fontify-natively' is non-nil.  For manual
fontification of code blocks see `org-src-fontify-block' and
`org-src-fontify-buffer'
(defalias 'org-src-font-lock-fontify-block #[(lang start end) "\306!\307	!\205p\310\n\"\311 p\312\211\313\n\314#\210r\315\316\317	!P!q\210ed|\210\320\261\210	=\204?	 \210\321 \210e\322
\323\"\211\203d\324\n
S\\\n\f\\S\323\325
\323\"%\210\f\202D)\326\n\327#\210\330!-)\207" [lang lang-mode start end next pos org-src-get-lang-mode fboundp buffer-substring-no-properties buffer-modified-p nil remove-text-properties (face nil) get-buffer-create " org-src-fontification:" symbol-name " " font-lock-fontify-buffer next-single-property-change face put-text-property get-text-property add-text-properties (font-lock-fontified t fontified t font-lock-multiline t) set-buffer-modified-p org-buffer modified string major-mode] 7 (#$ . 30413)])
#@30 Fontify code block at point.
(defalias 'org-src-fontify-block #[nil "\212\302\303 \304@A@\"+\207" [info org-src-fontify-natively t org-edit-src-find-region-and-lang font-lock-fontify-region] 3 (#$ . 31409) nil])
#@48 Fontify all code blocks in the current buffer.
(defalias 'org-src-fontify-buffer #[nil "\306\211?\206\f\307\310!!`\306\311 \312\216\203\313!\210peb\210\314
\306\315#\203|\316\224b\210\317\316!\316\224\316\225\317\320!\320\224\320\225\317\321!\321\224\321\225\317\322!\322\224\322\225\317\323!\323\224\323\225 !\"#$\324 \210\"b\210.\202#*	\204\205\325!\210\nb,\207" [#1=#:file visited-p point to-be-removed #2=#:wconfig org-babel-src-block-regexp nil get-file-buffer expand-file-name current-window-configuration ((set-window-configuration #2#)) find-file re-search-forward t 0 match-string 2 3 4 5 org-src-fontify-block kill-buffer end-body beg-body body end-header-args beg-header-args header-args end-switches beg-switches switches end-lang beg-lang lang end-block beg-block full-block] 16 (#$ . 31631) nil])
#@108 Return major mode that should be used for LANG.
LANG is a string, and the returned major mode is a symbol.
(defalias 'org-src-get-lang-mode #[(lang) "\303\304	\"A\206\n\2119\203\305\n!\202\n)\306P!\207" [lang org-src-lang-modes l intern assoc symbol-name "-mode"] 5 (#$ . 32492)])
(provide 'org-src)
F1l3 Manager
