;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar lh-pairs '(("(" . ")") ("[" . "]") ("{" . "}") ("<" . ">") ("\"" . "\""))) (defalias 'lh-forward-delim #[nil "\302 \303\216\304\305\306\307 \"!!*\207" [save-match-data-internal lh-pairs match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward regexp-opt mapcar cdr] 5 nil nil]) (defalias 'lh-backward-delim #[nil "\302 \303\216\304\305\306\307 \"!!*\207" [save-match-data-internal lh-pairs match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-backward regexp-opt mapcar car] 5 nil nil]) (defalias 'lh-matching-delim #[nil "\301\302\303\304\"!!\203\305 \207\306\302\303\307\"!\310\"\203\311 \207\312\313\314\211#\207" [lh-pairs looking-at regexp-opt mapcar car forward-sexp looking-back cdr nil backward-sexp backward-up-list 1 t] 5 nil nil]) (defalias 'lh-slurp-forward #[nil "\300\301\302\"\207" [corral-shift-forward 40 41] 3 nil nil]) (defalias 'lh-slurp-backward #[nil "\300\301\302\"\207" [corral-shift-backward 40 41] 3 nil nil]) (defalias 'lh-open-parentheses-dwim #[(arg) "\301 `U\204 \302\303!\203\304!\207\305 \210\304\306!\207" [arg line-beginning-position looking-at "\\Sw" insert-parentheses backward-sexp 1] 2 nil "P"]) (defalias 'lh-end-of-defun #[(arg) "\301!\210\302\303!\210\304u\207" [arg end-of-defun re-search-backward ")" nil] 2 nil "P"]) (defalias 'lh-avy-open-paren #[nil "\300\301!\207" [avy-goto-char 40] 2 nil nil]) (defalias 'lh-avy-close-paren #[nil "\300\301!\207" [avy-goto-char 41] 2 nil nil]) (defvar use-package--warning38 #[(keyword err) "\303\304\305\306 !$\307\310\n\311#)\207" [keyword err msg format "%s/%s: %s" corral error-message-string display-warning use-package :error] 6]) (byte-code "\3021\303\304\305\306#?\205\307\310\311\312\304\"\313#0\207 \314\")\207" [err use-package--warning38 (debug error) require corral nil t display-warning use-package format "Cannot load %s" :error :catch] 5) (defalias 'make-lisp-bindings #[nil "\302\303\304\305\"!!\306\307!\210\310 \311\312#\210\310 \313\314#\210\310 \315\316#\210\310 \317\320#\210\310 \321\322#\210\310 \323\324#\210\310 \325\326#\210\310 \327\330#\210\310 \331\332#\210\310 \333\334#\210\310 \335\336#\210\310 \337\340#\210\310 \341\342#\210\310 \343\344#\210\310 \345\346#\210\310 \347\350#\210\310 \351\352#\210\310 \353\354#\210\310 \355\356#\210\310 \357\360#\210)\361\207" [major-mode map eval read format "%s-map" require corral define-key [134217829] forward-sexp [134217825] backward-sexp [134217772] lh-backward-delim [134217774] lh-forward-delim [134217775] lh-matching-delim "(" lh-avy-open-paren ")" lh-avy-close-paren "(" lh-open-parentheses-dwim "r" raise-sexp " " kill-sexp [134217768] corral-parentheses-forward [134217769] corral-parentheses-backward [134217851] corral-braces-forward [134217853] corral-braces-backward [134217819] corral-brackets-forward [134217821] corral-brackets-backward [67108905] lh-slurp-forward [67108904] lh-slurp-backward [134217840] beginning-of-defun [134217838] lh-end-of-defun t] 5]) (byte-code "\300\301\302\"\210\303\304\305\"\207" [add-hook emacs-lisp-mode-hook #[nil "\300 \210\301 \210\302 \207" [eldoc-mode aggressive-indent-mode make-lisp-bindings] 1] add-to-list load-path "~/.emacs.d/scripts/"] 3) (defvar use-package--warning39 #[(keyword err) "\303\304\305\306 !$\307\310\n\311#)\207" [keyword err msg format "%s/%s: %s" caps-lock-mode error-message-string display-warning use-package :error] 6]) (byte-code "\3021\303\304\305\306#?\205\307\310\311\312\304\"\313#0\207 \314\")\207" [err use-package--warning39 (debug error) require caps-lock-mode nil t display-warning use-package format "Cannot load %s" :error :catch] 5)