commit | author | age
|
5cb5f7
|
1 |
;ELC |
C |
2 |
;;; Compiled |
|
3 |
;;; in Emacs version 26.1 |
|
4 |
;;; with all optimizations. |
|
5 |
|
|
6 |
;;; This file uses dynamic docstrings, first added in Emacs 19.29. |
|
7 |
|
|
8 |
;;; This file does not contain utf-8 non-ASCII characters, |
|
9 |
;;; and so can be loaded in Emacs versions earlier than 23. |
|
10 |
|
|
11 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
12 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
13 |
|
|
14 |
|
|
15 |
(require 'smartparens) |
|
16 |
#@153 Return t if point is in a Rust context where ' represents a lifetime. |
|
17 |
If we return nil, ' should be used for character literals. |
|
18 |
ARGS. |
|
19 |
|
|
20 |
(fn &rest ARGS) |
|
21 |
(defalias 'sp-in-rust-lifetime-context #[128 "\3001 \212\301u\210\302\303!)0\202 \210\202 \206) \304 A@\211\205' \212\211b\210\302\305!)\262\207" [(beginning-of-buffer) -2 looking-at "&" syntax-ppss "<"] 4 (#$ . 432)]) |
|
22 |
#@76 Non-nil if we should ignore the bracket as valid delimiter. |
|
23 |
|
|
24 |
(fn MS MB ME) |
|
25 |
(defalias 'sp-rust-skip-match-angle-bracket #[771 "\212\211b\210\300\301\302\"\300\303\302\"\300\304\302\"\211\206 \206 \266\203)\207" [sp--looking-back-p "->" nil "=>" "[[:space:]]<\\|[[:space:]]>\\|[[:space:]]<<\\|[[:space:]]>>"] 8 (#$ . 813)]) |
|
26 |
#@95 Non-nil if we should allow ID's ACTION in CONTEXT for angle brackets. |
|
27 |
|
|
28 |
(fn ID ACTION CONTEXT) |
|
29 |
(defalias 'sp-rust-filter-angle-brackets #[771 "\211\300\267\202P \301\207\301\207\302\303\301\"\302\304\301\"\302\305\301\"\306\267\202N \211?\205O ?\205O ?\202O ?\202O \211?\205O ?\205O ?\202O \211?\205O ?\205O ?\202O \301\207\301\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 6 comment 8 code 10)) nil looking-back "->" "=>" "[[:space:]]<\\|[[:space:]]>\\|[[:space:]]<<\\|[[:space:]]>>" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (insert 28 wrap 43 autoskip 48 navigate 63))] 8 (#$ . 1145)]) |
|
30 |
(byte-code "\300\301\302\211\303\304\305\306&\210\301\307\310\311\312\313\314&\266\315\316\317\320\321E\"\210\322\323!\207" [(rust-mode) sp-local-pair "'" :unless (sp-in-comment-p sp-in-string-quotes-p sp-in-rust-lifetime-context) :post-handlers (:rem sp-escape-quotes-after-insert) "<" ">" :when (sp-rust-filter-angle-brackets) :skip-match sp-rust-skip-match-angle-bracket add-to-list sp-sexp-suffix rust-mode regexp "" provide smartparens-rust] 9) |