| 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) | |
