| 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\201A DD\201B \316\313\325\201C &\210\317\201D \321\322\201E DD\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 \206 p\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 \2030 B\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\203T B\262A\262\202? \211\237\266\204\211\2038\323\216@\203\353 \321\324CA\"B\325=\203\201 \326\202\203 B\317\211 C D B A\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\206 p\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 \206 p\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 \206 p\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\203l A\262T\262\202C \203t \202u \211\266\207\"\210\315!\203\212 \316!L\210\202\216 L\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 \206 p\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\203f r\303!\203R \206U p\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) | |
