| 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 | #@105 Test if there is an invalid hyperlink in a Lisp docstring. | |
| 17 | ID, ACTION, CONTEXT. | |
| 18 | ||
| 19 | (fn ID ACTION CONTEXT) | |
| 20 | (defalias 'sp-lisp-invalid-hyperlink-p #[771 "\300=\205= \3011; \302\303!\203! \302\304!\204! \212\305u\210\302\303!)\2069 \212\306u\210\302\303!)\2059 \212\307u\210\302\303!\210\302\304!)?0\207\210\310\207" [navigate (error) looking-at "\\sw\\|\\s_" "[?.,;!]" -2 -1 1 nil] 5 (#$ . 432)]) | |
| 21 | (byte-code "\303\304\305\306\305%\266\307 \"\303\310\304\311\312\313\314\315\316& \266\303\317\320\321\311\322%\210\323\324\325\"\210\323\326\327\"\210\323\330\331\"\210\323\332\333\"\210\323\334\335\"\210\323\336\337\"\210\323\340\341\"\210\n\342\203` @\323\343\"\266\211T\262A\262\202I \266\323\344\345\"\210\323\346\347\"\210\323\350\351\"\210\352\342\203\212 @\323\353\"\266\211T\262A\262\202s \266\323\354\355\"\210\323\356\357\"\210\323\360\361\"\210\323\362\363\"\210\323\364\365\"\210\323\366\367\"\210\323\370\371\"\210\323\372\373\"\210\323\374\375\"\210\376\342\203\322 @\323\377\"\266\211T\262A\262\202\273 \266\201@ \201A !\207" [sp-lisp-modes sp-clojure-modes sp--html-modes sp-local-pair "'" nil :actions -difference "`" :when (sp-in-string-p sp-in-comment-p) :unless (sp-lisp-invalid-hyperlink-p) :skip-match #[771 "\300\267\202 \301\302\303\304#\206 \305 ?\207\305 ?\207" [#s(hash-table size 1 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("'" 6)) sp-lisp-invalid-hyperlink-p "`" navigate _ sp-point-in-string-or-comment] 7 "\n\n(fn MS MB ME)"] emacs-lisp-mode "\\\\{" "}" (sp-in-docstring-p) eval-after-load clojure-mode #[0 "\300\301!\207" [require smartparens-clojure] 2] crystal-mode #[0 "\300\301!\207" [require smartparens-crystal] 2] elixir-mode #[0 "\300\301!\207" [require smartparens-elixir] 2] enh-ruby-mode #[0 "\300\301!\207" [require smartparens-ruby] 2] ess #[0 "\300\301!\207" [require smartparens-ess] 2] haskell-interactive-mode #[0 "\300\301!\207" [require smartparens-haskell] 2] haskell-mode #[0 "\300\301!\207" [require smartparens-haskell] 2] 0 #[0 "\300\301!\207" [require smartparens-html] 2] latex #[0 "\300\301!\207" [require smartparens-latex] 2] lua-mode #[0 "\300\301!\207" [require smartparens-lua] 2] markdown-mode #[0 "\300\301!\207" [require smartparens-markdown] 2] (python-mode python) #[0 "\300\301!\207" [require smartparens-python] 2] org #[0 "\300\301!\207" [require smartparens-org] 2] racket-mode #[0 "\300\301!\207" [require smartparens-racket] 2] ruby-mode #[0 "\300\301!\207" [require smartparens-ruby] 2] rust-mode #[0 "\300\301!\207" [require smartparens-rust] 2] scala-mode #[0 "\300\301!\207" [require smartparens-scala] 2] tex-mode #[0 "\300\301!\207" [require smartparens-latex] 2] text-mode #[0 "\300\301!\207" [require smartparens-text] 2] tuareg #[0 "\300\301!\207" [require smartparens-ml] 2] fsharp-mode #[0 "\300\301!\207" [require smartparens-ml] 2] (js js2-mode) #[0 "\300\301!\207" [require smartparens-javascript] 2] provide smartparens-config] 11) | |
