;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'smartparens) (defalias 'sp-haskell-skip-apostrophe #[(ms mb me) "\212\301\302!!)\303=?\207" [mb syntax-class syntax-after 7] 3]) #@307 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. (defalias 'sp-haskell-strict-ignore-apostrophe-after-word #[(_id action _context) "\301=\205 \302\303!\207" [action navigate sp--looking-back-p "\\(\\sw\\|\\s_\\)'+"] 2 (#$ . 228)]) (byte-code "\301\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312\313\314\315\316&\210\302\317\312\320\312%\210)\312\207" [#:modes (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] 8) #@64 Limit the backward search to the prompt if point is on prompt. (defalias 'sp--inferior-haskell-mode-backward-bound-fn #[nil "\303\300!\203\203\304A!\202\"\303\301!\203! \203!\305 !\202\"\306\211\205.`\nV\205.\n)\207" [comint-last-prompt comint-last-prompt-overlay limit boundp marker-position overlay-end nil] 3 (#$ . 1109)]) #@75 Limit the forward search to exclude the prompt if point is before prompt. (defalias 'sp--inferior-haskell-mode-forward-bound-fn #[nil "\303\300!\203\203\304@!\202\"\303\301!\203! \203!\305 !\202\"\306\211\205.`\nW\205.\n)\207" [comint-last-prompt comint-last-prompt-overlay limit boundp marker-position overlay-start nil] 3 (#$ . 1454)]) #@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 #[nil "\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 (#$ . 1812)]) (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)