| 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 | (byte-code "\300\301!\210\300\302!\207" [require smartparens smartparens-text] 2) | |
| 16 | #@113 Do not insert ```...``` pair if that would be handled by `markdown-electric-backquote'. | |
| 17 | ||
| 18 | (fn ID ACTION CONTEXT) | |
| 19 | (defalias 'sp-gfm-electric-backquote-p #[771 "\301=\205 \205 \302\303!\207" [markdown-gfm-use-electric-backquote insert sp--looking-back-p "^```"] 5 (#$ . 491)]) | |
| 20 | #@125 Return t if point is after a word, nil otherwise. | |
| 21 | This predicate is only tested on "insert" action. | |
| 22 | ||
| 23 | (fn ID ACTION CONTEXT) | |
| 24 | (defalias 'sp--gfm-point-after-word-p #[771 "\300=\205 \301\302\303!P!\207" [insert sp--looking-back-p "\\(\\sw\\)" regexp-quote] 7 (#$ . 776)]) | |
| 25 | #@74 Non-nil if we should ignore this asterisk as a delimiter. | |
| 26 | ||
| 27 | (fn MS MB ME) | |
| 28 | (defalias 'sp--gfm-skip-asterisk #[771 "\212b\210\300 \301\302\303\304\305!\306\"\307$\216\310\311!)\262)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 looking-at "^\\* "] 10 (#$ . 1054)]) | |
| 29 | (byte-code "\300\301\302\211\303\304\305\306\307\310& \210\301\311\211#\210\301\312\211\303\313%\266\314\301\315\211#\266\316\301\317\211\303\320%\210\301\315\211\303\321%\266\322\323!\207" [(markdown-mode gfm-mode) sp-local-pair "*" :unless (sp--gfm-point-after-word-p sp-point-at-bol-p) :post-handlers (("[d1]" "SPC")) :skip-match sp--gfm-skip-asterisk "**" "_" (sp-point-after-word-p) markdown-mode "```" gfm-mode "`" (:add sp-gfm-electric-backquote-p) (:add sp-gfm-electric-backquote-p) provide smartparens-markdown] 11) | |
