;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\301\312!\210\313\314\315\316\317\303%\210\320\321\322\323\324DD\325\317\314\326\327&\210\320\330\322\323\331DD\332\317\314\326\333&\210\320\334\322\323\335DD\336\317\314\326\337&\210\320\340\322\323\341DD\342\317\314\326\343&\210\320\344\322\323\345DD\346\317\314\326\327&\210\320\347\322\323\350DD\351\317\314\326\327&\210\320\352\322\323\353DD\354\317\314\326\355&\210\320\356\322\323\357DD\360\317\314\326\361&\210\320\362\322\323\363DD\364\317\314\326\323&\210\313\365\315\366\367\370\317\314\317\371& \210\372\373\374\375\376Y\205\313\377\201@\"BC\201A\317\365%\210\372\201B\374\375\376Y\205\347\201C\201D\"BC\201E\317\365%\210\320\201F\322\323\201GDD\201H\317\314\326\201I&\210\320\201J\322\323\201KDD\201L\326\327\317\314&\207" [emacs-major-version 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 enables fuzzy matching in Helm native implementation of\nelisp completion, but not on helmized elisp completion, i.e. fuzzy\ncompletion 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 append 27 (:extend t) (:background "DarkSlateGray") "Face used for showing candidates in `helm-lisp-completion'." helm-lisp-completion-info (:extend 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) (defvar helm-show-completion-overlay nil) (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]) #@16 (fn BEG END) (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 (#$ . 4508)]) #@96 A special resized Helm window is used depending on position in BUFFER. (fn BUFFER &rest ARGS) (defalias 'helm-show-completion-default-display-function #[385 "\305\306 !r\307\310\"\216\311@\312\"\210\313 \203\314!\202Q\315\316 `\317#T\203*\320\202+\321\\\322 Z\n^]\323\324\325!\210\326\327 \203F\330 \202K\331\323\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-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord window-dedicated-p helm-default-display-buffer count-screen-lines window-start t 1 0 window-height nil recenter -1 set-window-buffer active-minibuffer-window minibuffer-selected-window split-window] 11 (#$ . 4713)]) #@284 Show Helm candidate in an overlay at point. BEG and END are the beginning and end position of the current completion in `helm-current-buffer'. BODY is an Helm call where we want to enable show completion. If `helm-turn-on-show-completion' is nil do nothing. (fn BEG END &rest BODY) (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 (#$ . 5575)])) (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) #@12 (fn BEG) (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 (#$ . 6755)]) #@268 Return symbol name before point. If REGEXP is specified return what REGEXP find before point. By default match the beginning of symbol before point. With LIMITS arg specified return the beginning and end position of symbol before point. (fn &optional LIMITS REGEXP) (defalias 'helm-thing-before-point #[512 "\212\300`\301\300\211\302 #\303\206\304\305#\203\306\225\262\202\211\262U?\2056\2032B\266\203\2028\307\"\266\203)\207" [nil field-beginning point-at-bol re-search-backward "\\_<" t 0 buffer-substring-no-properties] 9 (#$ . 7560)]) #@116 Get the beginning and end position of `helm-thing-before-point'. Return a cons (beg . end). (fn &optional REGEXP) (defalias 'helm-bounds-of-thing-before-point #[256 "\300\301\"\207" [helm-thing-before-point limits] 4 (#$ . 8127)]) #@20 (fn BEG END STR) (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 (#$ . 8366)]) (defvar helm-lisp-completion--cache nil) (defvar helm-lgst-len nil) #@57 Preconfigured Helm for Lisp symbol completion at point. (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\211:\203d@\262G\262V\203UB\262A\262\317\262\202@\237\266\205\211\203,\323\216<\203\347\321\324C=\">\325=\203\205\326\202\207>\317\211?@>=\327\330A\206\231\331\"\210\332\"\210\333\334\335\336\337\340 \341\342B\343=\205\263\344B\345\322\346\347\350C\351\352 \353\354\355\356\357#&\360C\203\325\n\202\331\n\361P\362\363\364\322\365\366\367\322&\f,\202(\333\334\335\336\337\340 \341\342B\343=\205\370\344B\345\322\346\370\350C\351\352 \353\354\355\356\371#&\360C\203\n\202\n\361P\362\363\364\322\365\366\367\322&\f)\202/\372\373!+\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-closure #[257 "r\303\n!\203 \n\206p\211q\210\304\305\306\307\300\301&)\207" [V0 V1 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)"] #[257 "r\303\n!\203 \n\206p\211q\210\304\305\306\307\300\301&)\207" [V0 V1 helm-current-buffer buffer-live-p run-with-timer 0.01 nil helm-insert-completion-at-point] 8 "\n\n(fn CANDIDATE)"] message "[No Match]" 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] 32 (#$ . 8660) nil]) #@197 Show documentation for the function. Documentation is shown briefly in mode-line or completely in other window according to the value of `helm-elisp-help-function'. (fn CANDIDATE &optional NAME) (defalias 'helm-lisp-completion-persistent-action #[513 "\"\207" [helm-elisp-help-function] 5 (#$ . 11297)]) #@77 Return persistent-help according to the value of `helm-elisp-help-function' (defalias 'helm-lisp-completion-persistent-help #[0 "\301\267\202\n\302\207\303\207\304\305\306#\205\307\207" [helm-elisp-help-function #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (helm-elisp-show-doc-modeline 6 helm-elisp-show-help 8)) "Show brief doc in mode-line" "Toggle show help for the symbol" error "cl-ecase failed: %s, %s" (helm-elisp-show-doc-modeline helm-elisp-show-help) nil] 4 (#$ . 11611)]) #@33 (fn CANDIDATE &optional NAME) (defalias 'helm-elisp--show-help-1 #[513 "\302!\303!\203$\304!\203$ D\235\203 \305\306\307\"!!\207\310!\207\303!\203.\310!\207\304!\2038\311!\207\312!\205A\313!\207" [helm-describe-function-function helm-describe-variable-function intern-soft fboundp boundp intern format "helm-%s" helm-describe-function helm-describe-variable facep helm-describe-face] 7 (#$ . 12146)]) #@303 Show full help for the function CANDIDATE. Arg NAME specifies the name of the top level function calling Helm generic completion (e.g., "describe-function") which allows calling the right function when CANDIDATE symbol refers at the same time to variable and a function. (fn CANDIDATE &optional NAME) (defalias 'helm-elisp-show-help #[513 "\300\301#\207" [helm-elisp--persistent-help helm-elisp--show-help-1] 6 (#$ . 12576)]) #@92 Show brief documentation for the function in the mode-line. (fn CANDIDATE &optional NAME) (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 (#$ . 13011)]) #@74 Helm candidates transformer for Lisp completion. (fn CANDIDATES SOURCE) (defalias 'helm-lisp-completion-transformer #[514 "\301\211\211\211\211\211:\203v@\262\302!\262\303!\203\"\304\202Q\305!\203,\306\202Q\307!\2036\310\202Q\311!\203@\312\202Q\313!\203J\314\202Q\315!\205Q\316\262\317GZ\320\"\262QBC\244\262A\262\301\262\202\321\322\"\207" [helm-lgst-len nil intern commandp " (Com)" class-p " (Class)" cl-generic-p " (Gen)" fboundp " (Fun)" boundp " (Var)" facep " (Face)" make-string 32 sort helm-generic-sort-fn] 13 (#$ . 13393)]) #@124 Return first line documentation of symbol SYM. If SYM is not documented, return "Not documented". (fn SYM &optional NAME) (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\203r\211\313\230\204r\314\315\305\316#)\266\203\204r\317\320\"@\207\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 (#$ . 13984)]) #@74 Preconfigured Helm to complete file name at point. (fn &optional FORCE) (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 (#$ . 14702) nil]) (defalias 'helm-lisp-indent #[0 "\302=\206\303 !)\207" [tab-always-indent current-prefix-arg complete indent-for-tab-command] 2 nil nil]) #@143 Preconfigured Helm to complete Lisp symbol or filename at point. Filename completion happens if string start after or between a double quote. (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 \207\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 (#$ . 16088) nil]) (defvar helm-apropos-history nil) #@71 Init candidates buffer for `helm-apropos' sources. (fn TEST DEFAULT) (defalias 'helm-apropos-init #[514 "\301\302!\210\303\304;\205\305!\306\307#\203&!\203&B\266\202\202)\211\266\202\"\207" [obarray require helm-help helm-init-candidates-in-buffer global intern-soft all-completions ""] 9 (#$ . 16587)]) #@68 Init candidates buffer for faces for `helm-apropos'. (fn DEFAULT) (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\2037\312\313\314\"\"\2028\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-closure #[257 "\211\300\230\207" [V0] 3 "\n\n(fn SYM)"]] 9 (#$ . 16913)]) #@26 (fn CANDIDATES SOURCE) (defalias 'helm-apropos-default-sort-fn #[514 "\301\230\203\207\302\303\"\207" [helm-pattern "" sort helm-generic-sort-fn] 5 (#$ . 17375)]) #@18 (fn CANDIDATE) (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.\266)\312\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 (#$ . 17551)]) #@18 (fn CANDIDATE) (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\224\211\311:\203\221@\262\312\313\304!\311\314\310\311:\203k@\262 \232\203\\\262\311\211\262\202]\310\203kA\262T\262\202B?\205q\211\266\206\"\210\315!\203\206\316!L\210\202\212L\210A\262\202.\266\311\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] 17 (#$ . 18090)]) #@26 (fn ACTIONS CANDIDATE) (defalias 'helm-apropos-action-transformer #[514 "\302!r\303!\203\206p\211q\210\211J)\304!\2038\305\306\307N@!\211J\232?\2053\310\311\312\"BC\262\313#\207\211\203Yr\303!\203G\206Jp\211q\210\314J!)\203Y\305\315\"\207\316\317\320\321#)\266\203\203s\211<\203s\305\322\"\207\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-closure #[257 "\301!\211\300L\207" [V0 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))] 11 (#$ . 18704)]) #@26 (fn &optional DEFAULT) (defalias 'helm-def-source--emacs-variables #[256 "\301\302\303\304\305\306\"\307\310?\205\311\312\313\314\315\316\317\320\321\322\323&\207" [helm-apropos-fuzzy-match helm-make-source "Variables" helm-source-in-buffer :init make-closure #[0 "\301\302\300\"\207" [V0 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 (#$ . 19534)]) #@93 Create `helm' source for faces to be displayed with `helm-apropos'. (fn &optional DEFAULT) (defalias 'helm-def-source--emacs-faces #[256 "\301\302\303\304\305\306\"\307\310\311?\205\312\313C\"\314\315\316\317\320\321&\207" [helm-apropos-fuzzy-match helm-make-source "Faces" helm-source-in-buffer :init make-closure #[0 "\301\300!\207" [V0 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 (#$ . 20421)]) #@26 (fn &optional DEFAULT) (defalias 'helm-def-source--emacs-commands #[256 "\301\302\303\304\305\306\"\307\310?\205\311\312\313\314\315\316\317\320\321\322\323&\207" [helm-apropos-fuzzy-match helm-make-source "Commands" helm-source-in-buffer :init make-closure #[0 "\301\302\300\"\207" [V0 helm-apropos-init commandp] 3] :fuzzy-match :filtered-candidate-transformer helm-apropos-default-sort-fn :display-to-real helm-symbolify :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 helm-type-function-actions] 20 (#$ . 21376)]) #@26 (fn &optional DEFAULT) (defalias 'helm-def-source--emacs-functions #[256 "\301\302\303\304\305\306\"\307\310?\205\311\312\313\314\315\316\317\320\321\322\323&\207" [helm-apropos-fuzzy-match helm-make-source "Functions" helm-source-in-buffer :init make-closure #[0 "\301\302\300\"\207" [V0 helm-apropos-init #[257 "\300!\205\301!?\205\302!?\205\303!?\207" [fboundp commandp cl-generic-p class-p] 3 "\n\n(fn X)"]] 3] :fuzzy-match :filtered-candidate-transformer helm-apropos-default-sort-fn :display-to-real helm-symbolify :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 helm-type-function-actions] 20 (#$ . 22042)]) #@26 (fn &optional DEFAULT) (defalias 'helm-def-source--eieio-classes #[256 "\301\302\303\304\305\306\"\307\310?\205\311\312\313\314\315\316\317\320\321&\207" [helm-apropos-fuzzy-match helm-make-source "Classes" helm-source-in-buffer :init make-closure #[0 "\301\302\300\"\207" [V0 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-class] 4 "\n\n(fn CANDIDATE)"] :persistent-help "Toggle describe class" :action (("Describe Class" . helm-describe-class) ("Find Class" . helm-find-function) ("Info lookup" . helm-info-lookup-symbol))] 18 (#$ . 22816)]) #@26 (fn &optional DEFAULT) (defalias 'helm-def-source--eieio-generic #[256 "\301\302\303\304\305\306\"\307\310?\205\311\312\313\314\315\316\317\320\321&\207" [helm-apropos-fuzzy-match helm-make-source "Generic functions" helm-source-in-buffer :init make-closure #[0 "\301\302\300\"\207" [V0 helm-apropos-init #[257 "\300!\207" [cl-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 (#$ . 23565)]) #@18 (fn CANDIDATE) (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\f\242&\f\207" [helm-symbolify nil class-p helm-describe-function "Describe class" cl-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-closure #[257 "\301\300\242\"\207" [V0 helm-elisp--persistent-help] 4 "\n\n(fn CANDIDATE)"] :persistent-help :nomark t :action] 17 (#$ . 24352)]) #@10 (fn C) (defalias 'helm-info-lookup-symbol-1 #[257 "\302\303\304\305 \306!C\"\307\310\311\312\313\314 !&)\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 helm-stringify] 11 (#$ . 25142)]) #@18 (fn CANDIDATE) (defalias 'helm-info-lookup-symbol #[257 "\300!\207" [helm-info-lookup-symbol-1] 3 (#$ . 25491)]) #@210 Preconfigured Helm to describe commands, functions, variables and faces. In non interactives calls DEFAULT argument should be provided as a string, i.e. the `symbol-name' of any existing symbol. (fn DEFAULT) (defalias 'helm-apropos #[257 "\301\302\303\304\305\"\"\306\307\310\311\312\205\313\314\n!\315Q&\207" [helm-apropos-function-list helm :sources mapcar make-closure #[257 "\211\300!\207" [V0] 3 "\n\n(fn FUNC)"] :history helm-apropos-history :buffer "*helm apropos*" :preselect "\\_<" regexp-quote "\\_>"] 12 (#$ . 25614) (byte-code "\300\301!C\207" [thing-at-point symbol] 2)]) (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)) (defalias 'helm-advice-candidates #[0 "\302\211\211\211\211:\203\217@\262@\262\303!\262\304 \302\211:\203|@\262\304\305\"\302\211\211\211:\203l@\262\306!\262\307\310\203G\311\202H\312\313\314\315#\316 \302#$  EBB\262A\262\302\262\202/\237\266\205!\244\262A\262\202\211\237\266\203!\244\262A\262\302\262\202\237\207" [ad-advised-functions ad-advice-classes nil intern reverse ad-get-advice-info-field ad-advice-enabled format "%s %s %s" "Enabled " "Disabled" propertize face font-lock-function-name-face ad-make-single-advice-docstring] 24]) #@26 (fn FUNC-CLASS-ADVICE) (defalias 'helm-advice-persistent-action #[257 "\203\301!\207\302@!\207" [current-prefix-arg helm-advice-toggle describe-function] 3 (#$ . 27283)]) #@26 (fn FUNC-CLASS-ADVICE) (defalias 'helm-advice-toggle #[257 "\211\211G\301U\203\211A\262\242\202\302\303\304GD\"\305\211A\262\210\242\306!\2033\307\305\"\210\310\311!\210\202<\307\312\"\210\310\313!\210\314!\210\205F\315 \207" [helm-in-persistent-action 3 signal wrong-number-of-arguments (function _class advice) nil ad-advice-enabled ad-advice-set-enabled message "Disabled" t "Enabled" ad-activate helm-advice-update-current-display-string] 8 (#$ . 27467)]) (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]) #@58 Preconfigured `helm' to disable/enable function advices. (defalias 'helm-manage-advice #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-advice "*helm advice*"] 3 (#$ . 28196) nil]) (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]) #@47 Preconfigured helm to locate elisp libraries. (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 "r\301 q\210\203\302!\202\211)\207" [helm-ff-transformer-show-only-basename helm-buffer-get helm-basename] 3 "\n\n(fn CANDIDATE)"] :filter-one-by-one #[257 "r\301 q\210\203\302!B\202\211)\207" [helm-ff-transformer-show-only-basename helm-buffer-get helm-basename] 3 "\n\n(fn C)"] :action helm-actions-from-type-file :ff-transformer-show-only-basename nil :buffer "*helm locate library*"] 19 (#$ . 28665) nil]) #@40 Set VAR value interactively. (fn VAR) (defalias 'helm-set-variable #[257 "\300!\301!\302\303\304\305\";\204\306>\204\247\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 (#$ . 29675)]) (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) #@88 Create a new object of class type `helm-absolute-time-timers-class'. (fn &rest SLOTS) (defalias 'helm-absolute-time-timers-class #[128 "\300\301\302#\207" [apply make-instance helm-absolute-time-timers-class] 5 (#$ . 30742)]) (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) #@26 (fn WHOLE &rest SLOTS) (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 (#$ . 31125)]) (defvar helm-source-absolute-time-timers (helm-make-source "Absolute Time Timers" 'helm-absolute-time-timers-class)) (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) #@84 Create a new object of class type `helm-idle-time-timers-class'. (fn &rest SLOTS) (defalias 'helm-idle-time-timers-class #[128 "\300\301\302#\207" [apply make-instance helm-idle-time-timers-class] 5 (#$ . 32233)]) (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) #@26 (fn WHOLE &rest SLOTS) (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 (#$ . 32596)]) (defvar helm-source-idle-time-timers (helm-make-source "Idle Time Timers" 'helm-idle-time-timers-class)) #@14 (fn TIMER) (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 (#$ . 32947)]) #@34 Preconfigured `helm' for timers. (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 (#$ . 33323) nil]) (defvar helm-sexp--last-sexp nil) (defalias 'helm-sexp-eval-1 #[0 "\301\216\302\303\304\"\210\305\306!!)\207" [helm-sexp--last-sexp #[0 "\300\301\302\"\207" [remove-hook called-interactively-p-functions helm-complex-command-history--called-interactively-skip] 3] add-hook called-interactively-p-functions helm-complex-command-history--called-interactively-skip eval read] 3 nil nil]) #@24 (fn I FRAME1 FRAME2) (defalias 'helm-complex-command-history--called-interactively-skip #[771 "\211A@\300=\205\301\302\\\303\"A@\304=\205\305\207" [eval backtrace-frame 2 called-interactively-p helm-sexp-eval-1 1] 6 (#$ . 33927)]) #@18 (fn CANDIDATE) (defalias 'helm-sexp-eval #[257 "\300\301!\207" [call-interactively helm-sexp-eval-1] 3 (#$ . 34171)]) (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)) #@51 Preconfigured `helm' for complex command history. (defalias 'helm-complex-command-history #[0 "\300\301\302\303\304$\207" [helm :sources helm-source-complex-command-history :buffer "*helm complex commands*"] 5 (#$ . 35042) nil]) (provide 'helm-elisp)