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
84
85
86
87
88
89
90
;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\321\322\312\307&\210\313\323\315\316\324DD\325\321\326\312\307&\210\313\327\315\316\330DD\331\321\332\312\307&\210\313\333\315\316\334DD\335\321\336\312\307&\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-utils helm-grep custom-declare-group helm-tags nil "Tags related Applications and libraries for Helm." :group custom-declare-variable helm-etags-tag-file-name funcall function #[0 "\300\207" [#1="TAGS"] 1 #1#] "Etags tag file name." :type string helm-etags-tag-file-search-limit #[0 "\300\207" [10] 1] "The limit level of directory to search tag file.\nDon't search tag file deeply if outside this value." number helm-etags-match-part-only #[0 "\300\207" [tag] 1] "Allow choosing the tag part of CANDIDATE in `helm-source-etags-select'.\nA tag looks like this:\n    filename: (defun foo\nYou can choose matching against the tag part (i.e \"(defun foo\"),\nor against the whole candidate (i.e \"(filename:5:(defun foo\")." (choice (const :tag "Match only tag" tag) (const :tag "Match all file+tag" all)) helm-etags-execute-action-at-once-if-one #[0 "\300\207" [t] 1] "Whether to jump straight to the selected tag if there's only\none match." boolean helm-tags-faces "Customize the appearance of helm-tags faces." :prefix "helm-" helm-faces custom-declare-face helm-etags-file ((t (:foreground "Lightgoldenrod4" :underline t))) "Face used to highlight etags filenames."] 10)
#@68 Run switch to other window action from `helm-source-etags-select'.
(defalias 'helm-etags-run-switch-other-window #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action #[257 "\300\301\"\207" [helm-etags-action-goto find-file-other-window] 4 "\n\n(fn C)"] error "Running helm command outside of context"] 2 (#$ . 1992) nil])
(put 'helm-etags-run-switch-other-window 'helm-only t)
#@67 Run switch to other frame action from `helm-source-etags-select'.
(defalias 'helm-etags-run-switch-other-frame #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action #[257 "\300\301\"\207" [helm-etags-action-goto find-file-other-frame] 4 "\n\n(fn C)"] error "Running helm command outside of context"] 2 (#$ . 2406) nil])
(put 'helm-etags-run-switch-other-frame 'helm-only t)
#@23 Keymap used in Etags.
(defvar helm-etags-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [M-down] helm-goto-next-file [M-up] helm-goto-precedent-file "o" helm-etags-run-switch-other-window "" helm-etags-run-switch-other-frame] 5) (#$ . 2816))
#@55 Store the last modification time of etags files here.
(defvar helm-etags-mtime-alist nil (#$ . 3193))
#@59 Cache content of etags files used here for faster access.
(defvar helm-etags-cache (make-hash-table :test 'equal) (#$ . 3301))
#@147 Return the path of etags file if found.
Lookes recursively in parents directorys for a
`helm-etags-tag-file-name' file.
 
(fn &optional DIRECTORY)
(defalias 'helm-etags-get-tag-file #[256 "\302\206!\211\205\303    \"\207" [default-directory helm-etags-tag-file-name helm-etags-find-tag-file-directory expand-file-name] 5 (#$ . 3435)])
#@278 Return files from the following sources;
  1) An automatically located file in the parent directories, by `helm-etags-get-tag-file'.
  2) `tags-file-name', which is commonly set by `find-tag' command.
  3) `tags-table-list' which is commonly set by `visit-tags-table' command.
(defalias 'helm-etags-all-tag-files #[0 "\302\303\304\305\306 D    \"\"\307\310#\207" [tags-file-name tags-table-list helm-fast-remove-dups delq nil append helm-etags-get-tag-file :test equal] 6 (#$ . 3780)])
#@121 Try to find the directory containing tag file.
If not found in CURRENT-DIR search in upper directory.
 
(fn CURRENT-DIR)
(defalias 'helm-etags-find-tag-file-directory #[257 "\301\3022,\303!\204(\211U\203\304\302\305\"\210\202\211T\262\306\307P!\262\202\2620\207" [helm-etags-tag-file-search-limit #[257 "\301\"\211;\205\302!\205\303!\207" [helm-etags-tag-file-name expand-file-name file-regular-p file-readable-p] 4 "\n\n(fn DIR)"] --cl-block-nil-- 0 throw nil expand-file-name "../"] 6 (#$ . 4271)])
#@57 Create header name for this helm etags session.
 
(fn X)
(defalias 'helm-etags-get-header-name #[257 "\301r\302!\203\f\206p\211q\210\303 )P\207" [helm-current-buffer "Etags in " buffer-live-p helm-etags-get-tag-file] 4 (#$ . 4801)])
#@74 Create the `helm-buffer' based on contents of etags tag FILE.
 
(fn FILE)
(defalias 'helm-etags-create-buffer #[257 "\300\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313\314 \315\316#\317d!\262*\262\320\321\304#\300\211\300\304\300\211:\203\302@\262\322\323\"?\205U\322\324\"\211\203R\304O\202S\262\262\322\325\"\205g\313\326\304\"\327\"@\262\203\201\322\330\"\203\201\331\326\332\"\333\334#\262\202\224\203\221\335\336$\262\202\224\300\262\203\267\331\315P\337#c\210\211\247\203\261\211@Y\205\265\340\"\266A\262T\262\2022\300\266\207\207" [nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents split-string buffer-string "\n" omit-nulls line-number-at-pos make-progress-reporter "Loading tag file..." string-match "^\f" "" "[0-9]+,?[0-9]*$" match-string "," "^\\([^,]+\\),[0-9]+$" propertize 1 face helm-etags-file format "%s:%s:%s" linum progress-reporter-do-update] 16 (#$ . 5045)])
#@92 Feed `helm-buffer' using `helm-etags-cache' or tag file.
If no entry in cache, create one.
(defalias 'helm-etags-init #[0 "\302 \211\205^r\303\304!q\210\211\211\205[\211@\305\"\211\203!\211c\210\202S\306!\210\307\310 #\210\311    \"\211\203=\211\312!\241\210\202R\312!B\211    \235\203L    \202O\211    B\262\210\210A\266\202\202 \262)\207" [helm-etags-cache helm-etags-mtime-alist helm-etags-all-tag-files helm-candidate-buffer global gethash helm-etags-create-buffer puthash buffer-string assoc helm-etags-mtime] 8 (#$ . 6109)])
#@24 Helm source for Etags.
(defvar helm-source-etags-select nil (#$ . 6656))
(defalias 'helm-etags-build-source #[0 "\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320    \321\322\323\324\325\326\327\330&\207" [helm-etags-fuzzy-match helm-etags-map helm-make-source "Etags" helm-source-in-buffer :header-name helm-etags-get-header-name :init helm-etags-init :get-line buffer-substring :match-part #[257 "\301\267\202 \302!AA@\207\207" [helm-etags-match-part-only #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tag 6)) helm-grep-split-line] 3 "\n\n(fn CANDIDATE)"] :fuzzy-match :help-message helm-etags-help-message :keymap :action (("Go to tag" lambda (c) (helm-etags-action-goto 'find-file c)) ("Go to tag in other window" lambda (c) (helm-etags-action-goto 'find-file-other-window c)) ("Go to tag in other frame" lambda (c) (helm-etags-action-goto 'find-file-other-frame c))) :group helm-tags :persistent-help "Go to line" :persistent-action #[257 "\300\301\"\210\302 \207" [helm-etags-action-goto find-file helm-highlight-current-line] 4 "\n\n(fn CANDIDATE)"]] 25])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable helm-etags-fuzzy-match funcall function #[0 "\300\207" [nil] 1] "Use fuzzy matching in `helm-etags-select'." :group helm-tags :type boolean :set #[514 "L\210\301 \211\207" [helm-source-etags-select helm-etags-build-source] 4 "\n\n(fn VAR VAL)"]] 10)
#@14 
 
(fn FNAME)
(defalias 'helm-etags--file-from-tag #[257 "\301\302\301\"B\303\211\304\303:\2033@\262P\262\305!\203(\262\303\211\262\202)\304\2033A\262\202\n\207" [tags-compression-info-list "" remove nil t file-exists-p] 8 (#$ . 8128)])
(put 'helm-etags--file-from-tag 'byte-optimizer 'byte-compile-inline-expand)
#@89 Helm default action to jump to an etags entry in other window.
 
(fn SWITCHER CANDIDATE)
(defalias 'helm-etags-action-goto #[514 "\302\303!\210\304\305!\210\306\307!\210\310!\311C\305\311C\3122/\313\314\315\316\317\320                $\321\"\322\323%\"0\210\211\242\266\203AA@\324A@!\204H\325\326\"\202b\327    \330 \"\210!\210\331\305\"\210\332\311\305#\205b\333\224b\207" [helm-etags-cache find-tag-marker-ring require etags deactivate-mark t helm-log-run-hook helm-goto-line-before-hook helm-grep-split-line nil --cl-block---cl-finish---- maphash make-byte-code 514 "\301\305\300@\306!\"\240\210\301\242\307\310\307\f\"B\311\211\312\311:\203?@\262P\262\313!\2034\262\311\211\262\2025\312\203?A\262\202\266\205\211\203M\303\240\210\311\202N\312\262\206W\314\315\311\"\207" vconcat vector [tags-compression-info-list expand-file-name file-name-directory "" remove nil t file-exists-p throw --cl-block---cl-finish----] 10 "\n\n(fn TAGF --CL-VAR--)" string-to-number error "file %s not found" ring-insert point-marker helm-goto-line search-forward 0] 16 (#$ . 8465)])
#@54 Last modification time of etags tag FILE.
 
(fn FILE)
(defalias 'helm-etags-mtime #[257 "\300\301!8A@\207" [5 file-attributes] 4 (#$ . 9564)])
#@93 Check if tag FILE have been modified in this session.
If FILE is nil return nil.
 
(fn FILE)
(defalias 'helm-etags-file-modified-p #[257 "\211\205\301\"\211\205\211\302!U?\207" [helm-etags-mtime-alist assoc-default helm-etags-mtime] 5 (#$ . 9713)])
#@447 Preconfigured helm for etags.
If called with a prefix argument REINIT
or if any of the tag files have been modified, reinitialize cache.
 
This function aggregates three sources of tag files:
 
  1) An automatically located file in the parent directories,
     by `helm-etags-get-tag-file'.
  2) `tags-file-name', which is commonly set by `find-tag' command.
  3) `tags-table-list' which is commonly set by `visit-tags-table' command.
 
(fn REINIT)
(defalias 'helm-etags-select #[257 "\306 \307 \203\310\311 \312 \"\202\313\314!\315\316\317\320$?\266\203\203+\321\322!\202o\323\324\325\326\327\330!\331\"\332\333%\n\"\210\334\324\335\336\327\330    !\337\"\340\341%\"\210 \204T\342 \343\344\303\345\f\346 \203c\202k\347\350QD\351\352&)\207" [helm-etags-execute-action-at-once-if-one helm-execute-action-at-once-if-one helm-etags-cache helm-source-etags-select helm-etags-map helm-etags-fuzzy-match helm-etags-all-tag-files region-active-p buffer-substring-no-properties region-beginning region-end thing-at-point symbol file-exists-p nil apply cl-some message "Error: No tag file found.Create with etags shell command, or visit with `find-tag' or `visit-tags-table'." maphash make-byte-code 514 "\300\235?\205 \302    \"\207" vconcat vector [helm-etags-cache remhash] 5 "\n\n(fn K --CL-VAR--)" mapc 257 "\300\303\232\204    \205\304!\205\305\n\"\207" [helm-etags-mtime-alist helm-etags-cache (4) helm-etags-file-modified-p remhash] 4 "\n\n(fn F)" helm-etags-build-source helm :sources :keymap :default "\\_<" "\\_>" :buffer "*helm etags*"] 13 (#$ . 9975) "P"])
(provide 'helm-tags)