;ELC ;;; Compiled ;;; in Emacs version 27.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\304\305\306\307\310\311\312\303&\207" [require tempo cl-lib org custom-declare-group org-tempo nil "Template expansion of Org structures." :tag "Org structure" :group] 8) #@26 Tempo tags for Org mode. (defvar org-tempo-tags nil (#$ . 632)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable org-tempo-keywords-alist funcall function #[0 "\300\207" [(("L" . "latex") ("H" . "html") ("A" . "ascii") ("i" . "index"))] 1] "Keyword completion elements.\n\nThis is an alist of KEY characters and corresponding KEYWORDS,\njust like `org-structure-template-alist'. The tempo snippet\n\" n '> "#+end_%s" split-string (>) "Insert a %s block" org-tempo-tags] 18 (#$ . 3115)]) #@64 Add keyword entry from `org-tempo-keywords-alist'. (fn ENTRY) (defalias 'org-tempo-add-keyword #[257 "\300\301@\"A\302\300\303\304\305\306#\"\300\307\"\310B\300\311\"\312%\207" [format "<%s" tempo-define-template "org-%s" replace-regexp-in-string " " "-" "#+%s: " (p '>) "Insert a %s keyword" org-tempo-tags] 10 (#$ . 3613)]) #@201 Look for a tag and expand it silently. Unlike to `tempo-complete-tag', do not give a signal if a partial completion or no match at all is found. Return nil if expansion didn't succeed. (fn &rest _) (defalias 'org-tempo-complete-tag #[128 "\300 \210\301\302!\302=?\207" [org-tempo--update-maybe tempo-complete-tag fail] 3 (#$ . 3955)]) #@33 Add #+include: and a file name. (defalias 'org-tempo--include-file #[0 "\302\3031\304\302\305\306\307\310\311!!\"c\210)0\202\210\302\312\313!?\205(\314c\210\304\211)\207" [inhibit-quit quit-flag t (quit) nil format "#+include: %S " file-relative-name read-file-name "Include file: " eval (ignore nil) ") "