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

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
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
;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\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\302%\210\313\314\315\316\317DD\320\312\307\321\322&\210\313\323\315\316\324DD\325\321\326\312\307&\210\300\327\310\330#\203j\331\310\211:\203h@\262\211A\262\242\262\332!\204a\333\"\210A\262\202E\266\310\207" [require cl-lib helm helm-help eldoc edebug custom-declare-group helm-eval nil "Eval related Applications and libraries for Helm." :group custom-declare-variable helm-eldoc-in-minibuffer-show-fn funcall function #[0 "\300\207" [helm-show-info-in-mode-line] 1] "A function to display eldoc info.\nShould take one arg: the string to display." :type symbol helm-show-info-in-mode-line-delay #[0 "\300\207" [12] 1] "Eldoc will show info in mode-line during this delay if user is idle." integer elisp-mode t ((eldoc-current-symbol . elisp--current-symbol) (eldoc-fnsym-in-current-sexp . elisp--fnsym-in-current-sexp) (eldoc-get-fnsym-args-string . elisp-get-fnsym-args-string) (eldoc-get-var-docstring . elisp-get-var-docstring)) fboundp defalias] 8)
(defvar helm-eldoc-active-minibuffers-list nil)
(defvar helm-eval-expression-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\313#\210\303\317\315#\210\303\320\321#\210\303\322\323#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [C-return] helm-eval-new-line-and-indent [M-tab] lisp-indent-line [C-tab] helm-lisp-completion-at-point "" previous-line "" next-line [up] [down] [right] forward-char [left] backward-char] 5))
(defalias 'helm-build-evaluation-result-source #[0 "\301\302\303\304\305\306\307\310\311\312\305\313\314\315&\207" [helm-eval-expression-map helm-make-source "Evaluation Result" helm-source-dummy :multiline t :mode-line "C-RET: nl-and-indent, M-tab: reindent, C-tab:complete, C-p/n: next/prec-line." :filtered-candidate-transformer #[514 "\3031,r\304!\203\206p\211q\210\305    \203!\306\307\n!!\202&\310\307\n!!!)0\202.\210\311C\207" [helm-current-buffer edebug-active helm-pattern (error) buffer-live-p pp-to-string edebug-eval-expression read eval "Error"] 6 "\n\n(fn CANDIDATES SOURCE)"] :nohighlight :keymap :action (("Copy result to kill-ring" lambda (candidate) (kill-new (replace-regexp-in-string "\n" "" candidate)) (message "Result copied to kill-ring")) ("copy sexp to kill-ring" lambda (_candidate) (kill-new helm-input) (message "Sexp copied to kill-ring")))] 15])
(defalias 'helm-eval-new-line-and-indent #[0 "\300 \210\301 \207" [newline lisp-indent-line] 1 nil nil])
#@71 Store minibuffer buffer name in `helm-eldoc-active-minibuffers-list'.
(defalias 'helm-eldoc-store-minibuffer #[0 "\301\302 !r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210pB\211*\207" [helm-eldoc-active-minibuffers-list internal--before-with-selected-window minibuffer-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord] 7 (#$ . 3005)])
#@57 Return eldoc in mode-line for current minibuffer input.
(defalias 'helm-eldoc-show-in-eval #[0 "\302\303 !\3041>\211\235\205:r\211q\210\212\305\306`S\"\204\307u\210\310 )\311 \312!\2060\313@A@\"\211\2057    !\266\203)0\202F\314\315\"\210\316\262\207" [helm-eldoc-active-minibuffers-list helm-eldoc-in-minibuffer-show-fn window-buffer active-minibuffer-window (error) looking-back ")\\|\"" -1 eldoc-current-symbol eldoc-fnsym-in-current-sexp eldoc-get-var-docstring eldoc-get-fnsym-args-string message "Eldoc in minibuffer error: %S" nil] 6 (#$ . 3425)])
#@44 Display string STR in mode-line.
 
(fn STR)
(defalias 'helm-show-info-in-mode-line #[257 "\303 r\304\305\306\307\310!\311\"\312$\216rq\210\313P\314 \210\315\n!\210)\314 +\207" [helm-buffer mode-line-format helm-show-info-in-mode-line-delay internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 " " force-mode-line-update sit-for] 8 (#$ . 3996)])
(defvar helm-source-calculation-result (helm-make-source "Calculation Result" 'helm-source-dummy :filtered-candidate-transformer #[514 "\3011 \302!0\202 \210\303C\207" [helm-pattern (error) calc-eval "error"] 4 "\n\n(fn CANDIDATES SOURCE)"] :nohighlight t :action '(("Copy result to kill-ring" lambda (candidate) (kill-new candidate) (message "Result \"%s\" copied to kill-ring" candidate)) ("Copy operation to kill-ring" lambda (_candidate) (kill-new helm-input) (message "Calculation copied to kill-ring")))))
#@67 Preconfigured helm for `helm-source-evaluation-result'.
 
(fn ARG)
(defalias 'helm-eval-expression #[257 "\300\301\302 \303\205\f\304\305!\306\307\310\311\312\313&\n\207" [helm :sources helm-build-evaluation-result-source :input thing-at-point sexp :buffer "*helm eval*" :echo-input-in-header-line nil :history read-expression-history] 12 (#$ . 4939) "P"])
#@79 Preconfigured helm for `helm-source-evaluation-result' with `eldoc' support. 
(defalias 'helm-eval-expression-with-eldoc #[0 "\301\302\303#\304\305\306\307\310!\311\"\312$\216\313\314C\211\304\305\315\307\310\"\316\"\317$\240\210\304\305\320\307\310!\321\"\317$\216\322\323\242\"\210\324\325!)\266\202)\207" [eldoc-idle-delay run-with-idle-timer repeat helm-eldoc-show-in-eval make-byte-code 0 "\300\203\302\300!\210    A\211\207" vconcat vector [helm-eldoc-active-minibuffers-list cancel-timer] 2 helm-eldoc-store-minibuffer nil "\302\303\301\242\"\210\300 \207" [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook call-interactively helm-eval-expression] 11 (#$ . 5303) nil])
#@58 Preconfigured helm for `helm-source-calculation-result'.
(defalias 'helm-calcul-expression #[0 "\300\301\302\303\304$\207" [helm :sources helm-source-calculation-result :buffer "*helm calcul*"] 5 (#$ . 6073) nil])
(provide 'helm-eval)