;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'symex-custom) (defvar symex--original-scroll-margin nil nil) (make-variable-buffer-local 'symex--original-scroll-margin) (defvar symex--original-max-scroll-margin nil nil) (make-variable-buffer-local 'symex--original-max-scroll-margin) #@387 Adjust point context from the Emacs to the Vim interpretation. If entering symex mode from Insert or Emacs mode, then translate point so it indicates the appropriate symex in Symex mode. This is necessary because in Emacs, the symex preceding point is indicated. In Vim, the symex 'under' point is indicated. We want to make sure to select the right symex when we enter Symex mode. (defalias 'symex--adjust-point #[0 "\302 \203\303 \204\304>\205&o?\205&\212\305u\210\306 !)\211?\205$\305u\262\207" [evil-previous-state lispy-left symex--evil-installed-p symex--evil-disabled-p (insert emacs) -1 looking-at] 2 (#$ . 334) nil]) #@30 Check if rigpa is installed. (defalias 'symex--rigpa-installed-p #[0 "\300\301!\207" [boundp rigpa-mode] 2 (#$ . 979)]) #@28 Check if rigpa is enabled. (defalias 'symex--rigpa-enabled-p #[0 "\301 \205\207" [rigpa-mode symex--rigpa-installed-p] 1 (#$ . 1105)]) #@29 Check if evil is installed. (defalias 'symex--evil-installed-p #[0 "\300\301!\207" [boundp evil-mode] 2 (#$ . 1249)]) #@27 Check if evil is enabled. (defalias 'symex--evil-enabled-p #[0 "\301 \205\207" [evil-mode symex--evil-installed-p] 1 (#$ . 1373)]) #@28 Check if evil is disabled. (defalias 'symex--evil-disabled-p #[0 "\301 \205?\207" [evil-mode symex--evil-installed-p] 1 (#$ . 1513)]) #@34 Exit symex mode via an 'escape'. (defalias 'symex-escape-higher #[0 "\300 \203\301 \207\302 \203\303 \207\304 \207" [symex--rigpa-enabled-p rigpa-enter-higher-level symex--evil-enabled-p evil-normal-state evil-emacs-state] 1 (#$ . 1656) nil]) #@33 Exit symex mode via an 'enter'. (defalias 'symex-enter-lower #[0 "\300 \203\301 \207\302 \203\303 \207\304 \207" [symex--rigpa-enabled-p rigpa-enter-lower-level symex--evil-enabled-p evil-insert-state evil-emacs-state] 1 (#$ . 1909) nil]) #@42 Enter the lowest (manual) editing level. (defalias 'symex-enter-lowest #[0 "\301 \203\f\302 \210\303!\207\304 \203\305 \207\306 \207" [chimera-symex-mode symex--rigpa-enabled-p rigpa-enter-lowest-level chimera-hydra-portend-exit symex--evil-enabled-p evil-insert-state evil-emacs-state] 2 (#$ . 2158) nil]) #@82 Set a convenient scroll margin for symex mode, after storing the original value. (defalias 'symex--set-scroll-margin #[0 "\204\304\300!\210 \304\303!\210\n\304\301!\210\305\304\302!\210\306\211\207" [symex--original-scroll-margin scroll-margin maximum-scroll-margin symex--original-max-scroll-margin make-local-variable 9999 0.368] 2 (#$ . 2475)]) #@58 Restore original `scroll-margin` (e.g. upon symex exit). (defalias 'symex--restore-scroll-margin #[0 "\304\301!\210\304\303!\210\n\211\207" [symex--original-scroll-margin scroll-margin symex--original-max-scroll-margin maximum-scroll-margin make-local-variable] 2 (#$ . 2836)]) #@49 Witness symex exit and take appropriate action. (defalias 'symex--signal-exit #[0 "\301 \205 \302\303\"\207" [chimera-symex-mode symex--rigpa-enabled-p chimera-hydra-signal-exit chimera-handle-hydra-exit] 3 (#$ . 3123)]) #@19 Scroll view down. (defalias 'symex--scroll-down #[0 "\300\301!\207" [evil-scroll-line-down 3] 2 (#$ . 3352) nil]) #@17 Scroll view up. (defalias 'symex--scroll-up #[0 "\300\301!\207" [evil-scroll-line-up 3] 2 (#$ . 3472) nil]) (provide 'symex-interop)