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

Chizi123
2018-11-17 c4001ccd1864293b64aa37d83a9d9457eb875e70
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&\207" [require cl-lib helm helm-lib helm-utils info custom-declare-group helm-info nil "Info-related applications and libraries for Helm." :group custom-declare-variable helm-info-default-sources funcall function #[0 "\300\207" [(helm-source-info-elisp helm-source-info-cl helm-source-info-eieio helm-source-info-pages)] 1] "Default sources to use for looking up symbols at point in Info\nfiles with `helm-info-at-point'." :type (repeat (choice symbol))] 8)
16 #@50 
17
18 (fn &optional (FILE (helm-attr \='info-file)))
19 (defalias 'helm-info-init #[128 "\211\203 \211A\262\242\202\302\303!\203\304\305\306GTD\"\210\205#\307 \211\203+\310!\210\210\307 ?\205\260\311 r\312\313\314\315\316!\317\"\320$\216\321\322\"\210\307\323!\324\211\211\211\325 \211\203\247\211@\326!\210eb\210\327\330\324\331#\203\240\327\332\333 T\331#\204^\334 \262\212\334 b\210\335\336\324\331#)\206\204\333 \262\337\340\341{#\262rq\210c\210\340c\210)\202^A\266\202\202Q\210\342 )\266\205*\262\207" [debug-on-error Info-history helm-attr info-file signal wrong-number-of-arguments helm-info-init helm-candidate-buffer kill-buffer internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 info " *helm info temp buffer*" global nil Info-index-nodes Info-goto-node search-forward "\n* " t "Menu:\n" point-at-eol point-at-bol re-search-forward "(line +[0-9]+)" replace-regexp-in-string "\n" "" bury-buffer] 15 (#$ . 1016)])
20 #@18 
21
22 (fn NODE-LINE)
23 (defalias 'helm-info-goto #[257 "\300@!\210\301A!\207" [Info-goto-node helm-goto-line] 3 (#$ . 2050)])
24 #@13 
25
26 (fn LINE)
27 (defalias 'helm-info-display-to-real #[257 "\300\301\"\205\302\303\304\305!\306\307\"#\310\306\311\"\206\312!B\207" [string-match "\\* +\\([^\n]*.+[^\n]*\\):[     ]+\\([^\n]*\\)\\.\\(?:[     \n]*(line +\\([0-9]+\\))\\)?" format "(%s)%s" helm-attr info-file match-string 2 string-to-number 3 "1"] 7 (#$ . 2178)])
28 (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-info-source-p eieio-make-class-predicate helm-info-source helm-info-source--eieio-childp eieio-make-child-predicate helm-info-source-child-p make-obsolete "use (cl-typep ... \\='helm-info-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer) ((info-file :initarg :info-file :initform nil :custom 'string) (init :initform #'helm-info-init) (display-to-real :initform #'helm-info-display-to-real) (get-line :initform #'buffer-substring) (action :initform '(("Goto node" . helm-info-goto)))) nil] 6)
29 #@73 Create a new object of class type `helm-info-source'.
30
31 (fn &rest SLOTS)
32 (defalias 'helm-info-source #[128 "\300\301\302#\207" [apply make-instance helm-info-source] 5 (#$ . 3220)])
33 (byte-code "\300\301\302\303#\300\207" [function-put helm-info-source compiler-macro helm-info-source--anon-cmacro] 4)
34 #@26 
35
36 (fn WHOLE &rest SLOTS)
37 (defalias 'helm-info-source--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 (#$ . 3527)])
38 #@25 
39
40 (fn FNAME &rest ARGS)
41 (defalias 'helm-build-info-source '(macro . #[385 "\300\301\302E\303\304BBBBB\207" [helm-make-source concat "Info Index: " 'helm-info-source :info-file] 8 (#$ . 3762)]))
42 #@189 Define a helm command NAME with documentation DOC.
43 Arg SOURCE will be an existing helm source named
44 `helm-source-info-<NAME>' and BUFFER a string buffer name.
45
46 (fn NAME DOC SOURCE BUFFER)
47 (defalias 'helm-build-info-index-command #[1028 "\300\301\302P!\303\304\305\306\307\"\310\"\311\312\211&#\207" [defalias intern "helm-info-" make-byte-code 0 "\302\303\300\304\301\305\306&\207" vconcat vector [helm :sources :buffer :candidate-number-limit 1000] 7 nil] 13 (#$ . 3966)])
48 #@294 Define helm sources named helm-source-info-<NAME>.
49 Sources are generated for all entries of `helm-default-info-index-list'.
50 If COMMANDS arg is non-nil, also build commands named `helm-info-<NAME>'.
51 Where NAME is an element of `helm-default-info-index-list'.
52
53 (fn VAR-VALUE &optional COMMANDS)
54 (defalias 'helm-define-info-index-sources #[513 "\300\211:\2038@\262\301\302P!\262\211\303\304P\305\306$L\210\2031\307\310\311\"\310\312\"$\210A\262\202\300\207" [nil intern "helm-source-info-" helm-make-source "Info Index: " helm-info-source :info-file helm-build-info-index-command format "Predefined helm for %s info." "*helm info %s*"] 12 (#$ . 4456)])
55 #@18 
56
57 (fn VAR VALUE)
58 (defalias 'helm-info-index-set #[514 "L\210\300\301\"\207" [helm-define-info-index-sources t] 5 (#$ . 5133)])
59 #@41 Ring of previously searched Info files.
60 (defvar helm-info-searched (make-ring 32) (#$ . 5269))
61 #@236 Return list of Info files to use for `helm-info'.
62
63 Elements of the list are strings of Info file names without
64 extensions (e.g. "emacs" for file "emacs.info.gz"). Info
65 files are found by searching directories in
66 `Info-directory-list'.
67 (defalias 'helm-get-info-files #[0 "\206    \302\211:\203(@\262\303!\203!\304\305\302\306#!\244\262A\262\202\211\237\266\203\307\302\211:\203G@\262\310!B\262A\262\2020\211\237\266\203\311\312#\207" [Info-directory-list Info-default-directory-list nil file-directory-p reverse directory-files "\\.info" helm-fast-remove-dups helm-file-name-sans-extension :test equal] 8 (#$ . 5371)])
68 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable helm-default-info-index-list funcall function #[0 "\300 \207" [helm-get-info-files] 1] "Info files to search in with `helm-info'." :group helm-info :type (repeat (choice string)) :set helm-info-index-set] 10)
69 #@101 Search the index of CANDIDATE's Info file using the function
70 helm-info-<CANDIDATE>.
71
72 (fn CANDIDATE)
73 (defalias 'helm-info-search-index #[257 "\301\302P!\303!\205\211 \210\304\"\207" [helm-info-searched intern-soft "helm-info-" fboundp ring-insert] 5 (#$ . 6324)])
74 #@40 Return a `helm' source for Info files.
75 (defalias 'helm-def-source--info-files #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314&\f\207" [helm-make-source "Helm Info" helm-source-sync :candidates #[0 "\301!\207" [helm-default-info-index-list copy-sequence] 2] :candidate-number-limit 999 :candidate-transformer #[257 "\300\301\"\207" [sort string-lessp] 4 "\n\n(fn CANDIDATES)"] :nomark t :action (("Search index" . helm-info-search-index))] 13 (#$ . 6599)])
76 #@539 Preconfigured `helm' for searching Info files' indices.
77
78 With a prefix argument \[universal-argument], set REFRESH to non-nil.
79
80 Optional parameter REFRESH, when non-nil, reevaluates
81 `helm-default-info-index-list'.  If the variable has been
82 customized, set it to its saved value.  If not, set it to its
83 standard value.  See `custom-reevaluate-setting' for more.
84
85 REFRESH is useful when new Info files are installed.  If
86 `helm-default-info-index-list' has not been customized, the new
87 Info files are made available.
88
89 (fn &optional REFRESH)
90 (defalias 'helm-info #[256 "\301!?\205 \302\303\"\203\304\305!\210\306\307\310 \311\312\313\205&\314\315!\316Q&\207" [helm-info-searched ring-empty-p ring-ref 0 custom-reevaluate-setting helm-default-info-index-list helm :sources helm-def-source--info-files :buffer "*helm Info*" :preselect "\\_<" regexp-quote "\\_>"] 11 (#$ . 7074) "P"])
91 #@41 Cache for all Info pages on the system.
92 (defvar helm-info--pages-cache nil (#$ . 7970))
93 #@29 Helm source for Info pages.
94 (defvar helm-source-info-pages (helm-make-source "Info Pages" 'helm-source-sync :init 'helm-info-pages-init :candidates #[0 "\207" [helm-info--pages-cache] 1] :action '(("Show with Info" lambda (node-str) (info (replace-regexp-in-string "^[^:]+: " "" node-str)))) :requires-pattern 2) (#$ . 8064))
95 #@47 Collect candidates for initial Info node Top.
96 (defalias 'helm-info-pages-init #[0 "\2069\301\302 r\303\304\305\306\307!\310\"\311$\216\312\313\314\"\210\315\313\316\"\210eb\210\317\320\321#\2032\322\323!B\202!\324 *\262\262\207" [helm-info--pages-cache "\\* +\\([^:]+: ([^)]+)[^.]*\\)\\." internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 info "dir" " *helm info temp buffer*" Info-find-node "top" re-search-forward nil t match-string-no-properties 1 kill-buffer] 8 (#$ . 8397)])
97 #@51 Preconfigured `helm' for searching info at point.
98 (defalias 'helm-info-at-point #[0 "\301\211:\203/@\2629\203\302\303J\"\202\302\303\"\262\211\204(\304\305\"\210A\262\202\266\306\307\310\311$\207" [helm-info-default-sources nil assoc name warn "Couldn't build source `%S' without its info file" helm :sources :buffer "*helm info*"] 6 (#$ . 8970) nil])
99 (provide 'helm-info)