;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 er-basic-expansions] 2) #@69 Mark the entire word around or in front of point, including dashes. (defalias 'er/mark-clj-word #[nil "\301\302!\204\303!\205*\302!\203\304u\210\202\305`!\210\303!\205*\306u\210\202)\207" [word-regexp "\\(\\sw\\|-\\)" looking-at er/looking-back-on-line nil set-mark -1] 2 (#$ . 500) nil]) #@135 Mark clj-set-literal presumes that point is outside the brackets. If point is inside the brackets, those will be marked first anyway. (defalias 'er/mark-clj-set-literal #[nil "\300\301!\204\f\302\303!\205$\304u\210\305\303!\210\306`!\210\307\310!\210\311u\210\312\304!\210\313 \207" [looking-at "#{" er/looking-back-exact "#" 1 search-backward set-mark search-forward "{" -1 forward-list exchange-point-and-mark] 2 (#$ . 811) nil]) #@139 Mark clj-regexp-literal presumes that point is outside the string. If point is inside the string, the quotes will be marked first anyway. (defalias 'er/mark-clj-regexp-literal #[nil "\300\301!\204\f\302\303!\205#\304u\210\305\303!\210\306`!\210\307\310!\210\304u\210\311 \210\312 \207" [looking-at "#\"" er/looking-back-exact "#" 1 search-backward set-mark search-forward "\"" er--move-point-forward-out-of-string exchange-point-and-mark] 2 (#$ . 1252) nil]) #@135 Mark clj-function-literal presumes that point is outside the parens. If point is inside the parens, they will be marked first anyway. (defalias 'er/mark-clj-function-literal #[nil "\300\301!\204\f\302\303!\205#\304u\210\305\303!\210\306`!\210\307\310!\210\311u\210\312 \210\313 \207" [looking-at "#(" er/looking-back-exact "#" nil search-backward set-mark search-forward "(" -1 forward-list exchange-point-and-mark] 2 (#$ . 1720) nil]) #@62 Adds clojure-specific expansions for buffers in clojure-mode (defalias 'er/add-clojure-mode-expansions #[nil "\301\300!\210\302\303\"\211\207" [er/try-expand-list make-local-variable append (er/mark-clj-word er/mark-clj-regexp-literal er/mark-clj-set-literal er/mark-clj-function-literal)] 3 (#$ . 2164)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\304\305!\207" [er/enable-mode-expansions clojure-mode er/add-clojure-mode-expansions nrepl-mode provide clojure-mode-expansions] 3)