;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\307\310\311\312\313\303%\210\314\315\316\317\320DD\321\313\310\322\323&\210\314\324\316\317\325DD\326\313\310\322\323&\210\314\327\316\317\330DD\331\313\310\322\323&\210\307\332\311\333\334\335\313\310\313\336& \210\337\340\341\342\343Y\205a\344\345\"BC\346\313\332%\210\337\347\350\351\313\332%\207" [emacs-major-version require cl-lib helm helm-help helm-mode helm-elisp custom-declare-group helm-command nil "Emacs command related Applications and libraries for Helm." :group custom-declare-variable helm-M-x-always-save-history funcall function #[0 "\300\207" [nil] 1] "`helm-M-x' save command in `extended-command-history' even when it fails." :type boolean helm-M-x-reverse-history #[0 "\300\207" [nil] 1] "The history source of `helm-M-x' appear in second position when non-nil." helm-M-x-fuzzy-match #[0 "\300\207" [t] 1] "Helm-M-x fuzzy matching when non nil." helm-command-faces "Customize the appearance of helm-command." :prefix "helm-" helm-faces custom-declare-face helm-M-x-key t append 27 (:extend t) (:foreground "orange" :underline t) "Face used in helm-M-x to show keybinding." helm-command-active-mode ((t :inherit font-lock-builtin-face)) "Face used by `helm-M-x' for activated modes."] 10) (defvar helm-M-x-input-history nil) #@44 Prefix argument before calling `helm-M-x'. (defvar helm-M-x-prefix-argument nil (#$ . 1418)) (defvar helm-M-x--timer nil) (defvar helm-M-x--unwind-forms-done nil) #@42 Return alist of MODE-MAP. (fn MODE-MAP) (defalias 'helm-M-x-get-major-mode-command-alist #[257 "\211\205 \300C\300C\300C\300\301\302\303%\"\210\242\237\266\204\207" [nil cl--map-keymap-recursively make-closure #[514 "\300\304!\240\210\301\305\306\300\242\"\240\210\301\242\204\302\300\242B\302\242B\240\210\307\207" [V0 V1 V2 V3 key-description string-match "" nil] 6 "\n\n(fn KEY COM)"]] 12 (#$ . 1587)]) #@207 Guess the mode-map name according to MODE. Some modes don't use conventional mode-map name so we need to guess mode-map name. E.g. `python-mode' ==> py-mode-map. Return nil if no mode-map found. (fn MODE) (defalias 'helm-get-mode-map-from-mode #[257 "\301\302\303\"!\304!\305\306\307#\211G\310\311\310\211\204J\312=\203*\310\262\310\211\262\202+\311\203J\312O\262\301\302\303\306P\"!\262S\262\310\262\202\203S\202T\211)\207" [mode-name intern-soft format "%s-map" symbol-name replace-regexp-in-string "-mode" "" nil t 0] 14 (#$ . 2027)]) #@48 Return mode-map alist of current `major-mode'. (defalias 'helm-M-x-current-mode-map-alist #[0 "\301!\211\205\302!\205\303J!\207" [major-mode helm-get-mode-map-from-mode boundp helm-M-x-get-major-mode-command-alist] 3 (#$ . 2602)]) #@361 Transformer function to show bindings in emacs commands. Show global bindings and local bindings according to current `major-mode'. If SORT is non nil sort list with `helm-generic-sort-fn'. Note that SORT should not be used when fuzzy matching because fuzzy matching is running its own sort function with a different algorithm. (fn CANDIDATES &optional SORT) (defalias 'helm-M-x-transformer-1 #[513 "r\303!\203 \206p\211q\210\304 \305\211\211\211\211\211\211:\203\306@\262\306\n\"@\262\307\310\311 \"!\262\312:\203D@\202F!\262 =\204b\n>\203k\313!\203k\314\"\203k\315\316\317#\202m\262\320N\204\273\321N\204\273\322\323\"\203\232\203\232\310\324\315\325\326\315 \316\327###\202\264\322\323\"\203\246\202\264\310\324\315\325\326\315\f\316\327###BC\244\262A\262\305\262\202 \203\324\330\331\"\266\211\202\327\266\211)\207" [helm-current-buffer major-mode minor-mode-list buffer-live-p helm-M-x-current-mode-map-alist nil rassq substitute-command-keys format "\\[%s]" intern boundp buffer-local-value propertize face helm-command-active-mode helm-only no-helm-mx string-match "^M-x" "%s %s" " " display helm-M-x-key sort helm-generic-sort-fn] 22 (#$ . 2847)]) #@73 Transformer function for `helm-M-x' candidates. (fn CANDIDATES SOURCE) (defalias 'helm-M-x-transformer #[514 "\301?\"\207" [helm--in-fuzzy helm-M-x-transformer-1] 5 (#$ . 4088)]) #@73 Transformer function for `helm-M-x' candidates. (fn CANDIDATES SOURCE) (defalias 'helm-M-x-transformer-no-sort #[514 "\300!\207" [helm-M-x-transformer-1] 4 (#$ . 4276)]) (defalias 'helm-M-x--notify-prefix-arg #[0 "\205\301\302 !r\303\304\"\216\305@\306\"\210\307\310 \311\"*\262\207" [prefix-arg internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord helm-display-mode-line helm-get-current-source force] 4]) (defalias 'helm-cmd--get-current-function-name #[0 "\212\300 \210\301\302\303 \304 \"!A@)\207" [beginning-of-defun split-string buffer-substring-no-properties point-at-bol point-at-eol] 4]) #@22 (fn &optional DIR) (defalias 'helm-cmd--get-preconfigured-commands #[256 "\211\206 \300\301\302!!\303\304\"\305\306!\203;\307\310\311\"r\211q\210\312\313\"\216\314!\210\315\316\305\311#\2039\317 \320\305OB\262\202%*\210\207" [helm-basedir locate-library "helm" expand-file-name "helm-autoloads.el" nil file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "Preconfigured" helm-cmd--get-current-function-name 1] 9 (#$ . 4985)]) (defvar helm-M-x-map (byte-code "\301 \302\"\210\303\304\305#\210\303\304\306#\210\207" [helm-comp-read-map make-sparse-keymap set-keymap-parent define-key "" nil helm-M-x-universal-argument] 5)) #@50 Same as `universal-argument' but for `helm-M-x'. (defalias 'helm-M-x-universal-argument #[0 "\203*\303\304\305\306 !r\307\310\"\216\311@\312\"\210\212eb\210\313\314 \315Z!\210+\210)\316\317!\207\315C\320 \207" [helm-M-x-prefix-argument inhibit-read-only prefix-arg nil t internal--before-with-selected-window minibuffer-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord delete-char minibuffer-prompt-width 4 message "Initial prefix arg disabled" universal-argument--mode] 4 (#$ . 5742) nil]) (put 'helm-M-x-universal-argument 'helm-only t) #@18 (fn CANDIDATE) (defalias 'helm-M-x-persistent-action #[257 "\300\301\"\207" [helm-elisp--persistent-help helm-describe-function] 4 (#$ . 6353)]) (defalias 'helm-M-x--move-selection-after-hook #[0 "\301\211\207" [current-prefix-arg nil] 2]) (defalias 'helm-M-x--before-action-hook #[0 "\300\301\302\"\207" [remove-hook helm-move-selection-after-hook helm-M-x--move-selection-after-hook] 3]) (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-M-x-class-p eieio-make-class-predicate helm-M-x-class helm-M-x-class--eieio-childp eieio-make-child-predicate helm-M-x-class-child-p make-obsolete "use (cl-typep ... \\='helm-M-x-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer helm-type-command) ((requires-pattern :initform 0) (must-match :initform t) (filtered-candidate-transformer :initform 'helm-M-x-transformer-no-sort) (persistent-help :initform "Describe this command") (help-message :initform 'helm-M-x-help-message) (nomark :initform t) (keymap :initform helm-M-x-map)) nil] 6) #@71 Create a new object of class type `helm-M-x-class'. (fn &rest SLOTS) (defalias 'helm-M-x-class #[128 "\300\301\302#\207" [apply make-instance helm-M-x-class] 5 (#$ . 7509)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-M-x-class compiler-macro helm-M-x-class--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'helm-M-x-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 (#$ . 7806)]) #@581 Read or execute action on command name in COLLECTION or HISTORY. When `helm-M-x-use-completion-styles' is used, Emacs `completion-styles' mechanism is used, otherwise standard helm completion and helm fuzzy matching are used together. Helm completion is not provided when executing or defining kbd macros. Arg COLLECTION should be an `obarray' but can be any object suitable for `try-completion'. Arg PREDICATE is a function that default to `commandp' see also `try-completion'. Arg HISTORY default to `extended-command-history'. (fn COLLECTION &optional PREDICATE HISTORY) (defalias 'helm-M-x-read-extended-command #[769 "\306\206\307\310\311\312\313\314\315\316#\317\n&\311\320\313\314\315\321\n#\317\n&D \322=\2032\323\202^ :\203B @\324=\203B\325\202^ :\203U @\250\203U\326\327 @\"\202^ \250\205^\326\327 \"\330P\331\332\333\334#\335\336\337\"\210\335\340\341\"\210\203| \203|\237\262\342\216\343+\344\345\346\347\350\351\352&+\207" [helm--mode-line-display-prefarg helm-fuzzy-sort-fn helm-M-x-fuzzy-match helm-M-x-prefix-argument helm-M-x--timer helm-M-x-reverse-history t commandp #[514 "\300\301\"\207" [helm-fuzzy-matching-default-sort-fn-1 t] 5 "\n\n(fn CANDIDATES SOURCE)"] helm-make-source "Emacs Commands history" helm-M-x-class :data make-closure #[0 "\302\300\206\303\301\304\211\305%\207" [V0 V1 helm-comp-read-get-candidates extended-command-history nil #1=""] 6] :fuzzy-match "Emacs Commands" #[0 "\302\300\301\303\211\304%\207" [V0 V1 helm-comp-read-get-candidates nil #1#] 6] - "- " 4 "C-u " format "%d " "M-x " run-at-time 1 0.1 helm-M-x--notify-prefix-arg add-hook helm-move-selection-after-hook helm-M-x--move-selection-after-hook helm-before-action-hook helm-M-x--before-action-hook #[0 "\300 \207" [helm-M-x--unwind-forms] 1] nil helm :sources :prompt :buffer "*helm M-x*" :history helm-M-x-input-history current-prefix-arg] 15 (#$ . 8039)]) #@23 (fn &optional DONE) (defalias 'helm-M-x--unwind-forms #[256 "\204\303 !\203\304 !\210\305\305\306\307\310\"\210\306\311\312\"\210\211\211\207" [helm-M-x--unwind-forms-done helm-M-x--timer helm--mode-line-display-prefarg timerp cancel-timer nil remove-hook helm-move-selection-after-hook helm-M-x--move-selection-after-hook helm-before-action-hook helm-M-x--before-action-hook] 4 (#$ . 9952)]) #@163 Execute COMMAND as an editor command. COMMAND must be a symbol that satisfies the `commandp' predicate. Save COMMAND to `extended-command-history'. (fn COMMAND) (defalias 'helm-M-x-execute-command #[257 "\306\307!\210\211\205;\211\211\n\206 \310!\3111'\312\313\"\210\314\315\"0\2028 \2030\314\315\"\210\316@A\"\262)\266\202\207" [this-command real-this-command helm-current-prefix-arg helm-M-x-prefix-argument prefix-arg helm-M-x-always-save-history helm-M-x--unwind-forms t symbol-name (debug error) command-execute record add-to-history extended-command-history signal] 7 (#$ . 10362)]) (defalias 'helm-M-x--vanilla-M-x #[0 "\301\302\203\303\216\300\304!\210\305 )\202\305 !!\207" [helm-mode helm-M-x-execute-command intern-soft #[0 "\300\301!\207" [helm-mode 1] 2] -1 read-extended-command] 4]) #@436 Preconfigured `helm' for Emacs commands. It is `helm' replacement of regular `M-x' `execute-extended-command'. Unlike regular `M-x' Emacs vanilla `execute-extended-command' command, the prefix args if needed, can be passed AFTER starting `helm-M-x'. When a prefix arg is passed BEFORE starting `helm-M-x', the first `C-u' while in `helm-M-x' session will disable it. You can get help on each command by persistent action. (fn ARG) (defalias 'helm-M-x #[257 "\204 \203 \303 \207\304\n!\207" [defining-kbd-macro executing-kbd-macro obarray helm-M-x--vanilla-M-x helm-M-x-read-extended-command] 3 (#$ . 11190) (byte-code "C\207" [current-prefix-arg helm-M-x-prefix-argument] 1)]) (byte-code "\300\301\302\303#\210\304\305!\207" [put helm-M-x interactive-only command-execute provide helm-command] 4)