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

Chizi123
2018-11-18 9d27fc972e84736015ab3b1c331888a8fe3d1276
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
83
;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\300\306!\210\307\310\311\312\313\302%\210\314\315\316\317\320DD\321\313\310\322\323&\210\314\324\316\317\325DD\326\313\310\322\317&\210\314\327\316\317\330DD\331\313\310\322\332&\210\314\333\316\317\334DD\335\322\336\313\310&\210\314\337\316\317\340DD\341\322\332\313\310&\210\314\342\316\317\343DD\344\313\345\322\346&\210\314\347\316\317\350DD\351\313\310\322\352&\207" [require cl-lib helm helm-lib imenu helm-utils helm-help custom-declare-group helm-imenu nil "Imenu related libraries and applications for helm." :group custom-declare-variable helm-imenu-delimiter funcall function #[0 "\300\207" [#1=" / "] 1 #1#] "Delimit types of candidates and his value in `helm-buffer'." :type string helm-imenu-execute-action-at-once-if-one #[0 "\300\207" [helm-imenu--execute-action-at-once-p] 1] "Goto the candidate when only one is remaining." helm-imenu-lynx-style-map #[0 "\300\207" [t] 1] "Use Arrow keys to jump to occurences." boolean helm-imenu-all-buffer-assoc #[0 "\300\207" [nil] 1] "Major mode association alist for `helm-imenu-in-all-buffers'.\nAllow `helm-imenu-in-all-buffers' searching in these associated buffers\neven if they are not derived from each other.\nThe alist is bidirectional, i.e no need to add '((foo . bar) (bar . foo))\nonly '((foo . bar)) is needed." (alist :key-type symbol :value-type symbol) helm-imenu-in-all-buffers-separate-sources #[0 "\300\207" [t] 1] "Display imenu index of each buffer in its own source when non-nil.\n\nWhen nil all candidates are displayed in a single source.\n\nNOTE: Each source will have as name \"Imenu <buffer-name>\".\n`helm-source-imenu-all' will not be set, however it will continue\nto be used as a flag for using default as input, if you do not want\nthis behavior, remove it from `helm-sources-using-default-as-input'\neven if not using a single source to display imenu in all buffers." helm-imenu-type-faces #[0 "\300\207" [(("^Variables$" . font-lock-variable-name-face) ("^\\(Function\\|Functions\\|Defuns\\)$" . font-lock-function-name-face) ("^\\(Types\\|Provides\\|Requires\\|Classes\\|Class\\|Includes\\|Imports\\|Misc\\|Code\\)$" . font-lock-type-face))] 1] "Faces for showing type in helm-imenu.\nThis is a list of cons cells.  The cdr of each cell is a face to be used,\nand it can also just be like \\='(:foreground \"yellow\").\nEach car is a regexp match pattern of the imenu type string." helm-faces (repeat (cons (regexp :tag "Imenu type regexp pattern") (sexp :tag "Face"))) helm-imenu-extra-modes #[0 "\300\207" [nil] 1] "Extra modes where helm-imenu-in-all-buffers should look into." (repeat symbol)] 8)
(defvar helm-imenu-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\310#\210    \203/\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\321\322\"\207" [helm-map helm-imenu-lynx-style-map make-sparse-keymap set-keymap-parent define-key [M-down] helm-imenu-next-section [M-up] helm-imenu-previous-section [left] helm-maybe-exit-minibuffer [right] helm-execute-persistent-action [M-left] helm-previous-source [M-right] helm-next-source delq nil] 5))
#@10 
 
(fn N)
(defalias 'helm-imenu-next-or-previous-section #[257 "r\300 q\210\301\211 \302V\203\303\202\304\302V\203\305\202\306\3072;\211 ?\205: \210 \230\204\"\310\307\311\"\210\202\"0\266\204)\207" [helm-buffer-get #[0 "\301\302\303\304\"\"@\207" [helm-imenu-delimiter split-string helm-get-selection nil t] 4] 0 helm-next-line helm-previous-line helm-end-of-source-p helm-beginning-of-source-p break throw nil] 8 (#$ . 3565)])
(defalias 'helm-imenu-next-section #[0 "\300\301!\207" [helm-imenu-next-or-previous-section 1] 2 nil nil])
(defalias 'helm-imenu-previous-section #[0 "\300\301!\207" [helm-imenu-next-or-previous-section -1] 2 nil nil])
(defvar helm-cached-imenu-alist nil)
(make-variable-buffer-local 'helm-cached-imenu-alist)
(defvar helm-cached-imenu-candidates nil)
(make-variable-buffer-local 'helm-cached-imenu-candidates)
(defvar helm-cached-imenu-tick nil)
(make-variable-buffer-local 'helm-cached-imenu-tick)
(defvar helm-imenu--in-all-buffers-cache nil)
#@27 See (info "(emacs)Imenu")
(defvar helm-source-imenu nil (#$ . 4563))
(defvar helm-source-imenu-all nil)
(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-imenu-source-p eieio-make-class-predicate helm-imenu-source helm-imenu-source--eieio-childp eieio-make-child-predicate helm-imenu-source-child-p make-obsolete "use (cl-typep ... \\='helm-imenu-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync) ((candidates :initform 'helm-imenu-candidates) (candidate-transformer :initform 'helm-imenu-transformer) (persistent-action :initform 'helm-imenu-persistent-action) (persistent-help :initform "Show this entry") (nomark :initform t) (keymap :initform helm-imenu-map) (help-message :initform 'helm-imenu-help-message) (action :initform 'helm-imenu-action) (group :initform 'helm-imenu)) nil] 6)
#@74 Create a new object of class type `helm-imenu-source'.
 
(fn &rest SLOTS)
(defalias 'helm-imenu-source #[128 "\300\301\302#\207" [apply make-instance helm-imenu-source] 5 (#$ . 5522)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-imenu-source compiler-macro helm-imenu-source--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-imenu-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 (#$ . 5834)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable helm-imenu-fuzzy-match funcall function #[0 "\300\207" [nil] 1] "Enable fuzzy matching in `helm-source-imenu'." :group helm-imenu :type boolean :set #[514 "L\210\302\303\304\305$\211\207" [helm-imenu-fuzzy-match helm-source-imenu helm-make-source "Imenu" helm-imenu-source :fuzzy-match] 7 "\n\n(fn VAR VAL)"]] 10)
#@18 
 
(fn CANDIDATE)
(defalias 'helm-imenu--maybe-switch-to-buffer #[257 "\211A\300!\205 \301!\211\205\302!\262\207" [markerp marker-buffer switch-to-buffer] 5 (#$ . 6483)])
(defalias 'helm-imenu--execute-action-at-once-p #[0 "\301 r\302!\203 \206p\211q\210\212\303 b\210\304 *A\232\203,\305\306\307!\210\310 \210\202-\311\207" [helm-current-buffer helm-get-selection buffer-live-p point-at-bol point-marker nil helm-set-pattern "" helm-force-update t] 5])
#@57 Default action for `helm-source-imenu'.
 
(fn CANDIDATE)
(defalias 'helm-imenu-action #[257 "\301\302!\210\303!\210\304!\210\305=?\205\306 \207" [imenu-default-goto-function helm-log-run-hook helm-goto-line-before-hook helm-imenu--maybe-switch-to-buffer imenu semantic-imenu-goto-function helm-highlight-current-line] 3 (#$ . 6959)])
#@68 Default persistent action for `helm-source-imenu'.
 
(fn CANDIDATE)
(defalias 'helm-imenu-persistent-action #[257 "\300!\210\301!\210\302 \207" [helm-imenu--maybe-switch-to-buffer imenu helm-highlight-current-line] 3 (#$ . 7303)])
#@25 
 
(fn &optional BUFFER)
(defalias 'helm-imenu-candidates #[256 "r\211\206q\210\304     =\203\n\202(\305\306\307!\310\311\312\313\"\"!\262\211\262)\207" [helm-current-buffer helm-cached-imenu-tick helm-cached-imenu-candidates imenu--index-alist buffer-modified-tick nil imenu--make-index-alist t helm-imenu--candidates-1 delete assoc "*Rescan*"] 8 (#$ . 7541)])
#@32 
 
(fn &optional BUILD-SOURCES)
(defalias 'helm-imenu-candidates-in-all-buffers #[256 "\305 \306\307\310G#\203p\202\311\310\311:\203\207@\262rq\210    \n\235\204.\312\313!\2052\314 \")\203h\203Z\315\316\317\320!\"\321\322rq\210\323!)\324\f&B\262\202h\325rq\210\323!)!\244\262\211\247\203v\211@Y\205z\326\"\266A\262T\262\202\211\237\266\205\327!\210\207" [helm-current-buffer major-mode helm-imenu-extra-modes helm-imenu-all-buffer-assoc helm-imenu-fuzzy-match buffer-list make-progress-reporter "Imenu indexing buffers..." 1 nil derived-mode-p prog-mode helm-same-major-mode-p helm-make-source format "Imenu in %s" buffer-name helm-imenu-source :candidates helm-imenu-candidates :fuzzy-match reverse progress-reporter-do-update progress-reporter-done] 15 (#$ . 7920)])
#@14 
 
(fn ALIST)
(defalias 'helm-imenu--candidates-1 #[257 "\211\300\211:\203\237@\262\301!\203P\302A\300\211\211:\203H@\262\211A\262\242\262\303\304    @#\250\203;\305!\202<BB\262A\262\202\211\237\266\204!\202\223A<\203_\205\223C\202\223A\205\223\211A\306!\203v\211\307!\262\202\213\310!\204\201\211\250\203\212\211\305!\262\202\213\300\262\241\205\223C\237\244\262A\262\202\211\237\207" [nil imenu--subalist-p helm-imenu--candidates-1 propertize helm-imenu-type copy-marker overlayp copy-overlay markerp] 13 (#$ . 8740)])
#@13 
 
(fn ITEM)
(defalias 'helm-imenu--get-prop #[257 "\300\301\302#\211D\205$\203#\300\301\302#\262\203\fB\262\202\f\211\207" [get-text-property 0 helm-imenu-type] 7 (#$ . 9320)])
#@19 
 
(fn CANDIDATES)
(defalias 'helm-imenu-transformer #[257 "\211\301\211\211\211\211\211\211:\203\201@\262\211A\262\242\262\302\303!\203+\304!\202@\305!\2048\250\203?\306!\202@\301!\262\307!\206]rq\210\310\311!)\203Y\312\202Z\313D\262\314\315#\262\316\317#\262BBB\262A\262\202\211\237\207" [helm-imenu-delimiter nil buffer-name overlayp overlay-buffer markerp marker-buffer helm-imenu--get-prop derived-mode-p prog-mode "Function" "Top level" mapconcat #[257 "\301\302\303\211\304\303:\2036@\262\211A\262\242\262\305\n\"\203+\262\303\211\262\202,\304\2036A\262\202\203>\306\202?\211\266\205#\207" [helm-imenu-type-faces propertize face nil t string-match default] 12 "\n\n(fn X)"] propertize help-echo] 13 (#$ . 9517)])
#@35 Preconfigured `helm' for `imenu'.
(defalias 'helm-imenu #[0 "\204 \305\306\307\310    $\311\312\313!\n\314\315\300\316\317\205 \320!\321QD\322\323\324&*\207" [helm-source-imenu helm-imenu-fuzzy-match helm-imenu-execute-action-at-once-if-one helm-execute-action-at-once-if-one imenu-auto-rescan helm-make-source "Imenu" helm-imenu-source :fuzzy-match t thing-at-point symbol helm :sources :default "\\_<" regexp-quote "\\_>" :preselect :buffer "*helm imenu*"] 11 (#$ . 10320) nil])
#@235 Preconfigured helm for fetching imenu entries in all buffers with similar mode as current.
A mode is similar as current if it is the same, it is derived i.e `derived-mode-p'
or it have an association in `helm-imenu-all-buffer-assoc'.
(defalias 'helm-imenu-in-all-buffers #[0 "\204    \204\306\307\310\311\312\313\314\315\n&\316\317\320! \301\f>??\203(\321\322!\202)\323\324\325\326\327\205?\330    !\331QD\332 ?\205L    \333\334&+\207" [helm-imenu-in-all-buffers-separate-sources helm-source-imenu-all helm-imenu-fuzzy-match helm-imenu-execute-action-at-once-if-one helm-sources-using-default-as-input helm--maybe-use-default-as-input helm-make-source "Imenu in all buffers" helm-imenu-source :init #[0 "\301 \211\207" [helm-imenu--in-all-buffers-cache helm-imenu-candidates-in-all-buffers] 2] :candidates helm-imenu--in-all-buffers-cache :fuzzy-match t thing-at-point symbol helm-imenu-candidates-in-all-buffers build-sources (helm-source-imenu-all) helm :sources :default "\\_<" regexp-quote "\\_>" :preselect :buffer "*helm imenu all*" helm-execute-action-at-once-if-one imenu-auto-rescan] 14 (#$ . 10819) nil])
(provide 'helm-imenu)