mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
;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)