| Current Path : /usr/share/emacs/24.3/lisp/org/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/org/org-beamer.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:54 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-beamer.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\303\304\305\306\307\310\311\312&\210\313\314\305\315\311\304\316\317\320\321& \210\313\322\323\324\311\304\316\317\320\325& \210\313\326\315\327\311\304\316\317\320\330& \210\313\331\332\333\311\304\316\317\320\334& \210\313\335\336\337\311\304\316\317\320\340& \207" [require org org-exp custom-declare-group org-beamer nil "Options specific for using the beamer class in LaTeX export." :tag "Org Beamer" :group org-export-latex custom-declare-variable org-beamer-use-parts "" :version "24.1" :type boolean org-beamer-frame-level 1 "The level that should be interpreted as a frame.\nThe levels above this one will be translated into a sectioning structure.\nSetting this to 2 will allow sections, 3 will allow subsections as well.\nYou can set this to 4 as well, if you at the same time set\n`org-beamer-use-parts' to make the top levels `part'." (choice (const :tag "Frames need a BEAMER_env property" nil) (integer :tag "Specific level makes a frame")) org-beamer-frame-default-options "Default options string to use for frames, should contains the [brackets].\nAnd example for this is \"[allowframebreaks]\"." (string :tag "[options]") org-beamer-column-view-format "%45ITEM %10BEAMER_env(Env) %10BEAMER_envargs(Env Args) %4BEAMER_col(Col) %8BEAMER_extra(Extra)" "Default column view format that should be used to fill the template." (choice (const :tag "Do not insert Beamer column view format" nil) (string :tag "Beamer column view format")) org-beamer-themes "\\usetheme{default}\\usecolortheme{default}" "Default string to be used for extra heading stuff in beamer presentations.\nWhen a beamer template is filled, this will be the default for\nBEAMER_HEADER_EXTRA, which will be inserted just before \\begin{document}." (choice (const :tag "Do not insert Beamer themes" nil) (string :tag "Beamer themes"))] 10)
#@72 The column widths that should be installed as allowed property values.
(defconst org-beamer-column-widths "0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 0.0 :ETC" (#$ . 2417))
#@69 Transitions available for beamer.
These are just a completion help.
(defconst org-beamer-transitions " ransblindsvertical ransblindshorizontal ransboxin ransboxout ransdissolve ransduration ransglitter ranssplithorizontalin ranssplithorizontalout ranssplitverticalin ranssplitverticalout ranswipe :ETC" (#$ . 2589))
#@562 Environments triggered by properties in Beamer export.
These are the defaults - for user definitions, see
`org-beamer-environments-extra'.
"normal" is a special fake environment, which emit the heading as
normal text. It is needed when an environment should be surrounded
by normal text. Since beamer export converts nodes into environments,
you need to have a node to end the environment.
For example
** a frame
some text
*** Blocktitle :B_block:
inside the block
*** After the block :B_normal:
continuing here
** next frame
(defconst org-beamer-environments-default '(("frame" "f" "dummy- special handling hard coded" "dummy") ("columns" "C" "\\begin{columns}%o %% %h%x" "\\end{columns}") ("column" "c" "\\begin{column}%o{%h\\textwidth}%x" "\\end{column}") ("block" "b" "\\begin{block}%a{%h}%x" "\\end{block}") ("alertblock" "a" "\\begin{alertblock}%a{%h}%x" "\\end{alertblock}") ("verse" "v" "\\begin{verse}%a %% %h%x" "\\end{verse}") ("quotation" "q" "\\begin{quotation}%a %% %h%x" "\\end{quotation}") ("quote" "Q" "\\begin{quote}%a %% %h%x" "\\end{quote}") ("structureenv" "s" "\\begin{structureenv}%a %% %h%x" "\\end{structureenv}") ("theorem" "t" "\\begin{theorem}%a%U%x" "\\end{theorem}") ("definition" "d" "\\begin{definition}%a%U%x" "\\end{definition}") ("example" "e" "\\begin{example}%a%U%x" "\\end{example}") ("exampleblock" "E" "\\begin{exampleblock}%a{%h}%x" "\\end{exampleblock}") ("proof" "p" "\\begin{proof}%a%U%x" "\\end{proof}") ("beamercolorbox" "o" "\\begin{beamercolorbox}%o{%h}%x" "\\end{beamercolorbox}") ("normal" "h" "%h" #1="") ("note" "n" "\\note%o%a{%h" "}") ("noteNH" "N" "\\note%o%a{" "}") ("ignoreheading" "i" "%%%% %h" #1#)) (#$ . 2923))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\302\313\304\305\310\314&\207" [custom-declare-variable org-beamer-environments-extra nil "Environments triggered by tags in Beamer export.\nEach entry has 4 elements:\n\nname Name of the environment\nkey Selection key for `org-beamer-select-environment'\nopen The opening template for the environment, with the following escapes\n %a the action/overlay specification\n %A the default action/overlay specification\n %o the options argument of the template\n %h the headline text\n %H if there is headline text, that text in {} braces\n %U if there is headline text, that text in [] brackets\n %x the content of the BEAMER_extra property\nclose The closing string of the environment." :group org-beamer :version "24.1" :type (repeat (list (string :tag "Environment") (string :tag "Selection key") (string :tag "Begin") (string :tag "End"))) org-beamer-inherited-properties "Properties that should be inherited during beamer export." (repeat (string :tag "Property"))] 10)
(defvar org-beamer-frame-level-now nil)
(defvar org-beamer-header-extra nil)
(defvar org-beamer-export-is-beamer-p nil)
(defvar org-beamer-inside-frame-at-level nil)
(defvar org-beamer-columns-open nil)
(defvar org-beamer-column-open nil)
#@59 Make sure the width is not empty, and that it has a unit.
(defalias 'org-beamer-cleanup-column-width #[(width) "\301\206 \302!\303\304\"\204 \305\303\306\"\203 \307P\207" [width org-trim "" string-match "\\S-" "0.5" "\\`[.0-9]+\\'" "\\textwidth"] 3 (#$ . 5988)])
(defalias 'org-beamer-open-column #[(&optional width opt) "\303 \210\304\305 !\306\307\n\206 \310 #c\207" [org-beamer-column-open width opt org-beamer-close-column-maybe t org-beamer-cleanup-column-width format "\\begin{column}%s{%s}\n" ""] 4])
(defalias 'org-beamer-close-column-maybe #[nil "\205 \301\302c\207" [org-beamer-column-open nil "\\end{column}\n"] 1])
(defalias 'org-beamer-open-columns-maybe #[(&optional opts) "?\205 \302\303\304 \206 \305\"c\207" [org-beamer-columns-open opts t format "\\begin{columns}%s\n" ""] 3])
(defalias 'org-beamer-close-columns-maybe #[nil "\301 \210\205 \302\303c\207" [org-beamer-columns-open org-beamer-close-column-maybe nil "\\end{columns}\n"] 1])
#@328 Select the environment to be used by beamer for this entry.
While this uses (for convenience) a tag selection interface, the result
of this command will be that the BEAMER_env *property* of the entry is set.
In addition to this, the command will also set a tag as a visual aid, but
the tag does not have any semantic meaning.
(defalias 'org-beamer-select-environment #[nil "\306 \"\306\307\310\311\n\"\312\313$\314 \315 \210\316\317\320\217\206 \321 $\322\232\203: \323\324
\"\2034 \325\326\327\330!\"\202W \331\326!\202W \323\332\333\334\n\335#\336Q
\"\203S \337\316\340\341\342
\"#\202W \343\316\340\",\207" [org-beamer-environments-extra org-beamer-environments-default envs org-tag-alist org-fast-tag-selection-single-key tags append ((:startgroup)) mapcar #[(e) "\301@P\302A@!B\207" [e "B_" string-to-char] 3] ((:endgroup)) (("BMCOL" . 124)) t org-set-tags nil (org-get-tags-string) ((error)) "" 124 string-match ":BMCOL:" org-set-property "BEAMER_col" read-string "Column width: " org-delete-property ":B_\\(" mapconcat car "\\|" "\\):" org-entry-put "BEAMER_env" match-string 1 org-entry-delete org-last-tag-selection-key] 6 (#$ . 6975) nil])
#@409 Return the sectioning entry for the current headline.
LEVEL is the reduced level of the headline.
TEXT is the text of the headline, everything except the leading stars.
The return value is a cons cell. The car is the headline text, usually
just TEXT, but possibly modified if options have been extracted from the
text. The cdr is the sectioning entry, similar to what is given
in org-export-latex-classes.
(defalias 'org-beamer-sectioning #[(level text) "\206 \203 \306\202 \307 \310
@\" A\311\312\313B# C\314\211 D E\315\211 F G\315\211 H I\315\211 J K\315\211 L M\315\211 N O\315 P\n\312U\203N \315Q\203^ RQX\203^ \315Q\316\317C\"\211P\203\344 \320\321P\"\203\211 \322P!\323U\204\203 \322P!\324U\203\211 \325 \210\202\344 \326\327C\"\211O\203\330 \315 S\320\330OA\"\203\267 \331\332OA\"KO\333\314\334\211OA$\241\210\202\227 \320\335OA\"\203\327 \331\332OA\"LO\333\314\334\211OA$\241\210\202\267 )\336K!\210\337PL\"\210\326\340C\"A\341\232\204\372 \n\203qR\nU\203q\342C!\210\343\344\345G\206\314B\346H\206\314B\347F\206 T\206 \314B\350J\203+\351JP\202,\314B\352\353B\354\320\355B\"\203=\356\202>\314B\357\320\360B\"\203L\361\202M\314B\257\"D\362\363!E\364E\365\"\210RQBDEDEFB\202v\326\340C\"A\211M\203Q\326MA\"\211O\203Q\320\366B\"\203\232\333\314\334\211B$BM\367\235\203\253\370\312BG\371B$\210\342C!\210\372B!B\320\355B\"N\343\373O8\345G\206\311\314B\346H\206\321\314B\347F\206\331\314B\350J\203\347\351JP\202\350\314B\352\353B\374N\203\372\375B\376Q\202\373\314B\377N\203\201V B\201W Q\202\314B\257\"D\201X O8\211E\201Y \232\2036\334U\364\362E!\201Z \"E\202BE\201[ \232\203B\336 \210BDEDEFB\202vQ\204u\n\203aR\nW\203u\326R\f\"\203uB\326R\f\"AB\202v\315.\207" [org-beamer-frame-level-now org-beamer-frame-level frame-level org-beamer-use-parts default org-beamer-environments-extra ((1 "\\part{%s}" . "\\part*{%s}") (2 "\\section{%s}" . "\\section*{%s}") (3 "\\subsection{%s}" . "\\subsection*{%s}")) ((1 "\\section{%s}" . "\\section*{%s}") (2 "\\subsection{%s}" . "\\subsection*{%s}")) append org-get-text-property-any 0 org-props "" nil org-beamer-assoc-not-empty "BEAMER_col" string-match "\\`[0-9.]+\\'" string-to-number 1.0 0.0 org-beamer-close-columns-maybe assoc "BEAMER_envargs" "C\\(\\[[^][]*\\]\\|<[^<>]*>\\)" match-string 1 replace-match t "c\\(\\[[^][]*\\]\\|<[^<>]*>\\)" org-beamer-open-columns-maybe org-beamer-open-column "BEAMER_env" "frame" org-beamer-get-special org-fill-template "\\begin{frame}%a%A%o%T%S%x" "a" "A" "o" "x" "\n" "h" "%s" "T" "\\S-" "\n\\frametitle{%s}" "S" "\\\\\\\\" "\n\\framesubtitle{%s}" copy-sequence "\\end{frame}" org-add-props (org-insert-hook org-beamer-close-columns-maybe) "[ ]+:[ ]*$" ("note" "noteNH") remove-text-properties (target nil) org-trim 2 "H" "{" "}" "U" org-beamer-environments-default envs text props in out org-beamer-option org-beamer-action org-beamer-defaction org-beamer-environment org-beamer-extra columns-option column-option env have-text ass tmp org-beamer-inside-frame-at-level level case-fold-search org-beamer-frame-default-options org-beamer-columns-open "[" "]" 3 "\\end{columns}" (org-insert-hook (lambda nil (org-beamer-close-column-maybe) (setq org-beamer-columns-open nil))) "\\end{column}"] 13 (#$ . 8140)])
#@203 Extract an option, action, and default action string from text.
The variables org-beamer-option, org-beamer-action, org-beamer-defaction,
org-beamer-extra are all scoped into this function dynamically.
(defalias 'org-beamer-get-special #[(props) "\306\307\310 \"\307\311 \"\211\203 \312\313\314 #\307\315 \"\211\205^ \316!\317\320\"\2036 \321\322\"\323\324\325\211$\317\326\"\203I \321\322\"\323\324\325\211$\317\327\"\205^ \321\322\"\323\324\325\211$\211)\207" [tmp props org-beamer-environment org-beamer-extra org-beamer-defaction org-beamer-option nil org-beamer-assoc-not-empty "BEAMER_env" "BEAMER_extra" replace-regexp-in-string "\\\\n" "\n" "BEAMER_envargs" copy-sequence string-match "\\[<[^][<>]*>\\]" match-string 0 replace-match "" t "\\[[^][]*\\]" "<[^<>]*>" org-beamer-action] 6 (#$ . 11484)])
(defalias 'org-beamer-assoc-not-empty #[(elt list) "\303 \"A\211\205 \304\305\n\"\205 \n)\207" [elt list tmp assoc string-match "\\S-"] 4])
#@35 The keymap for `org-beamer-mode'.
(defvar org-beamer-mode-map (make-sparse-keymap) (#$ . 12466))
(define-key org-beamer-mode-map "" 'org-beamer-select-environment)
#@99 Non-nil if Org-Beamer mode is enabled.
Use the command `org-beamer-mode' to change this variable.
(defvar org-beamer-mode nil (#$ . 12638))
(make-variable-buffer-local 'org-beamer-mode)
#@70 Special support for editing Org-mode files made to export to beamer.
(defalias 'org-beamer-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-beamer-mode current-message toggle prefix-numeric-value 0 run-hooks org-beamer-mode-hook org-beamer-mode-on-hook org-beamer-mode-off-hook called-interactively-p any message "Org-Beamer mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 12830) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \305\211%\210\306\307!\203 \307\310\311\312#\210\305\207" [org-beamer-mode-map add-minor-mode org-beamer-mode " Bm" boundp nil fboundp font-lock-add-keywords org-mode ((":\\(B_[a-z]+\\|BMCOL\\):" 1 'org-beamer-tag prepend)) prepent] 6)
#@123 Find default overlay specifications in items, and move them.
The need to be after the begin statement of the environment.
(defalias 'org-beamer-place-default-actions-for-lists #[nil "\205- \302eb\210\303\304\302\305#\205, \306\307\310\311\225\312\"\"A\211\203 \212\313\225Tb\210 c\210)\202 )\207" [org-beamer-export-is-beamer-p dovl nil re-search-forward "^[ ]*\\\\begin{\\(itemize\\|enumerate\\|description\\)}[ \n]*\\\\item\\>\\( ?\\(<[^<>\n]*>\\|\\[[^][\n*]\\]\\)\\)?[ ]*\\S-" t assoc "BEAMER_dovl" get-text-property 0 org-props 1] 5 (#$ . 13718)])
#@259 Add `org-beamer-header-extra' to the LaTeX header.
If the file contains the string BEAMER-HEADER-EXTRA-HERE on a line
by itself, it will be replaced with `org-beamer-header-extra'. If not,
the value will be inserted right after the documentclass statement.
(defalias 'org-beamer-amend-header #[nil "\2055 \2055 eb\210\302\303\304\305#\203 \306 \305\211#\210n\2065 \307c\207\302\310\304\305#\2055 \311\312!\210 c\210n\2065 \307c\207" [org-beamer-export-is-beamer-p org-beamer-header-extra re-search-forward "^[ ]*\\[?BEAMER-HEADER-EXTRA\\(-HERE\\)?\\]?[ ]*$" nil t replace-match "\n" "^[ ]*\\\\begin{document}" beginning-of-line 1] 4 (#$ . 14285)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\304\305%\207" [custom-declare-variable org-beamer-fragile-re "\\\\\\(verb\\|lstinline\\)\\|^[ ]*\\\\begin{\\(verbatim\\|lstlisting\\|minted\\)}" "If this regexp matches in a frame, the frame is marked as fragile." :group org-beamer :version "24.1" :type regexp custom-declare-face org-beamer-tag ((t (:box (:line-width 1 :color grey40)))) "The special face for beamer tags."] 10)
#@76 Reset variables that track if certain environments are open during export.
(defalias 'org-beamer-initialize-open-trackers #[nil "\304\211\304\211\211\207" [org-beamer-columns-open org-beamer-column-open org-beamer-inside-frame-at-level org-beamer-export-is-beamer-p nil] 3 (#$ . 15402)])
#@116 Find special settings for beamer and store them.
The effect is that these values will be accessible during export.
(defalias 'org-beamer-after-initial-vars #[nil "\306\307\"\211\205\306 \310 \203\" \212\311 b\210\312\n!\205 \313\314\315\316#)\206@ \212\214~\210eb\210\317\320\314\321#\2054 \322\323!*\206@ \324 \325\"\206@ \f\211\204J \314\202S
;\203S \326
!\310 \203l \212\311 b\210\312\n!\205h \313\314\327\316#)\206\237 \212\214~\210\330 %eb\210\317\331\314\321#\203\212 %\332\322\323!Q%\202v %G\333V\205\227 %\323\314O+\206\237 \324 \334\"&\321\314\211 ' ( )\335\336 \321\211 * +\337ed\340#\210\341\342!\210\343 \344\314#*!+\207" [org-export-latex-header org-beamer-export-is-beamer-p org-complex-heading-regexp org-export-latex-options-plist org-beamer-frame-level org-beamer-frame-level-now string-match "\\\\documentclass\\(\\[[^][]*?\\]\\)?{beamer}" org-region-active-p region-beginning looking-at org-entry-get nil "BEAMER_FRAME_LEVEL" selective re-search-forward "^#\\+BEAMER_FRAME_LEVEL:[ ]*\\(.*?\\)[ ]*$" t match-string 1 plist-get :beamer-frame-level string-to-number "BEAMER_HEADER_EXTRA" "" "^#\\+BEAMER_HEADER_EXTRA:[ ]*\\(.*?\\)[ ]*$" "\n" 0 :beamer-header-extra set-buffer-modified-p buffer-modified-p remove-text-properties (org-props nil) org-map-entries (progn (setq props (org-entry-properties nil 'standard)) (if (and (not (assoc "BEAMER_env" props)) (looking-at ".*?:B_\\(note\\(NH\\)?\\):")) (push (cons "BEAMER_env" (match-string 1)) props)) (when (org-bound-and-true-p org-beamer-inherited-properties) (mapc (lambda (p) (unless (assoc p props) (let ((v (org-entry-get nil p 'inherit))) (and v (push (cons p v) props))))) org-beamer-inherited-properties)) (put-text-property (point-at-bol) (point-at-eol) 'org-props props)) plist-put :tags txt org-beamer-header-extra props case-fold-search inhibit-read-only inhibit-modification-hooks buffer-undo-list] 7 (#$ . 15701)])
#@114 Mark any frames containing verbatim environments as fragile.
This function will run in the final LaTeX document.
(defalias 'org-beamer-auto-fragile-frames #[nil "\205X \303eb\210\304\n\303\305#\205W \212\306\307\303\305#\203S \310\311!\312\232\203S \313\225b\210\314\315!\2042 \316c\210\202S \310\313!\311\317O\313\224\313\225|\210\320 \321\"\322\301\323\"\210\324\325\326 \321#\327\261\210)\202 )\207" [org-beamer-export-is-beamer-p opts org-beamer-fragile-re nil re-search-forward t re-search-backward "^[ ]*\\\\\\(begin\\|end\\){frame}\\(<[^>]*>\\)?" match-string 1 "begin" 0 looking-at "\\[.*?\\]" "[fragile]" -1 org-split-string "," add-to-list "fragile" "[" mapconcat identity "]"] 5 (#$ . 17623)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\307\310\315& \207" [custom-declare-variable org-beamer-outline-frame-title "Outline" "Default title of a frame containing an outline." :group org-beamer :version "24.1" :type (string :tag "Outline frame title") org-beamer-outline-frame-options nil "Outline frame options appended after \\begin{frame}.\nYou might want to put e.g. [allowframebreaks=0.9] here. Remember to\ninclude square brackets." (string :tag "Outline frame options")] 10)
#@56 Fix the table of contents by removing the vspace line.
(defalias 'org-beamer-fix-toc #[nil "\205 \212eb\210\303\304\305\306#\205 \307\310 \311\n\312\260\306\305#)\207" [org-beamer-export-is-beamer-p org-beamer-outline-frame-options org-beamer-outline-frame-title re-search-forward "\\(\\\\setcounter{tocdepth.*\n\\\\tableofcontents.*\n\\)\\(\\\\vspace\\*.*\\)" nil t replace-match "\\\\begin{frame}" "\n\\\\frametitle{" "}\n\\1\\\\end{frame}"] 6 (#$ . 18870)])
#@42 Track the BEAMER_env property with tags.
(defalias 'org-beamer-property-changed #[(property value) "\303\232\2033 \212\304\305!\210\306 \307\310\311\312 \"\"\313 !\210)\n\2051 \n;\2051 \314\315\n\"\2051 \316\317\nP\320\")\207\321\232\205L \316\322\n\203J \314\315\n\"\203J \320\202K \323\"\207" [property tags value "BEAMER_env" org-back-to-heading t org-get-tags delq nil mapcar #[(x) "\301\302\"?\205 \207" [x string-match "^B_"] 3] org-set-tags-to string-match "\\S-" org-toggle-tag "B_" on "BEAMER_col" "BMCOL" off] 5 (#$ . 19341)])
#@64 Take code marked for BEAMER and turn it into marked for LaTeX.
(defalias 'org-beamer-select-beamer-code #[nil "\205 eb\210\301\302\303\304#\205 \305\306!\210\202 \207" [org-beamer-export-is-beamer-p re-search-forward "^\\([ ]*#\\+\\(begin_\\|end_\\)?\\)\\(beamer\\)\\>" nil t replace-match "\\1latex"] 4 (#$ . 19891)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\307\311\"\210\300\307\312\"\210\300\307\313\"\210\300\314\315\"\207" [add-hook org-export-first-hook org-beamer-initialize-open-trackers org-property-changed-functions org-beamer-property-changed org-export-latex-after-initial-vars-hook org-beamer-after-initial-vars org-export-latex-final-hook org-beamer-place-default-actions-for-lists org-beamer-auto-fragile-frames org-beamer-fix-toc org-beamer-amend-header org-export-preprocess-before-selecting-backend-code-hook org-beamer-select-beamer-code] 3)
#@63 Insert a settings template, to make sure users do this right.
(defalias 'org-insert-beamer-options-template #[(&optional kind) "\304=\203A \305\306!\210\307 \210\310\311\312\313#\210\310\311\314\315#\210\310\311\316\317#\210\310\311\320\321 !#\210\n\2031 \310\311\322\n#\210 \203; \310\311\323 #\210\310\311\324\325#\207\326c\210\327c\210\330\331 \"\332\261\210\n\203Y \333\n\332\261\210 \203c \334 \332\261\210\335c\207" [kind org-beamer-frame-level org-beamer-themes org-beamer-column-view-format subtree org-back-to-heading t org-reveal org-entry-put nil "LaTeX_CLASS" "beamer" "LaTeX_CLASS_OPTIONS" "[presentation]" "EXPORT_FILE_NAME" "presentation.pdf" "BEAMER_FRAME_LEVEL" number-to-string "BEAMER_HEADER_EXTRA" "COLUMNS" "BEAMER_col_ALL" "0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 :ETC" "#+LaTeX_CLASS: beamer\n" "#+LaTeX_CLASS_OPTIONS: [presentation]\n" format "#+BEAMER_FRAME_LEVEL: %d\n" "\n" "#+BEAMER_HEADER_EXTRA: " "#+COLUMNS: " "#+PROPERTY: BEAMER_col_ALL 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 :ETC\n"] 5 (#$ . 20812) (byte-code "\300\301!\210\302 \303\232\203 \304C\207\305C\207" [message "Current [s]ubtree or [g]lobal?" read-char-exclusive 103 global subtree] 2)])
#@46 Supply allowed values for BEAMER properties.
(defalias 'org-beamer-allowed-property-values #[(property) "\303\232\203 \304\305\306P\307#\204 \310\311\312 \n\"\"\207\313\232\203* \304\305\306P\307#\204* \314\207\305\207" [property org-beamer-environments-extra org-beamer-environments-default "BEAMER_env" org-entry-get nil "_ALL" inherit mapcar car append "BEAMER_col" ("0.1" "0.2" "0.3" "0.4" "0.5" "0.6" "0.7" "0.8" "0.9" "" ":ETC")] 5 (#$ . 22006)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-property-allowed-value-functions org-beamer-allowed-property-values provide org-beamer] 3)