;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 \206 p\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\2033 A\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)
|
