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

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
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 \206p\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\251A:\203\210A@\335=\203\210\336\202\251A:\203\236A@\250\203\236\337\340A@\"\202\251A\250\205\251\337\340A\"\341P\206\261B\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)