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\304\305\306\307\310\302%\210\311\312\313\314\315DD\316\310\305\317\320&\210\311\321\313\314\322DD\323\310\305\317\324&\207" [require cl-lib helm helm-help custom-declare-group helm-man nil "Man and Woman applications for helm." :group custom-declare-variable helm-man-or-woman-function funcall function #[0 "\300\207" [Man-getpage-in-background] 1] "Default command to display a man page." :type (radio :tag "Preferred command to display a man page" (const :tag "Man" Man-getpage-in-background) (const :tag "Woman" woman)) helm-man-format-switches #[0 "\301\302\"\203    \303\207\304\207" [system-type memql (darwin macos) "%s" "-l %s"] 3] "Arguments to pass to the `manual-entry' function.\nArguments are passed to `manual-entry' with `format.'" string] 8)
16 #@94 All man pages on system.
17 Will be calculated the first time you invoke helm with this
18 source.
19 (defvar helm-man--pages nil (#$ . 1219))
20 #@78 Default action for jumping to a woman or man page from helm.
21
22 (fn CANDIDATE)
23 (defalias 'helm-man-default-action #[257 "\302\303\304!\"\3051D\211A\203\306\307\310\311$\202\211@\312=\203)\313\314    \"!\202>\31514\316!0\202>\210\317 \210\313\314    \"!\2620\202K\210\317 \210\312!\207" [helm-man-or-woman-function helm-man-format-switches mapcar car woman-file-name-all-completions (error) helm-comp-read "ManFile: " :must-match t Man-getpage-in-background manual-entry format (error) woman-find-file kill-buffer] 7 (#$ . 1359)])
24 (defalias 'helm-man--init #[0 "\305\306!\210\305\307!\210\204\310    \n\"\304 !\311\312\f\"\313\314\"\207" [helm-man--pages woman-manpath woman-path woman-expanded-directory-path woman-topic-all-completions require woman helm-utils woman-expand-directory-path mapcar car helm-init-candidates-in-buffer global] 3])
25 (defvar helm-source-man-pages (helm-make-source "Manual Pages" 'helm-source-in-buffer :init 'helm-man--init :persistent-action 'ignore :filtered-candidate-transformer #[514 "\300\301\"\207" [sort helm-generic-sort-fn] 5 "\n\n(fn CANDIDATES SOURCE)"] :action '(("Display Man page" . helm-man-default-action)) :group 'helm-man))
26 #@99 Preconfigured `helm' for Man and Woman pages.
27 With a prefix arg reinitialize the cache.
28
29 (fn ARG)
30 (defalias 'helm-man-woman #[257 "\211\203\301\302\303\304\305\306$\207" [helm-man--pages nil helm :sources helm-source-man-pages :buffer "*helm man woman*"] 6 (#$ . 2551) "P"])
31 (provide 'helm-man)