;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require smartparens markdown-mode] 2) #@89 Do not insert ```...``` pair if that would be handled by `markdown-electric-backquote'. (defalias 'sp-gfm-electric-backquote-p #[(_id action _context) "\302=\205 \205 \303\304!\207" [action markdown-gfm-use-electric-backquote insert sp--looking-back-p "^```"] 2 (#$ . 166)]) #@101 Return t if point is after a word, nil otherwise. This predicate is only tested on "insert" action. (defalias 'sp--gfm-point-after-word-p #[(id action context) "\302=\205 \303\304\305 !P!\207" [action id insert sp--looking-back-p "\\(\\sw\\)" regexp-quote] 4 (#$ . 452)]) #@59 Non-nil if we should ignore this asterisk as a delimiter. (defalias 'sp--gfm-skip-asterisk #[(ms mb me) "\212b\210\302 \303\216\304\305!+\207" [mb save-match-data-internal match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] looking-at "^\\* "] 2 (#$ . 732)]) (byte-code "\303\304\305\211\306\307\310\311\312\313& \210\304\314\211#\210\304\315\211\306\316%\210)\317\304 \320\211#\210)\321\304\n\322\211\306\323%\210\304\n\320\211\306\324%\210)\325\326!\207" [#:modes #:modes #:modes (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] 10)