| 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\302\303\203 @\304\305\306\307E\"\266\211T\262A\262\202 \266\310\311\312\211\313\314\315\316&\210\311\317\211\315\320%\210\311\321\211#\210\311\322\211#\210\311\323\211#\210\207" [require smartparens (python-mode inferior-python-mode) 0 add-to-list sp-sexp-suffix regexp "" python-mode sp-local-pair "'" :unless (sp-in-comment-p sp-in-string-quotes-p) :post-handlers (:add sp-python-fix-tripple-quotes) "\"" (:add sp-python-fix-tripple-quotes) "'''" "\\'" "\"\"\""] 9) | |
| 16 | #@294 Properly rewrap tripple quote pairs. | |
| 17 | ||
| 18 | When the user rewraps a tripple quote pair to the other pair | |
| 19 | type (i.e. ''' to ") we check if the old pair was a | |
| 20 | tripple-quote pair and if so add two pairs to beg/end of the | |
| 21 | newly formed pair (which was a single-quote "..." pair). | |
| 22 | ||
| 23 | (fn ID ACTION CONTEXT) | |
| 24 | (defalias 'sp-python-fix-tripple-quotes #[771 "\302=\205L \303\304\"\211\305\232\203 \306\232\204\" \211\307\232\205J \310\232\205J \212 \303\311\"\303\312\"GZb\210\313\314\315H\"c\210\303\316\"b\210\313\314\315H\"c\262)\262\207" [sp-handler-context sp-last-wrapped-region rewrap-sexp plist-get :parent "'''" "\"" "\"\"\"" "'" :end :cl make-string 2 0 :beg] 9 (#$ . 919)]) | |
| 25 | (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\306\307!\207" [ad-add-advice python-indent-dedent-line-backspace (sp-backward-delete-char-advice nil t (advice lambda nil "Fix indend." (if smartparens-strict-mode (cl-letf (((symbol-function 'delete-backward-char) (lambda (arg &optional killp) (sp-backward-delete-char arg)))) ad-do-it) ad-do-it))) around nil ad-activate provide smartparens-python] 5) | |
