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

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\302%\210\317\320\321\322\323DD\324\316\313\325\326&\210\317\327\321\322\330DD\331\316\313\325\332&\210\317\333\321\322\334DD\335\316\313\325\336&\210\317\337\321\322\340DD\341\316\313\325\342&\210\317\343\321\322\344DD\345\316\313\325\326&\210\317\346\321\322\347DD\350\316\313\325\326&\210\317\351\321\322\352DD\353\316\313\325\354&\210\317\355\321\322\356DD\357\316\313\325\360&\210\317\361\321\322\362DD\363\316\313\325\322&\210\312\364\314\365\366\367\316\313\316\370&    \210\371\372\373\374\316\364%\210\371\375\376\377\316\364%\210\317\201@\321\322\201ADD\201B\316\313\325\201C&\210\317\201D\321\322\201EDD\201F\325\326\316\313&\207" [require cl-lib helm helm-lib helm-help helm-types helm-utils helm-info helm-eval helm-files custom-declare-group helm-elisp nil "Elisp related Applications and libraries for Helm." :group custom-declare-variable helm-turn-on-show-completion funcall function #[0 "\300\207" [t] 1] "Display candidate in `current-buffer' while moving selection when non--nil." :type boolean helm-show-completion-min-window-height #[0 "\300\207" [7] 1] "Minimum completion window height used in show completion.\nThis is used in macro `with-helm-show-completion'." integer helm-lisp-quoted-function-list #[0 "\300\207" [(funcall apply mapc cl-mapc mapcar cl-mapcar callf callf2 cl-callf cl-callf2 fset fboundp fmakunbound symbol-function)] 1] "List of function where quoted function completion happen.\ne.g give only function names after (funcall '." (repeat (choice symbol)) helm-lisp-unquoted-function-list #[0 "\300\207" [#'defadvice] 1] "List of function where unquoted function completion happen.\ne.g give only function names after (function ." (repeat (choice symbol)) helm-apropos-fuzzy-match #[0 "\300\207" [nil] 1] "Enable fuzzy matching for `helm-apropos' when non-nil." helm-lisp-fuzzy-completion #[0 "\300\207" [nil] 1] "Enable fuzzy matching in emacs-lisp completion when non-nil.\nNOTE: This enable fuzzy matching in helm native implementation of\nelisp completion, but not on helmized elisp completion, i.e\nfuzzy completion is not available in `completion-at-point'." helm-apropos-function-list #[0 "\300\207" [(helm-def-source--emacs-commands helm-def-source--emacs-functions helm-def-source--eieio-classes helm-def-source--eieio-generic helm-def-source--emacs-variables helm-def-source--emacs-faces)] 1] "A list of functions that build helm sources to use in `helm-apropos'." (repeat (choice symbol)) helm-apropos-defaut-info-lookup-sources #[0 "\300\207" [(helm-source-info-elisp helm-source-info-cl helm-source-info-eieio)] 1] "A list of sources to look into when searching info page of a symbol." (repeat (choice symbol)) helm-show-completion-display-function #[0 "\300 \203\301\207\302\207" [display-graphic-p helm-display-buffer-in-own-frame helm-show-completion-default-display-function] 1] "The function used to display helm completion buffer.\n\nThis function is used by `with-helm-show-completion', when nil\nfallback to `helm-default-display-buffer'.\n\nDefault is to use a separate frame on graphic display and\n`helm-show-completion-default-display-function' on non graphic\ndisplay." helm-elisp-faces "Customize the appearance of helm-elisp." :prefix "helm-" helm-faces custom-declare-face helm-lisp-show-completion ((t (:background "DarkSlateGray"))) "Face used for showing candidates in `helm-lisp-completion'." helm-lisp-completion-info ((t (:foreground "red"))) "Face used for showing info in `helm-lisp-completion'." helm-elisp-help-function #[0 "\300\207" [helm-elisp-show-help] 1] "Function for displaying help for Lisp symbols." (choice (function :tag "Open help for the symbol." helm-elisp-show-help) (function :tag "Show one liner in modeline." helm-elisp-show-doc-modeline)) helm-locate-library-fuzzy-match #[0 "\300\207" [t] 1] "Enable fuzzy-matching in `helm-locate-library' when non--nil."] 10)
16 (defvar helm-show-completion-overlay nil)
17 (defalias 'helm-show-completion #[0 "r\302!\203 \206p\211q\210\303    \304\305\306 !#)\207" [helm-current-buffer helm-show-completion-overlay buffer-live-p overlay-put display substring-no-properties helm-get-selection] 5])
18 #@16 
19
20 (fn BEG END)
21 (defalias 'helm-show-completion-init-overlay #[514 "\301\"\302\303\304#\207" [helm-show-completion-overlay make-overlay overlay-put face helm-lisp-show-completion] 6 (#$ . 4707)])
22 #@96 A special resized helm window is used depending on position in BUFFER.
23
24 (fn BUFFER &rest ARGS)
25 (defalias 'helm-show-completion-default-display-function #[385 "\305\306 !r\307\310\311\312\313!\314\"\315$\216\316@\317\"\210\320 \203\"\321!\202Y\322\323\324 `\325#\326\2032\326\2023\310#\327     Z\n^]\330\331\332!\210\333\334 \203N\335 \202S\336\330\f#\")\266\203*\207" [header-line-format helm-show-completion-min-window-height window-min-height split-window-keep-point helm-split-window-default-side internal--before-with-selected-window selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord window-dedicated-p helm-default-display-buffer + count-screen-lines window-start t 1 window-height nil recenter -1 set-window-buffer active-minibuffer-window minibuffer-selected-window split-window] 11 (#$ . 4912)])
26 #@284 Show helm candidate in an overlay at point.
27 BEG and END are the beginning and end position of the current completion
28 in `helm-current-buffer'.
29 BODY is an helm call where we want to enable show completion.
30 If `helm-turn-on-show-completion' is nil do nothing.
31
32 (fn BEG END &rest BODY)
33 (defalias 'with-helm-show-completion '(macro . #[642 "\300\301\302\303\304\305\306        EBBBBBBB\307BB\207" [unwind-protect if helm-turn-on-show-completion let ((helm-move-selection-after-hook (append (list 'helm-show-completion) helm-move-selection-after-hook)) (helm-split-window-default-side (if (eq helm-split-window-default-side 'same) 'below helm-split-window-default-side)) helm-split-window-inside-p helm-reuse-last-window-split-state) (helm-set-local-variable 'helm-display-function (or helm-show-completion-display-function 'helm-default-display-buffer)) helm-show-completion-init-overlay ((when (and helm-show-completion-overlay (overlayp helm-show-completion-overlay)) (delete-overlay helm-show-completion-overlay)))] 12 (#$ . 5814)]))
34 (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-helm-show-completion lisp-indent-function 2 put edebug-form-spec t] 5)
35 #@12 
36
37 (fn BEG)
38 (defalias 'helm-lisp-completion--predicate-at-point #[257 "\302\212b\210\303>\203S\211 \204;`Sf\304=\2033\212\211 \203\"\305\202#\306u\210\307\310\311 \"\210\312     >)\204;`Sf\313=\203S\3141N\315\305!\210\316u\210\317f\313=0\202P\210\317\203W\320\202X\321)\207" [major-mode helm-lisp-quoted-function-list #[0 "`Sf\301=\203\212\302\303\304 \"\210\305 >)\206)`Sf\306=\205)\212\307u\210`Sf)\310=\207" [helm-lisp-unquoted-function-list 32 skip-syntax-backward " " point-at-bol symbol-at-point 39 -1 35] 3] (emacs-lisp-mode lisp-interaction-mode inferior-emacs-lisp-mode) 39 -2 -1 skip-syntax-backward " " point-at-bol symbol-at-point 40 (error) up-list 1 nil #[257 "\300!\206\301!\206\302!\207" [boundp fboundp symbol-plist] 3 "\n\n(fn SYM)"] fboundp] 5 (#$ . 6994)])
39 #@268 Return symbol name before point.
40 If REGEXP is specified return what REGEXP find before point.
41 By default match the beginning of symbol before point.
42 With LIMITS arg specified return the beginning and end position
43 of symbol before point.
44
45 (fn &optional LIMITS REGEXP)
46 (defalias 'helm-thing-before-point #[512 "\212\300`\301\300\211\302 #\303\206\304\305#\203\306\225\262\202\211\262U?\2054\2030B\2024\307\"\266\203)\207" [nil field-beginning point-at-bol re-search-backward "\\_<" t 0 buffer-substring-no-properties] 9 (#$ . 7799)])
47 #@116 Get the beginning and end position of `helm-thing-before-point'.
48 Return a cons (beg . end).
49
50 (fn &optional REGEXP)
51 (defalias 'helm-bounds-of-thing-before-point #[256 "\300\301\"\207" [helm-thing-before-point limits] 4 (#$ . 8358)])
52 #@20 
53
54 (fn BEG END STR)
55 (defalias 'helm-insert-completion-at-point #[771 "|\210\211c\210\300\301!\206\300\302!A\211\205 `W\205 \303\304\211#\207" [bounds-of-thing-at-point symbol filename push-mark t] 8 (#$ . 8597)])
56 (defvar helm-lisp-completion--cache nil)
57 (defvar helm-lgst-len nil)
58 #@57 Preconfigured helm for lisp symbol completion at point.
59 (defalias 'helm-lisp-completion-at-point #[0 "\306\307 \310 @`\205\311!\312\313!\205$\3141\"\315\316\313 \"0\202$\210\317\2051\2051\320    #\321\"\322\211\322\211\317\211\211:\203`@\262G\262V\203TB\262A\262\202?\211\237\266\204\211\2038\323\216@\203\353\321\324CA\"B\325=\203\201\326\202\203B\317\211CDBA\327\330E\206\225\331\"\210\332\"\210\333\334\335\336\337\340 \341\342F\343=\205\257\344B\345\322\346\347\350G\351\352 \353\354\355\356\357\360\361\362\"\363\"\364\365%&\366G\203\331\n\202\335\n\367P\370\371\372\322\373\374\375\322&\f,\2024\333\334\335\336\337\340 \341\342F\343=\205\374\344B\345\322\346\376\350G\351\352 \353\354\355\356\357\360\361\362\"\377\"\364\365%&\366G\203&\n\202*\n\367P\370\371\372\322\373\374\375\322&\f)\202?\201H\201I!+\207" [helm-lgst-len obarray helm-quit-if-no-candidate helm-execute-action-at-once-if-one enable-recursive-minibuffers helm-lisp-completion--cache 0 helm-thing-before-point helm-bounds-of-thing-before-point helm-lisp-completion--predicate-at-point fboundp elisp--local-variables (error) mapcar symbol-name nil all-completions append t #[0 "\205 \301!\205 \302!\207" [helm-show-completion-overlay overlayp delete-overlay] 2] helm-show-completion same below helm-set-local-variable helm-display-function helm-default-display-buffer helm-show-completion-init-overlay helm :sources helm-make-source "Lisp completion" helm-source-in-buffer :data :persistent-action helm-lisp-completion-persistent-action helm-elisp-show-doc-modeline never-split :nomark :match-part #[257 "\300!@\207" [split-string] 3 "\n\n(fn C)"] :fuzzy-match :persistent-help helm-lisp-completion-persistent-help :filtered-candidate-transformer helm-lisp-completion-transformer :action make-byte-code 257 "r\303\n!\203 \n\206p\211q\210\304\305\306\307\300\301&)\207" vconcat vector [helm-current-buffer buffer-live-p run-with-timer 0.01 nil helm-insert-completion-at-point] 8 "\n\n(fn CANDIDATE)" :input " " :resume noresume :truncate-lines :buffer "*helm lisp completion*" :allow-nest #[257 "\300!@\207" [split-string] 3 "\n\n(fn C)"] [helm-current-buffer buffer-live-p run-with-timer 0.01 nil helm-insert-completion-at-point] helm-turn-on-show-completion helm-move-selection-after-hook helm-split-window-default-side helm-reuse-last-window-split-state helm-split-window-inside-p helm-show-completion-display-function helm-elisp-help-function helm-lisp-fuzzy-completion message "[No Match]"] 35 (#$ . 8891) nil])
60 #@197 Show documentation for the function.
61 Documentation is shown briefly in mode-line or completely
62 in other window according to the value of `helm-elisp-help-function'.
63
64 (fn CANDIDATE &optional NAME)
65 (defalias 'helm-lisp-completion-persistent-action #[513 "\"\207" [helm-elisp-help-function] 5 (#$ . 11481)])
66 #@77 Return persistent-help according to the value of `helm-elisp-help-function'
67 (defalias 'helm-lisp-completion-persistent-help #[0 "\301\302\"\203    \303\207\301\304\"\203\305\207\306\307\310#\205\311\207" [helm-elisp-help-function eql helm-elisp-show-doc-modeline "Show brief doc in mode-line" helm-elisp-show-help "Toggle show help for the symbol" error "cl-ecase failed: %s, %s" (helm-elisp-show-doc-modeline helm-elisp-show-help) nil] 4 (#$ . 11795)])
68 #@33 
69
70 (fn CANDIDATE &optional NAME)
71 (defalias 'helm-elisp--show-help-1 #[513 "\300!\301!\203&\302!\203&\303\235\203 \304\305\306\"!!\202G\307!\202G\301!\2032\307!\202G\302!\203>\310!\202G\311!\205G\312!\207" [intern-soft fboundp boundp ("describe-function" "describe-variable") intern format "helm-%s" helm-describe-function helm-describe-variable facep helm-describe-face] 7 (#$ . 12260)])
72 #@298 Show full help for the function CANDIDATE.
73 Arg NAME specify the name of the top level function
74 calling helm generic completion (e.g "describe-function")
75 which allow calling the right function when CANDIDATE symbol
76 refers at the same time to variable and a function.
77
78 (fn CANDIDATE &optional NAME)
79 (defalias 'helm-elisp-show-help #[513 "\300\301#\207" [helm-elisp--persistent-help helm-elisp--show-help-1] 6 (#$ . 12677)])
80 #@87 Show brief documentation for the function in modeline.
81
82 (fn CANDIDATE &optional NAME)
83 (defalias 'helm-elisp-show-doc-modeline #[513 "\302\303\304\305\306\307!\"\310\311#!*\207" [mode-line-in-non-selected-windows cursor-in-echo-area t nil helm-show-info-in-mode-line propertize helm-get-first-line-documentation intern face helm-lisp-completion-info] 7 (#$ . 13107)])
84 #@74 Helm candidates transformer for lisp completion.
85
86 (fn CANDIDATES SOURCE)
87 (defalias 'helm-lisp-completion-transformer #[514 "\301\211\211\211\211:\203l@\262\302!\262\303!\203\304\202M\305!\203(\306\202M\307!\2032\310\202M\311!\203<\312\202M\313!\203F\314\202M\315!\205M\316\262\317GZ\320\"\262\211QBC\244\262A\262\202\321\322\"\207" [helm-lgst-len nil intern commandp " (Com)" class-p " (Class)" generic-p " (Gen)" fboundp " (Fun)" boundp " (Var)" facep " (Face)" make-string 32 sort helm-generic-sort-fn] 12 (#$ . 13484)])
88 #@124 Return first line documentation of symbol SYM.
89 If SYM is not documented, return "Not documented".
90
91 (fn SYM &optional NAME)
92 (defalias 'helm-get-first-line-documentation #[513 "\301!\203.\302!\203.\211\303\230\203\304\305\"\202R\211\306\230\203'\307\310\305#\202R\304\305\"\202R\301!\203;\304\305\"\202R\302!\203I\307\310\305#\202R\311!\205R\312!\211\203t\211\313\230\204t\314\315\305\316#)\266\203\204t\317\320\"@\202u\321\207" [inhibit-changing-match-data fboundp boundp "describe-function" documentation t "describe-variable" documentation-property variable-documentation facep face-documentation "" "^\n\n" nil string-match split-string "\n" "Not documented"] 10 (#$ . 14055)])
93 #@74 Preconfigured helm to complete file name at point.
94
95 (fn &optional FORCE)
96 (defalias 'helm-complete-file-name-at-point #[256 "\306\307!\210\310\311!\312\205,\204'\212\312\210\313\314 \315#\210`\262\316\317`S\")\205,\320\321!!`\315\211\312\322\216\n\203i\323\324C \"\f\325=\203G\326\202H\f\312\211\"\327\330#\206W\331\"\210\332\"\210\333\334\335#\262,\202p\333\334\335#\262)\211\205\220\211\336\230?\205\220|\210\337\340\"\203\216\341!\202\217\211c*\207" [helm-quit-if-no-candidate helm-execute-action-at-once-if-one helm-turn-on-show-completion helm-move-selection-after-hook helm-split-window-default-side helm-reuse-last-window-split-state require helm-mode thing-at-point filename nil search-backward point-at-bol t looking-back "[^'`( ]" expand-file-name substring-no-properties #[0 "\205 \301!\205 \302!\207" [helm-show-completion-overlay overlayp delete-overlay] 2] append helm-show-completion same below helm-set-local-variable helm-display-function helm-default-display-buffer helm-show-completion-init-overlay helm-read-file-name "FileName: " :initial-input "" string-match "^~" abbreviate-file-name helm-split-window-inside-p helm-show-completion-display-function] 11 (#$ . 14775) nil])
97 (defalias 'helm-lisp-indent #[0 "\302=\206\303    !)\207" [tab-always-indent current-prefix-arg complete indent-for-tab-command] 2 nil nil])
98 #@142 Preconfigured helm to complete lisp symbol or filename at point.
99 Filename completion happen if string start after or between a double quote.
100 (defalias 'helm-lisp-completion-or-file-name-at-point #[0 "\300\301!\211\203 \212\302\210\303\304 \305#\210\306\307`S\")\203 \310 \202\"\311 \207" [thing-at-point filename nil search-backward point-at-bol t looking-back "[^'`( ]" helm-complete-file-name-at-point helm-lisp-completion-at-point] 5 (#$ . 16161) nil])
101 (defvar helm-apropos-history nil)
102 #@71 Init candidates buffer for `helm-apropos' sources.
103
104 (fn TEST DEFAULT)
105 (defalias 'helm-apropos-init #[514 "\301\302!\210\303\304;\205\305!\306\307#\203$!\203$B\202%\211\266\202\"\207" [obarray require helm-help helm-init-candidates-in-buffer global intern-soft all-completions ""] 9 (#$ . 16662)])
106 #@68 Init candidates buffer for faces for `helm-apropos'.
107
108 (fn DEFAULT)
109 (defalias 'helm-apropos-init-faces #[257 "\300\301!\210r\302\303!q\210eb\210\211;\205\304!\305 \203&\306!\203&\307Pc\210\310\311\203?\312\313\314\315\316\317\n!\320\"\321\322%\"\202@\307#c\266\202)\207" [require helm-help helm-candidate-buffer global intern-soft face-list facep "\n" mapconcat prin1-to-string cl-remove-if make-byte-code 257 "\211\300\230\207" vconcat vector [] 3 "\n\n(fn SYM)"] 12 (#$ . 16980)])
110 #@26 
111
112 (fn CANDIDATES SOURCE)
113 (defalias 'helm-apropos-default-sort-fn #[514 "\301\230\203\207\302\303\"\207" [helm-pattern "" sort helm-generic-sort-fn] 5 (#$ . 17482)])
114 #@18 
115
116 (fn CANDIDATE)
117 (defalias 'helm-apropos-clean-history-variable #[257 "r\301!\203 \206p\211q\210\302!\211J\211<\205 \303\304\305\306$\211<\204,\307\310\311\312\211$\210\211\312:\203_@\262\313!\203M\314!\315\"\211\262L\210\202X\315\"\211\262L\210A\262\202.\312\266\202\266\203)\207" [helm-current-buffer buffer-live-p intern-soft helm-comp-read "Delete entry: " :marked-candidates t cl--assertion-failed (listp mkds) "Variable value is not a list" nil local-variable-p make-local-variable delete] 10 (#$ . 17658)])
118 #@18 
119
120 (fn CANDIDATE)
121 (defalias 'helm-apropos-clean-ring #[257 "r\301!\203 \206p\211q\210\302!\211J\303!\205\304!\211\205(\305\306\307\310$\211\205\230\211\311:\203\225@\262\312\313\304!\311\314\311\310\311:\203l@\262\n\232\203]\262\311\211\262\202^\310\203lA\262T\262\202C\203t\202u\211\266\207\"\210\315!\203\212\316!L\210\202\216L\210A\262\202.\311\266\202\266\204)\207" [helm-current-buffer buffer-live-p intern-soft ring-p ring-elements helm-comp-read "Delete entry: " :marked-candidates t nil ring-remove eq 0 local-variable-p make-local-variable] 18 (#$ . 18208)])
122 #@26 
123
124 (fn ACTIONS CANDIDATE)
125 (defalias 'helm-apropos-action-transformer #[514 "\302!r\303!\203\206p\211q\210\211J)\304!\203C\305\306\307N@!\211J\232?\205<\310\311\312\313\314\315!\316\"\317\320%BC\262\321#\202\203\211\203fr\303!\203R\206Up\211q\210\322J!)\203f\305\323\"\202\203\324\325\326\327#)\266\203\203\202\211<\203\202\305\330\"\202\203\207" [helm-current-buffer inhibit-changing-match-data helm-symbolify buffer-live-p custom-variable-p append eval standard-value "Reset Variable to default value" make-byte-code 257 "\301!\211\300L\207" vconcat vector [helm-symbolify] 4 "\n\n(fn CANDIDATE)" (("Customize variable" lambda (candidate) (customize-option (helm-symbolify candidate)))) ring-p (("Clean ring" . helm-apropos-clean-ring)) "history" nil t string-match (("Clean variable" . helm-apropos-clean-history-variable))] 14 (#$ . 18835)])
126 #@26 
127
128 (fn &optional DEFAULT)
129 (defalias 'helm-def-source--emacs-variables #[256 "\301\302\303\304\305\306\307\310\311    !\312\"\313$\314\315?\205\316\317\320\321\322\323\324\325\326\327\330&\207" [helm-apropos-fuzzy-match helm-make-source "Variables" helm-source-in-buffer :init make-byte-code 0 "\301\302\300\"\207" vconcat vector [helm-apropos-init #[257 "\300!\205\n\301!?\207" [boundp keywordp] 3 "\n\n(fn X)"]] 3 :fuzzy-match :filtered-candidate-transformer helm-apropos-default-sort-fn :nomark t :persistent-action #[257 "\300\301\"\207" [helm-elisp--persistent-help helm-describe-variable] 4 "\n\n(fn CANDIDATE)"] :persistent-help "Toggle describe variable" :action (("Describe variable" . helm-describe-variable) ("Find variable" . helm-find-variable) ("Info lookup" . helm-info-lookup-symbol) ("Set variable" . helm-set-variable)) :action-transformer helm-apropos-action-transformer] 20 (#$ . 19724)])
130 #@93 Create `helm' source for faces to be displayed with
131 `helm-apropos'.
132
133 (fn &optional DEFAULT)
134 (defalias 'helm-def-source--emacs-faces #[256 "\301\302\303\304\305\306\307\310\311    !\312\"\313$\314\315\316?\205\317\320C\"\321\322\323\324\325\326&\207" [helm-apropos-fuzzy-match helm-make-source "Faces" helm-source-in-buffer :init make-byte-code 0 "\301\300!\207" vconcat vector [helm-apropos-init-faces] 2 :fuzzy-match :filtered-candidate-transformer append (helm-apropos-default-sort-fn) #[514 "\300\211:\203@\262\301\302\303!#B\262A\262\202\211\237\207" [nil propertize face intern] 10 "\n\n(fn CANDIDATES SOURCE)"] :persistent-action #[257 "\300\301\"\207" [helm-elisp--persistent-help helm-describe-face] 4 "\n\n(fn CANDIDATE)"] :persistent-help "Toggle describe face" :action (("Describe face" . helm-describe-face) ("Find face" . helm-find-face-definition) ("Customize face" lambda (candidate) (customize-face (helm-symbolify candidate))))] 16 (#$ . 20644)])
135 #@26 
136
137 (fn &optional DEFAULT)
138 (defalias 'helm-def-source--emacs-commands #[256 "\301\302\303\304\305\306\307\310\311    !\312\"\313$\314\315?\205\316\317\320\321\322\323\324\325\326&\207" [helm-apropos-fuzzy-match helm-make-source "Commands" helm-source-in-buffer :init make-byte-code 0 "\301\302\300\"\207" vconcat vector [helm-apropos-init commandp] 3 :fuzzy-match :filtered-candidate-transformer helm-apropos-default-sort-fn :nomark t :persistent-action #[257 "\300\301\"\207" [helm-elisp--persistent-help helm-describe-function] 4 "\n\n(fn CANDIDATE)"] :persistent-help "Toggle describe command" :action (("Describe function" . helm-describe-function) ("Find function" . helm-find-function) ("Info lookup" . helm-info-lookup-symbol))] 18 (#$ . 21632)])
139 #@26 
140
141 (fn &optional DEFAULT)
142 (defalias 'helm-def-source--emacs-functions #[256 "\301\302\303\304\305\306\307\310\311    !\312\"\313$\314\315?\205\316\317\320\321\322\323\324\325\326&\207" [helm-apropos-fuzzy-match helm-make-source "Functions" helm-source-in-buffer :init make-byte-code 0 "\301\302\300\"\207" vconcat vector [helm-apropos-init #[257 "\300!\205\301!?\205\302!?\205\303!?\207" [fboundp commandp generic-p class-p] 3 "\n\n(fn X)"]] 3 :fuzzy-match :filtered-candidate-transformer helm-apropos-default-sort-fn :persistent-action #[257 "\300\301\"\207" [helm-elisp--persistent-help helm-describe-function] 4 "\n\n(fn CANDIDATE)"] :persistent-help "Toggle describe function" :nomark t :action (("Describe function" . helm-describe-function) ("Find function" . helm-find-function) ("Info lookup" . helm-info-lookup-symbol))] 18 (#$ . 22394)])
143 #@26 
144
145 (fn &optional DEFAULT)
146 (defalias 'helm-def-source--eieio-classes #[256 "\301\302\303\304\305\306\307\310\311    !\312\"\313$\314\315?\205\316\317\320\321\322\323\324\325\326&\207" [helm-apropos-fuzzy-match helm-make-source "Classes" helm-source-in-buffer :init make-byte-code 0 "\301\302\300\"\207" vconcat vector [helm-apropos-init #[257 "\300!\207" [class-p] 3 "\n\n(fn X)"]] 3 :fuzzy-match :filtered-candidate-transformer helm-apropos-default-sort-fn :nomark t :persistent-action #[257 "\300\301\"\207" [helm-elisp--persistent-help helm-describe-function] 4 "\n\n(fn CANDIDATE)"] :persistent-help "Toggle describe class" :action (("Describe function" . helm-describe-function) ("Find function" . helm-find-function) ("Info lookup" . helm-info-lookup-symbol))] 18 (#$ . 23261)])
147 #@26 
148
149 (fn &optional DEFAULT)
150 (defalias 'helm-def-source--eieio-generic #[256 "\301\302\303\304\305\306\307\310\311    !\312\"\313$\314\315?\205\316\317\320\321\322\323\324\325\326&\207" [helm-apropos-fuzzy-match helm-make-source "Generic functions" helm-source-in-buffer :init make-byte-code 0 "\301\302\300\"\207" vconcat vector [helm-apropos-init #[257 "\300!\207" [generic-p] 3 "\n\n(fn X)"]] 3 :fuzzy-match :filtered-candidate-transformer helm-apropos-default-sort-fn :nomark t :persistent-action #[257 "\300\301\"\207" [helm-elisp--persistent-help helm-describe-function] 4 "\n\n(fn CANDIDATE)"] :persistent-help "Toggle describe generic function" :action (("Describe function" . helm-describe-function) ("Find function" . helm-find-function) ("Info lookup" . helm-info-lookup-symbol))] 18 (#$ . 24055)])
151 #@18 
152
153 (fn CANDIDATE)
154 (defalias 'helm-info-lookup-fallback-source #[257 "\300!\301\211C\302!\203\211\303\240\210\304\262\202M\305!\203&\211\303\240\210\306\262\202M\307!\2036\211\303\240\210\310\262\202M\311!\203F\211\312\240\210\313\262\202M\211\314\240\210\315\262\316\317\320C\321\322\323\324\325\326 !\327\"\330\331%\332    \333\334\335\f\242&\f\207" [helm-symbolify nil class-p helm-describe-function "Describe class" generic-p "Describe generic function" fboundp "Describe function" facep helm-describe-face "Describe face" helm-describe-variable "Describe variable" helm-make-source helm-source-sync :candidates :persistent-action make-byte-code 257 "\301\300\242\"\207" vconcat vector [helm-elisp--persistent-help] 4 "\n\n(fn CANDIDATE)" :persistent-help :nomark t :action] 17 (#$ . 24872)])
155 #@10 
156
157 (fn C)
158 (defalias 'helm-info-lookup-symbol-1 #[257 "\302\303\304\305    \306!C\"\307\310\311\312\313&)\207" [helm-execute-action-at-once-if-one helm-apropos-defaut-info-lookup-sources current-source helm :sources append helm-info-lookup-fallback-source :resume noresume :buffer "*helm lookup*" :input] 10 (#$ . 25696)])
159 #@18 
160
161 (fn CANDIDATE)
162 (defalias 'helm-info-lookup-symbol #[257 "\300!\207" [helm-info-lookup-symbol-1] 3 (#$ . 26025)])
163 #@209 Preconfigured helm to describe commands, functions, variables and faces.
164 In non interactives calls DEFAULT argument should be provided as a string,
165 i.e the `symbol-name' of any existing symbol.
166
167 (fn DEFAULT)
168 (defalias 'helm-apropos #[257 "\301\302\303\304\305\306\307\310!\311\"\312\313%\"\314\315\316\317\320\205#\321\322\n!\323Q&\207" [helm-apropos-function-list helm :sources mapcar make-byte-code 257 "\211\300!\207" vconcat vector [] 3 "\n\n(fn FUNC)" :history helm-apropos-history :buffer "*helm apropos*" :preselect "\\_<" regexp-quote "\\_>"] 12 (#$ . 26148) (byte-code "\300\301!C\207" [thing-at-point symbol] 2)])
169 (defvar helm-source-advice (byte-code "\300\301\302\303\304\305\306\307\310\311\312\"\313\314\315\316\317\316\320\321&\207" [helm-make-source "Function Advice" helm-source-sync :init #[0 "\300\301!\207" [require advice] 2] :candidates helm-advice-candidates :action helm-make-actions "Toggle Enable/Disable" helm-advice-toggle :persistent-action helm-advice-persistent-action :nomark t :multiline :persistent-help "Toggle describe function / C-u C-j: Toggle advice"] 17))
170 (defalias 'helm-advice-candidates #[0 "\302\211\211\211:\203\213@\262@\262\303!\262\304    \302\211:\203{@\262\304\305N\236A\302\211\211:\203k@\262\3068\262\262\307\310\203J\311\202K\312\313\314\315#\316\f\302#$ EBB\262A\262\202/\211\237\266\204!\244\262A\262\202\211\237\266\203!\244\262A\262\202\211\237\207" [ad-advised-functions ad-advice-classes nil intern reverse ad-advice-info 2 format "%s %s %s" "Enabled " "Disabled" propertize face font-lock-function-name-face ad-make-single-advice-docstring] 22])
171 #@26 
172
173 (fn FUNC-CLASS-ADVICE)
174 (defalias 'helm-advice-persistent-action #[257 "\203\301!\207\302@!\207" [current-prefix-arg helm-advice-toggle describe-function] 3 (#$ . 27819)])
175 #@26 
176
177 (fn FUNC-CLASS-ADVICE)
178 (defalias 'helm-advice-toggle #[257 "\211\211G\301U\203\211A\262\242\202\302\303\304GD\"\211A\262\242@\211\3058\262\2035\306\304\"\210\307\310!\210\202>\306\311\"\210\307\312!\210\313!\210\205H\314 \207" [helm-in-persistent-action 3 signal wrong-number-of-arguments nil 2 ad-advice-set-enabled message "Disabled" t "Enabled" ad-activate helm-advice-update-current-display-string] 8 (#$ . 28003)])
179 (defalias 'helm-advice-update-current-display-string #[0 "\300\301!\207" [helm--edit-current-selection-internal #[0 "\300\301!\203\n\302\202\300\302!\205\301\211\205`\303v\210`|\210\211c\207" [looking-at "Disabled" "Enabled" 1] 3]] 2])
180 #@58 Preconfigured `helm' to disable/enable function advices.
181 (defalias 'helm-manage-advice #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-advice "*helm advice*"] 3 (#$ . 28693) nil])
182 (defalias 'helm-locate-library-scan-list #[0 "\302\303\302:\203+@\262\304!\203$\305\306\307\310\311 !\312P#!\244\262A\262\202\211\237)\207" [load-path load-suffixes nil (".el") file-directory-p reverse directory-files t regexp-opt get-load-suffixes "\\'"] 9])
183 #@47 Preconfigured helm to locate elisp libraries.
184 (defalias 'helm-locate-library #[0 "\302\303\304\305\306\307\310\311\312    \313?\205\314\315\316\317\320\321\322 &\323\324\325\326&\207" [helm-locate-library-fuzzy-match helm-generic-files-map helm :sources helm-make-source "Elisp libraries (Scan)" helm-source-in-buffer :data helm-locate-library-scan-list :fuzzy-match :keymap :search #[257 "\301\203 \302\303\304#\202\305\306#\207" [helm-ff-transformer-show-only-basename re-search-forward replace-regexp-in-string "\\`\\^" "" nil t] 6 "\n\n(fn REGEXP)"] :match-part #[257 "\203\301!\207\207" [helm-ff-transformer-show-only-basename helm-basename] 3 "\n\n(fn CANDIDATE)"] :filter-one-by-one #[257 "\203\n\301!B\207\207" [helm-ff-transformer-show-only-basename helm-basename] 3 "\n\n(fn C)"] :action helm-actions-from-type-file :ff-transformer-show-only-basename nil :buffer "*helm locate library*"] 19 (#$ . 29162) nil])
185 #@43 Set value to VAR interactively.
186
187 (fn VAR)
188 (defalias 'helm-set-variable #[257 "\300!\301!\302\303\304\305\";\204\306>\203\307!\202&\304\310\307!\"\"\"\207" [helm-symbolify default-value set-default eval-minibuffer format "Set `%s': " (nil t) prin1-to-string "'%s"] 11 (#$ . 30105)])
189 (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-absolute-time-timers-class-p eieio-make-class-predicate helm-absolute-time-timers-class helm-absolute-time-timers-class--eieio-childp eieio-make-child-predicate helm-absolute-time-timers-class-child-p make-obsolete "use (cl-typep ... \\='helm-absolute-time-timers-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync helm-type-timers) ((candidates :initform timer-list) (allow-dups :initform t) (candidate-transformer :initform (lambda (candidates) (cl-loop for timer in candidates collect (cons (helm-elisp--format-timer timer) timer))))) nil] 6)
190 #@88 Create a new object of class type `helm-absolute-time-timers-class'.
191
192 (fn &rest SLOTS)
193 (defalias 'helm-absolute-time-timers-class #[128 "\300\301\302#\207" [apply make-instance helm-absolute-time-timers-class] 5 (#$ . 31164)])
194 (byte-code "\300\301\302\303#\300\207" [function-put helm-absolute-time-timers-class compiler-macro helm-absolute-time-timers-class--anon-cmacro] 4)
195 #@26 
196
197 (fn WHOLE &rest SLOTS)
198 (defalias 'helm-absolute-time-timers-class--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 31547)])
199 (defvar helm-source-absolute-time-timers (helm-make-source "Absolute Time Timers" 'helm-absolute-time-timers-class))
200 (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-idle-time-timers-class-p eieio-make-class-predicate helm-idle-time-timers-class helm-idle-time-timers-class--eieio-childp eieio-make-child-predicate helm-idle-time-timers-class-child-p make-obsolete "use (cl-typep ... \\='helm-idle-time-timers-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync helm-type-timers) ((candidates :initform timer-idle-list) (allow-dups :initform t) (candidate-transformer :initform (lambda (candidates) (cl-loop for timer in candidates collect (cons (helm-elisp--format-timer timer) timer))))) nil] 6)
201 #@84 Create a new object of class type `helm-idle-time-timers-class'.
202
203 (fn &rest SLOTS)
204 (defalias 'helm-idle-time-timers-class #[128 "\300\301\302#\207" [apply make-instance helm-idle-time-timers-class] 5 (#$ . 32656)])
205 (byte-code "\300\301\302\303#\300\207" [function-put helm-idle-time-timers-class compiler-macro helm-idle-time-timers-class--anon-cmacro] 4)
206 #@26 
207
208 (fn WHOLE &rest SLOTS)
209 (defalias 'helm-idle-time-timers-class--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 33019)])
210 (defvar helm-source-idle-time-timers (helm-make-source "Idle Time Timers" 'helm-idle-time-timers-class))
211 #@14 
212
213 (fn TIMER)
214 (defalias 'helm-elisp--format-timer #[257 "\300\301\302!\303H\203\304\305\"\202\304\306\"\262\307H\206\310\311\312\313\314\315H!\316\"\317#\311\314\320H\317#%\207" [format "%s repeat=%s %s(%s)" timer--time 7 format-time-string "idle-for=%5s" "%m/%d %T" 4 "nil" mapconcat identity split-string prin1-to-string 5 "\n" " " 6] 11 (#$ . 33371)])
215 #@34 Preconfigured `helm' for timers.
216 (defalias 'helm-timers #[0 "\300\301\302\303\304$\207" [helm :sources (helm-source-absolute-time-timers helm-source-idle-time-timers) :buffer "*helm timers*"] 5 (#$ . 33747) nil])
217 #@70 Return t if current version of `backtrace-frame' accept 2 arguments.
218 (defalias 'helm-btf--usable-p #[0 "\3001\f\301\302\303\"\210\3040\207\210\305\207" [(wrong-number-of-arguments) backtrace-frame 1 condition-case t nil] 3 (#$ . 33966)])
219 (byte-code "\300 \203\f\301\302!\210\202\303\304\305\"\210\300\207" [helm-btf--usable-p eval (progn (defvar helm-sexp--last-sexp nil) (defun helm-sexp-eval-1 nil (interactive) (unwind-protect (progn (add-hook 'called-interactively-p-functions #'helm-complex-command-history--called-interactively-skip) (eval (read helm-sexp--last-sexp))) (remove-hook 'called-interactively-p-functions #'helm-complex-command-history--called-interactively-skip))) (defun helm-complex-command-history--called-interactively-skip (i _frame1 frame2) (and (eq 'eval (cadr frame2)) (eq 'helm-sexp-eval-1 (cadr (backtrace-frame (+ i 2) #'called-interactively-p))) 1)) (defun helm-sexp-eval (_candidate) (call-interactively #'helm-sexp-eval-1))) defalias helm-sexp-eval #[257 "\300!\3011\302\303\"G\304V\203\305!\202\306\307\"0\202'\310\311\"\210\303\262\207" [read (error) remove nil 1 eval apply call-interactively message "Evaluating gave an error: %S"] 6 "\n\n(fn CAND)"]] 3)
220 (defvar helm-source-complex-command-history (byte-code "\300\301\302\303\304\305\306\307\310\311\312$\313\314\315\316&\n\207" [helm-make-source "Complex Command History" helm-source-sync :candidates #[0 "\301\211:\203 @\262\302\232\204\303!B\262A\262\202\211\237\207" [command-history nil (helm-complex-command-history) prin1-to-string] 5] :action helm-make-actions "Eval" #[257 "\302\300!\203\211\303!\211    @\232\204\211    B\210\304\305\306\307$\207" [helm-sexp--last-sexp command-history boundp read run-with-timer 0.1 nil helm-sexp-eval] 6 "\n\n(fn CANDIDATE)"] "Edit and eval" #[257 "\300\301\302!\"\207" [edit-and-eval-command "Eval: " read] 5 "\n\n(fn CANDIDATE)"] :persistent-action helm-sexp-eval :multiline t] 11))
221 #@49 Preconfigured helm for complex command history.
222 (defalias 'helm-complex-command-history #[0 "\300\301\302\303\304$\207" [helm :sources helm-source-complex-command-history :buffer "*helm complex commands*"] 5 (#$ . 35926) nil])
223 (provide 'helm-elisp)