;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(byte-code "\300\301!\210\300\302!\210\303\211\203 \211@\304\305\306\307E\"\210A\266\202\202 \210\304\310\311\306\312E\"\207" [require smartparens rx (ess-mode inferior-ess-mode) add-to-list sp-sexp-suffix regexp "" sp-sexp-prefix ess-mode "\\(?:[[:word:]]\\|\\s_\\)*"] 7)
|
#@145 Remove spaces before opening parenthesis in a function call.
|
Remove redundant space around commas.
|
ID, ACTION, CONTEXT.
|
|
(fn ID ACTION CONTEXT)
|
(defalias 'sp-ess-pre-handler #[771 "\300\232\203\234 \301\302!\212\211\303\304\"\303\305\"GZ\262b\210\306\307\310\"\203& \311\312\310\313#\210\211\303\305\"\262\314\235\203D \211\303\304\"\262b\210\311\315\310\313#\210\202\232 \211\303\316\"\262\317\235\203z \211\303\305\"\262\320\232\203z \306\321\310\"\203z \212\322 \210\323\324\325\")\326\235\204z \311\312\310\313#\210\202\232 \327\330!\204\207 \306\330\310\"\203\215 \331 \210\202\232 \306\332\333 \334#\203\232 \335\336!\210)\210\337\232\205\301 \212\211\303\340\"\262b\210\327\341!\203\272 \311\312\310\313#\210\211\303\305\"\262\342\235\203\327 \211\303\304\"\262b\210\311\315\310\313#\202\211\303\316\"\262\343\235\203\361 \327\344!\204\361 \311\315\310\313#\202\323\324\325\"\345\235\204\327\346!\203\311\312\310\313#\202\327\332!\205\335\336!)\262\207" [slurp-forward sp-get-thing back plist-get :beg :prefix looking-back "\\s([[:space:]]+" nil cycle-spacing 0 single-shot ("if" "for" "while") 1 :op ("[" "(") "" "[^%,]\\S)[[:space:]]+" sp-backward-sexp thing-at-point word noprop ("if" "for" "while") looking-at "%" just-one-space "[[:space:]]*,[[:space:]]*" line-beginning-position greedy replace-match ", " slurp-backward :end "[[:space:]]+\\s)" ("if" "for" "while") ("{" "%") "\\s)" ("if" "for" "while") "[[:space:]]*[^{]\\(?:\\s)\\|(\\|[[]\\)"] 9 (#$ . 686)])
|
#@68 Open new brace or bracket with indentation.
|
ARGS.
|
|
(fn &rest ARGS)
|
(defalias 'sp-ess-open-sexp-indent #[128 "\301\302!\203 \302 \203 \212\303 \210)\304\305\"\205( \306\307\305\310#\207\311 \210\312 \210\313y\210\312 \207" [ess-roxy-str fboundp ess-roxy-entry-p ess-roxy-indent-on-newline looking-back nil cycle-spacing 3 t newline indent-according-to-mode -1] 5 (#$ . 2201)])
|
#@85 Test if looking back at `ess-roxy-re'.
|
ID, ACTION, CONTEXT.
|
|
(fn ID ACTION CONTEXT)
|
(defalias 'sp-ess-roxy-str-p #[771 "\301\300!\205 \302=\205 \303!\207" [ess-roxy-re boundp insert sp--looking-back-p] 5 (#$ . 2586)])
|
(byte-code "\300\301\302\303\304\305\306\307&\210\301\310\303\304\311\306\312&\210\301\313\303\304\314\306\315&\210\301\316\303\317\320%\266\300\301\321\322\323\324\325\326&\210\301\327\322\323\330\325\331&\210\301\332\322\323\333\325\334&\210\301\335\322\323\336\325\337&\210\301\340\322\323\341\325\342&\210\301\343\322\323\344\325\345\346\347& \210\301\350\322\323\351\325\352&\210\301\353\322\323\354\325\355&\210\301\356\322\323\357\306\360\325\356& \210\301\361\322\323\362\306\363\325\364& \210\301\365\322\323\366\306\367\325\370& \210\301\371\322\323\372\306\373\325\374& \210\301\375\322\323\376\325\377&\210\301\201@ \322\323\201A \325\201B &\210\301\201C \322\323\201D \325\201E \306\201F \346\347& \266\201G \201H !\207" [ess-mode sp-local-pair "{" nil :pre-handlers (sp-ess-pre-handler) :post-handlers ((sp-ess-open-sexp-indent "M-j")) "(" (sp-ess-pre-handler) ((sp-ess-open-sexp-indent "M-j")) "[" (sp-ess-pre-handler) ((sp-ess-open-sexp-indent "M-j")) "'" :unless (sp-ess-roxy-str-p sp-in-comment-p sp-in-string-quotes-p) "\\strong{" "}" :when (sp-in-comment-p) :trigger "\\strong" "\\emph{" (sp-in-comment-p) "\\emph" "\\code{" (sp-in-comment-p) "\\code" "\\url{" (sp-in-comment-p) "\\url" "\\link{" (sp-in-comment-p) "\\link" "\\href{" (sp-in-comment-p) "\\href" :suffix "{[^}]*}" "\\email{" (sp-in-comment-p) "\\email" "\\pkg{" (sp-in-comment-p) "\\pkg" "\\item{" (sp-in-comment-p) ((sp-ess-open-sexp-indent "M-j")) "\\enumerate{" (sp-in-comment-p) ((sp-ess-open-sexp-indent "M-j")) "\\enumerate" "\\itemize{" (sp-in-comment-p) ((sp-ess-open-sexp-indent "M-j")) "\\itemize" "\\describe{" (sp-in-comment-p) ((sp-ess-open-sexp-indent "M-j")) "\\describe" "\\eqn{" (sp-in-comment-p) "\\eqn" "\\deqn{" (sp-in-comment-p) "\\deqn" "\\tabular{" (sp-in-comment-p) "\\tabular" ((sp-ess-open-sexp-indent "M-j")) provide smartparens-ess] 13)
|
