| 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\306\307\310\311\312\302%\210\313\314\315\316\317DD\320\312\307\321\322&\210\313\323\315\316\324DD\325\312\307\321\322&\210\313\326\315\316\327DD\330\312\307\321\322&\210\313\331\315\316\332DD\333\312\307\321\322&\210\313\334\315\316\335DD\336\312\307\321\316&\210\306\337\310\340\341\342\312\307\312\343& \210\344\345\346\347\312\337%\207" [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-requires-pattern funcall function #[0 "\300\207" [0] 1] "Value of requires-pattern for `helm-M-x'.\nShow all candidates on startup when 0 (default)." :type boolean helm-M-x-always-save-history #[0 "\300\207" [nil] 1] "`helm-M-x' Save command in `extended-command-history' even when it fail." 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" [nil] 1] "Enable fuzzy matching in `helm-M-x' when non--nil." helm-M-x-default-sort-fn #[0 "\300\207" [helm-M-x-fuzzy-sort-candidates] 1] "Default sort function for `helm-M-x'.\n\nIt should sort against REAL value of candidates.\n\nIt is used only when `helm-M-x-fuzzy-match' is enabled." helm-command-faces "Customize the appearance of helm-command." :prefix "helm-" helm-faces custom-declare-face helm-M-x-key ((t (:foreground "orange" :underline t))) "Face used in helm-M-x to show keybinding."] 10) | |
| 16 | (defvar helm-M-x-input-history nil) | |
| 17 | #@44 Prefix argument before calling `helm-M-x'. | |
| 18 | (defvar helm-M-x-prefix-argument nil (#$ . 2014)) | |
| 19 | #@42 Return alist of MODE-MAP. | |
| 20 | ||
| 21 | (fn MODE-MAP) | |
| 22 | (defalias 'helm-M-x-get-major-mode-command-alist #[257 "\211\205$ \300C\300C\300C\301\302\303\304\305\306#\307\"\310\311%\"\210\211\242\237\266\203\207" [nil cl--map-keymap-recursively make-byte-code 514 "\300\303!\240\210\301\304\305\300\242\"\240\210\301\242?\205 \302\300\242B\302\242B\240\207" vconcat vector [key-description string-match "<menu-bar>"] 6 "\n\n(fn KEY COM)"] 13 (#$ . 2113)]) | |
| 23 | #@204 Guess the mode-map name according to MODE. | |
| 24 | Some modes don't use conventional mode-map name | |
| 25 | so we need to guess mode-map name. e.g python-mode ==> py-mode-map. | |
| 26 | Return nil if no mode-map found. | |
| 27 | ||
| 28 | (fn MODE) | |
| 29 | (defalias 'helm-get-mode-map-from-mode #[257 "\301\302\303\"!\304!\305\306\307#\211G\310\311\310\204C \312=\203( \310\262\310\211\262\202) \311\203C \312O\262\301\302\303\306P\"!\262S\262\202 \203K \202L \211)\207" [mode-name intern-soft format "%s-map" symbol-name replace-regexp-in-string "-mode" "" nil t 0] 13 (#$ . 2567)]) | |
| 30 | #@48 Return mode-map alist of current `major-mode'. | |
| 31 | (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 (#$ . 3122)]) | |
| 32 | #@361 Transformer function to show bindings in emacs commands. | |
| 33 | Show global bindings and local bindings according to current `major-mode'. | |
| 34 | If SORT is non nil sort list with `helm-generic-sort-fn'. | |
| 35 | Note that SORT should not be used when fuzzy matching because | |
| 36 | fuzzy matching is running its own sort function with a different algorithm. | |
| 37 | ||
| 38 | (fn CANDIDATES &optional SORT) | |
| 39 | (defalias 'helm-M-x-transformer-1 #[513 "r\301!\203 \206 p\211q\210\302 \303\211\211\211:\203\200 @\262\304\"@\262\305\306\307\"!\262\310:\203< @\202= !\311N\204y \211\312\313\"\203] \203] \306\314\315\316\317##\202s \312\313\"\203h \202s \306\314\315\316\317##BC\244\262A\262\202 \203\214 \320\321\"\202\215 \211\266\206)\207" [helm-current-buffer buffer-live-p helm-M-x-current-mode-map-alist nil rassq substitute-command-keys format "\\[%s]" intern helm-only string-match "^M-x" "%s (%s)" propertize face helm-M-x-key sort helm-generic-sort-fn] 16 (#$ . 3367)]) | |
| 40 | #@73 Transformer function for `helm-M-x' candidates. | |
| 41 | ||
| 42 | (fn CANDIDATES SOURCE) | |
| 43 | (defalias 'helm-M-x-transformer #[514 "\301?\"\207" [helm--in-fuzzy helm-M-x-transformer-1] 5 (#$ . 4337)]) | |
| 44 | #@73 Transformer function for `helm-M-x' candidates. | |
| 45 | ||
| 46 | (fn CANDIDATES SOURCE) | |
| 47 | (defalias 'helm-M-x-transformer-hist #[514 "\300!\207" [helm-M-x-transformer-1] 4 (#$ . 4525)]) | |
| 48 | (defalias 'helm-M-x--notify-prefix-arg #[0 "\205# \301\302 !r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210\314\315 \316\"*\262\207" [prefix-arg internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-display-mode-line helm-get-current-source force] 7]) | |
| 49 | (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]) | |
| 50 | #@22 | |
| 51 | ||
| 52 | (fn &optional DIR) | |
| 53 | (defalias 'helm-cmd--get-preconfigured-commands #[256 "\211\206 \300\301\302!!\303\304\"\305\306!\203A \307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320!\210\321\322\305\323#\203? \324 \325\305OB\262\202+ *\210\207" [helm-basedir locate-library "helm" expand-file-name "helm-autoloads.el" nil file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "Preconfigured" t helm-cmd--get-current-function-name 1] 11 (#$ . 5264)]) | |
| 54 | (defvar helm-M-x-map (byte-code "\301 \302\"\210\303\304\305#\210\303\304\306#\210\211\207" [helm-comp-read-map make-sparse-keymap set-keymap-parent define-key "" nil helm-M-x-universal-argument] 5)) | |
| 55 | #@50 Same as `universal-argument' but for `helm-M-x'. | |
| 56 | (defalias 'helm-M-x-universal-argument #[0 "\2032 \303\304\305\306 !r\307\310\311\312\313!\314\"\315$\216\316@\317\"\210\212eb\210\320\321 \322GZ!\210+\210)\323\324!\207\325C\326 \207" [helm-M-x-prefix-argument inhibit-read-only prefix-arg nil t internal--before-with-selected-window minibuffer-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord delete-char minibuffer-prompt-width "M-x " message "Initial prefix arg disabled" 4 universal-argument--mode] 7 (#$ . 6054) nil]) | |
| 57 | (put 'helm-M-x-universal-argument 'helm-only t) | |
| 58 | #@26 | |
| 59 | ||
| 60 | (fn CANDIDATES SOURCE) | |
| 61 | (defalias 'helm-M-x-fuzzy-sort-candidates #[514 "\300\301\"\207" [helm-fuzzy-matching-default-sort-fn-1 t] 5 (#$ . 6706)]) | |
| 62 | #@246 Read command name to invoke in `helm-M-x'. | |
| 63 | Helm completion is not provided when executing or defining | |
| 64 | kbd macros. | |
| 65 | Optional arg COLLECTION is to allow using another COLLECTION | |
| 66 | than the default which is OBARRAY. | |
| 67 | ||
| 68 | (fn &optional COLLECTION HISTORY) | |
| 69 | (defalias 'helm-M-x-read-extended-command #[512 "\204 \203 \n\203 \306\216\302\307!\210\310 )\207\310 \207 \311 \312\313\314\315#\316>B >?\317\211:\203U @\262\203N \320\321!!\203N \322\323G\317$\210B\262A\262\202, \211\237\266\203?\324\323\325\326\327!\330\"\331$\216\317@\332A\333=\203v \334\202\251 A:\203\210 A@\335=\203\210 \336\202\251 A:\203\236 A@\250\203\236 \337\340A@\"\202\251 A\250\205\251 \337\340A\"\341P\206\261 B\342\320\343C\344\345\346\347\350\351\352\353\354\206\306 ?\355D\356\357\360\317\361\362\363E\364\311\365\366\367F\370\311\371\311\372\373\374\375&(,\207" [defining-kbd-macro executing-kbd-macro helm-mode helm-M-x-default-sort-fn helm-fuzzy-sort-fn helm--mode-line-display-prefarg #[0 "\300\301!\207" [helm-mode 1] 2] -1 read-extended-command t run-at-time 1 0.1 helm-M-x--notify-prefix-arg #[0 "\301\211\207" [current-prefix-arg nil] 2] nil commandp intern set-text-properties 0 make-byte-code "\302\300!\210\303\211\207" vconcat vector [helm--mode-line-display-prefarg cancel-timer nil] 2 helm-comp-read - "- " 4 "C-u " format "%d " "M-x " :test :requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action #[257 "\300\301\"\207" [helm-elisp--persistent-help helm-describe-function] 4 "\n\n(fn CANDIDATE)"] :persistent-help "Describe this command" :history :reverse-history :input-history helm-M-x-input-history :del-input :help-message helm-M-x-help-message :keymap :must-match :match-part #[257 "\300!@\207" [split-string] 3 "\n\n(fn C)"] :fuzzy :nomark :candidates-in-buffer :fc-transformer helm-M-x-transformer :hist-fc-transformer helm-M-x-transformer-hist helm-move-selection-after-hook extended-command-history current-prefix-arg helm-M-x-prefix-argument obarray helm-M-x-requires-pattern helm-M-x-reverse-history helm-M-x-map helm-M-x-fuzzy-match] 44 (#$ . 6862)]) | |
| 70 | #@458 Preconfigured `helm' for Emacs commands. | |
| 71 | It is `helm' replacement of regular `M-x' `execute-extended-command'. | |
| 72 | ||
| 73 | Unlike regular `M-x' emacs vanilla `execute-extended-command' command, | |
| 74 | the prefix args if needed, can be passed AFTER starting `helm-M-x'. | |
| 75 | When a prefix arg is passed BEFORE starting `helm-M-x', the first `C-u' | |
| 76 | while in `helm-M-x' session will disable it. | |
| 77 | ||
| 78 | You can get help on each command by persistent action. | |
| 79 | ||
| 80 | (fn ARG &optional COMMAND-NAME) | |
| 81 | (defalias 'helm-M-x #[513 "\211\306\230?\205C \211;\205 \307!\211\205A \211\211\n\206 \310\3111. \312\313\"\210\211!0\202> \2036 !\210\314@A\"\262\262)\262\207" [this-command real-this-command helm-current-prefix-arg helm-M-x-prefix-argument prefix-arg helm-M-x-always-save-history "" intern-soft #[257 "\211\301\"B\211\207" [extended-command-history delete] 5 "\n\n(fn COMMAND)"] (debug error) command-execute record signal] 8 (#$ . 8981) (byte-code "\302 D\207" [current-prefix-arg helm-M-x-prefix-argument helm-M-x-read-extended-command] 2)]) | |
| 82 | (byte-code "\300\301\302\303#\210\304\305!\207" [put helm-M-x interactive-only command-execute provide helm-command] 4) | |
