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

Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(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)
(defvar helm-M-x-input-history nil)
#@44 Prefix argument before calling `helm-M-x'.
(defvar helm-M-x-prefix-argument nil (#$ . 2014))
#@42 Return alist of MODE-MAP.
 
(fn MODE-MAP)
(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)])
#@204 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\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)])
#@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 (#$ . 3122)])
#@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\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)])
#@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 (#$ . 4337)])
#@73 Transformer function for `helm-M-x' candidates.
 
(fn CANDIDATES SOURCE)
(defalias 'helm-M-x-transformer-hist #[514 "\300!\207" [helm-M-x-transformer-1] 4 (#$ . 4525)])
(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])
(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!\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)])
(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))
#@50 Same as `universal-argument' but for `helm-M-x'.
(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])
(put 'helm-M-x-universal-argument 'helm-only t)
#@26 
 
(fn CANDIDATES SOURCE)
(defalias 'helm-M-x-fuzzy-sort-candidates #[514 "\300\301\"\207" [helm-fuzzy-matching-default-sort-fn-1 t] 5 (#$ . 6706)])
#@246 Read command name to invoke in `helm-M-x'.
Helm completion is not provided when executing or defining
kbd macros.
Optional arg COLLECTION is to allow using another COLLECTION
than the default which is OBARRAY.
 
(fn &optional COLLECTION HISTORY)
(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)])
#@458 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 &optional COMMAND-NAME)
(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)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put helm-M-x interactive-only command-execute provide helm-command] 4)