JezK
Edit File: org-special-blocks.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:53:36 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-special-blocks.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require org-html org-compat] 2) #@153 A regexp indicating the names of blocks that should be ignored by org-special-blocks. These blocks will presumably be interpreted by other mechanisms. (defvar org-special-blocks-ignore-regexp "^\\(LaTeX\\|HTML\\)$" (#$ . 639)) #@128 Adds special cookies when #+begin_foo and #+end_foo tokens are seen. This is run after a few special cases are taken care of. (defalias 'org-special-blocks-make-special-cookies #[nil "\306=\204\f \307=\205J eb\210\310\311\312\313#\205J \314\315!\312 \313 \316\f \n#,\204 \317\314\320!\227\321\232\203= \322\314\315!\323Q\202C \322\314\315!\324Q\313\211#\210\202 \207" [org-export-current-backend org-special-blocks-ignore-regexp start string regexp inhibit-changing-match-data html latex re-search-forward "^[ ]*#\\+\\(begin\\|end\\)_\\(.*\\)$" nil t match-string 2 string-match replace-match 1 "begin" "ORG-" "-START" "-END"] 4 (#$ . 874)]) (add-hook 'org-export-preprocess-after-blockquote-hook 'org-special-blocks-make-special-cookies) #@49 Converts the special cookies into LaTeX blocks. (defalias 'org-special-blocks-convert-latex-special-cookies #[nil "eb\210\300\301\302\303#\205- \304\305\306!\307\232\203 \310\305\311!\312\305\313!R\202& \314\305\311!\312Q\303\211#\210\202 \207" [re-search-forward "^ORG-\\([^ \n]*\\)[ ]*\\(.*\\)-\\(START\\|END\\)$" nil t replace-match match-string 3 "START" "\\begin{" 1 "}" 2 "\\end{"] 6 (#$ . 1628)]) (add-hook 'org-export-latex-after-blockquotes-hook 'org-special-blocks-convert-latex-special-cookies) #@47 Converts the special cookies into div blocks. (defalias 'org-special-blocks-convert-html-special-cookies #[nil "\205@ \301\302\"\205@ \303\304\305\306!\"\210\305\307\"\310\232\203* \311 \210\312\305\306\"\313\261\210\314 \210\305\307\"\315\232\203< \311 \210\316c\210\314 \210\317\320\321\"\207" [org-line string-match "^ORG-\\(.*\\)-\\(START\\|END\\)$" message "%s" match-string 1 2 "START" org-close-par-maybe "\n<div class=\"" "\">" org-open-par "END" "\n</div>" throw nextline nil] 4 (#$ . 2144)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-export-html-after-blockquotes-hook org-special-blocks-convert-html-special-cookies provide org-special-blocks] 3)