;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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 expand-region-core org-macs] 2) (defalias 'er/mark-org-element #[nil "\303 \304A@\305\"\304A@\306\" b\210\307`!\210\nb\210\310 +\207" [el begin end org-element-at-point plist-get :begin :end set-mark exchange-point-and-mark] 3 nil nil]) (defalias 'er/mark-org-element-parent #[nil "\303\304 A@\305\"\303A@\306\"\303A@\307\" \205*\n\205* b\210\310`!\210\nb\210\311 +\207" [el begin end plist-get org-element-at-point :parent :begin :end set-mark exchange-point-and-mark] 3 nil nil]) #@21 Marks one sentence. (defalias 'er/mark-sentence #[nil "\300u\210\301\300!\210\302`!\210\303\300!\210\304 \207" [1 backward-sentence set-mark forward-sentence exchange-point-and-mark] 2 (#$ . 951) nil]) #@22 Marks one paragraph. (defalias 'er/mark-paragraph #[nil "\301 \210\302 \210\303x\210\302 \210\303w\207" [er--space-str mark-paragraph exchange-point-and-mark nil] 2 (#$ . 1159) nil]) #@26 Marks an org-code-block. (defalias 'er/mark-org-code-block #[nil "\302\303\304!\204\305!\210\306`!\210\307\310\311\312!P!\210\313 *\207" [re case-fold-search t "#\\+begin_\\(\\sw+\\)" looking-at search-backward-regexp set-mark search-forward "#+end_" match-string 1 exchange-point-and-mark] 4 (#$ . 1350) nil]) #@52 Marks a heading 1 level up from current subheading (defalias 'er/mark-org-parent #[nil "\300 \210\301 \207" [org-up-element org-mark-subtree] 1 (#$ . 1673) nil]) #@53 Save outline visibility while expanding in org-mode (defalias 'er/save-org-mode-excursion #[(action) "\302\303!\304\216 \305!\210*\207" [#1=#:--data action org-outline-overlay-data t #[nil "\303\211\205-\n@\304 @!\203 @\303\211\223\210\304 A!\203% A\303\211\223\210\nA\211\204\303*\207" [#1# c --dolist-tail-- nil markerp] 4] org-set-outline-overlay-data] 3 (#$ . 1841)]) #@54 Adds org-specific expansions for buffers in org-mode (defalias 'er/add-org-mode-expansions #[nil "\302\300!\210\303\304\305\"\306\"\302\301!\210\307\211\207" [er/try-expand-list er/save-mode-excursion make-local-variable append remove er/mark-defun (org-mark-subtree er/mark-org-element er/mark-org-element-parent er/mark-org-code-block er/mark-sentence er/mark-org-parent er/mark-paragraph) er/save-org-mode-excursion] 4 (#$ . 2233)]) (byte-code "\300\301\302\"\210\303\304!\207" [er/enable-mode-expansions org-mode er/add-org-mode-expansions provide the-org-mode-expansions] 3)