| 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\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) | |
| 16 | #@68 Run switch to other window action from `helm-source-etags-select'. | |
| 17 | (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]) | |
| 18 | (put 'helm-etags-run-switch-other-window 'helm-only t) | |
| 19 | #@67 Run switch to other frame action from `helm-source-etags-select'. | |
| 20 | (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]) | |
| 21 | (put 'helm-etags-run-switch-other-frame 'helm-only t) | |
| 22 | #@23 Keymap used in Etags. | |
| 23 | (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)) | |
| 24 | #@55 Store the last modification time of etags files here. | |
| 25 | (defvar helm-etags-mtime-alist nil (#$ . 3193)) | |
| 26 | #@59 Cache content of etags files used here for faster access. | |
| 27 | (defvar helm-etags-cache (make-hash-table :test 'equal) (#$ . 3301)) | |
| 28 | #@147 Return the path of etags file if found. | |
| 29 | Lookes recursively in parents directorys for a | |
| 30 | `helm-etags-tag-file-name' file. | |
| 31 | ||
| 32 | (fn &optional DIRECTORY) | |
| 33 | (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)]) | |
| 34 | #@278 Return files from the following sources; | |
| 35 | 1) An automatically located file in the parent directories, by `helm-etags-get-tag-file'. | |
| 36 | 2) `tags-file-name', which is commonly set by `find-tag' command. | |
| 37 | 3) `tags-table-list' which is commonly set by `visit-tags-table' command. | |
| 38 | (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)]) | |
| 39 | #@121 Try to find the directory containing tag file. | |
| 40 | If not found in CURRENT-DIR search in upper directory. | |
| 41 | ||
| 42 | (fn CURRENT-DIR) | |
| 43 | (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)]) | |
| 44 | #@57 Create header name for this helm etags session. | |
| 45 | ||
| 46 | (fn X) | |
| 47 | (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)]) | |
| 48 | #@74 Create the `helm-buffer' based on contents of etags tag FILE. | |
| 49 | ||
| 50 | (fn FILE) | |
| 51 | (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)]) | |
| 52 | #@92 Feed `helm-buffer' using `helm-etags-cache' or tag file. | |
| 53 | If no entry in cache, create one. | |
| 54 | (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)]) | |
| 55 | #@24 Helm source for Etags. | |
| 56 | (defvar helm-source-etags-select nil (#$ . 6656)) | |
| 57 | (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]) | |
| 58 | (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) | |
| 59 | #@14 | |
| 60 | ||
| 61 | (fn FNAME) | |
| 62 | (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)]) | |
| 63 | (put 'helm-etags--file-from-tag 'byte-optimizer 'byte-compile-inline-expand) | |
| 64 | #@89 Helm default action to jump to an etags entry in other window. | |
| 65 | ||
| 66 | (fn SWITCHER CANDIDATE) | |
| 67 | (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)]) | |
| 68 | #@54 Last modification time of etags tag FILE. | |
| 69 | ||
| 70 | (fn FILE) | |
| 71 | (defalias 'helm-etags-mtime #[257 "\300\301!8A@\207" [5 file-attributes] 4 (#$ . 9564)]) | |
| 72 | #@93 Check if tag FILE have been modified in this session. | |
| 73 | If FILE is nil return nil. | |
| 74 | ||
| 75 | (fn FILE) | |
| 76 | (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)]) | |
| 77 | #@447 Preconfigured helm for etags. | |
| 78 | If called with a prefix argument REINIT | |
| 79 | or if any of the tag files have been modified, reinitialize cache. | |
| 80 | ||
| 81 | This function aggregates three sources of tag files: | |
| 82 | ||
| 83 | 1) An automatically located file in the parent directories, | |
| 84 | by `helm-etags-get-tag-file'. | |
| 85 | 2) `tags-file-name', which is commonly set by `find-tag' command. | |
| 86 | 3) `tags-table-list' which is commonly set by `visit-tags-table' command. | |
| 87 | ||
| 88 | (fn REINIT) | |
| 89 | (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"]) | |
| 90 | (provide 'helm-tags) | |
