;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.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(require 'smartparens)
|
#@17
|
|
(fn MS MB ME)
|
(defalias 'sp-haskell-skip-apostrophe #[771 "\212\300\301!!)\302=?\207" [syntax-class syntax-after 7] 6 (#$ . 431)])
|
#@331 Ignore trailing ' when navigating.
|
|
Because ' in haskell is symbol class it gets picked up as part of
|
a words such as myFunction', and then strict mode won't allow us
|
to delete it. Also show-smartparens-mode incorrectly highlights
|
it as missing an opener.
|
|
So we ignore that pair when at the end of word.
|
|
(fn ID ACTION CONTEXT)
|
(defalias 'sp-haskell-strict-ignore-apostrophe-after-word #[771 "\300=\205 \301\302!\207" [navigate sp--looking-back-p "\\(\\sw\\|\\s_\\)'+"] 5 (#$ . 572)])
|
(byte-code "\300\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311\312\313\314\315&\210\301\316\311\317\311%\210\207" [(haskell-mode haskell-interactive-mode) sp-local-pair "{-" "-}" "{-#" "#-}" "{-@" "@-}" "'" nil :unless (sp-point-after-word-p sp-haskell-strict-ignore-apostrophe-after-word) :skip-match sp-haskell-skip-apostrophe "\\(" :actions] 9)
|
#@64 Limit the backward search to the prompt if point is on prompt.
|
(defalias 'sp--inferior-haskell-mode-backward-bound-fn #[0 "\302\300!\203 \203 \303A!\202\" \302\301!\203! \203! \304 !\202\" \305\211\205- `V\205- \211\207" [comint-last-prompt comint-last-prompt-overlay boundp marker-position overlay-end nil] 3 (#$ . 1438)])
|
#@75 Limit the forward search to exclude the prompt if point is before prompt.
|
(defalias 'sp--inferior-haskell-mode-forward-bound-fn #[0 "\302\300!\203 \203 \303@!\202\" \302\301!\203! \203! \304 !\202\" \305\211\205- `W\205- \211\207" [comint-last-prompt comint-last-prompt-overlay boundp marker-position overlay-start nil] 3 (#$ . 1774)])
|
#@205 Setup the search bound.
|
|
If the point is after the last prompt, limit the backward search
|
only for the propmt.
|
|
If the point is before the last prompt, limit the forward search up until the prompt start.
|
(defalias 'sp--setup-inferior-haskell-mode-search-bounds #[0 "\302\303\211\207" [sp-forward-bound-fn sp-backward-bound-fn sp--inferior-haskell-mode-forward-bound-fn sp--inferior-haskell-mode-backward-bound-fn] 2 (#$ . 2123)])
|
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook inferior-haskell-mode-hook sp--setup-inferior-haskell-mode-search-bounds provide smartparens-haskell] 3)
|
