Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/symref/list.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\207" [require semantic/symref semantic/complete semantic/senator pulse] 2)
#@305 Find references to the current tag.
This command uses the currently configured references tool within the
current project to find references to the current tag. The
references are organized by file and the name of the function
they are used in.
Display the references in `semantic-symref-results-mode'.
(defalias 'semantic-symref #[nil "\304 \210\305 \211\204 \306\307!\210\310\311\312\211@)\"!\204 \306\313!\210\314\315!\210\211@)\316\n!\317 \n\"+\207" [ct tag name res semantic-fetch-tags semantic-current-tag error "Place cursor inside tag to be searched for" y-or-n-p format "Find references for %s? " "Quit" message "Gathering References..." semantic-symref-find-references-by-name semantic-symref-produce-list-on-results] 5 (#$ . 545) nil])
#@302 Find references to the symbol SYM.
This command uses the currently configured references tool within the
current project to find references to the input SYM. The
references are organized by file and the name of the function
they are used in.
Display the references in `semantic-symref-results-mode'.
(defalias 'semantic-symref-symbol #[(sym) "\302 \210\303\304!\210\305!\306 \")\207" [sym res semantic-fetch-tags message "Gathering References..." semantic-symref-find-references-by-name semantic-symref-produce-list-on-results] 3 (#$ . 1309) (list (semantic-tag-name (semantic-complete-read-tag-project "Symrefs for: ")))])
#@315 Find references to the a symbol regexp SYM.
This command uses the currently configured references tool within the
current project to find references to the input SYM. The
references are the organized by file and the name of the function
they are used in.
Display the references in `semantic-symref-results-mode'.
(defalias 'semantic-symref-regexp #[(sym) "\302 \210\303\304!\210\305!\306 \")\207" [sym res semantic-fetch-tags message "Gathering References..." semantic-symref-find-text semantic-symref-produce-list-on-results] 3 (#$ . 1944) (list (let ((tag (semantic-current-tag))) (read-string " Symrefs for: " nil nil (if tag (progn (regexp-quote (semantic-tag-name tag)))))))])
(custom-declare-group 'semantic-symref-results-mode nil "Symref Results group." :group 'semantic)
#@48 Keymap used in `semantic-symref-results-mode'.
(defvar semantic-symref-results-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\313#\210\303\315\313#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210)\207" [km make-sparse-keymap suppress-keymap define-key " " forward-button "\303-i" backward-button " " push-button "-" semantic-symref-list-toggle-showing "=" "+" "n" semantic-symref-list-next-line "p" semantic-symref-list-prev-line "q" quit-window "" semantic-symref-list-expand-all "" semantic-symref-list-contract-all "R" semantic-symref-list-rename-open-hits "(" semantic-symref-list-create-macro-on-open-hit "E" semantic-symref-list-call-macro-on-open-hits] 4) (#$ . 2734))
#@49 Menu entries for the Semantic Symref list mode.
(defvar semantic-symref-list-menu-entries (list "Symref" ["Toggle Line Open" semantic-symref-list-toggle-showing :active t :help "Toggle the current line open or closed."] ["Expand All Entries" semantic-symref-list-expand-all :active t :help "Expand every expandable entry."] ["Contract All Entries" semantic-symref-list-contract-all :active t :help "Close every expandable entry."] ["Rename Symbol in Open hits" semantic-symref-list-rename-open-hits :active t :help "Rename the searched for symbol in all hits that are currently open."]) (#$ . 3594))
#@56 Menu keymap build from `semantic-symref-results-mode'.
(defvar semantic-symref-list-menu nil (#$ . 4200))
#@18 Symref Mode Menu
(defvar semantic-symref-list-menu nil (#$ . 4312))
(byte-code "\302\303\304 $\210\305\306\307\310\311\312%\210\305\313\307\314\311\315%\207" [semantic-symref-results-mode-map semantic-symref-list-menu-entries easy-menu-do-define semantic-symref-list-menu "Symref Mode Menu" custom-declare-variable semantic-symref-auto-expand-results nil "Non-nil to expand symref results on buffer creation." :type boolean semantic-symref-results-mode-hook "Hook run when `semantic-symref-results-mode' starts." hook] 6)
#@47 The current results in a results mode buffer.
(defvar semantic-symref-current-results nil (#$ . 4841))
#@55 Produce a symref list mode buffer on the results RES.
(defalias 'semantic-symref-produce-list-on-results #[(res str) "\204 \304\305!\210\306\307\"\210\310\311!\210\312\313\314 \"!\315\n!\210\nq\210\316 \210\317\303!\210\320!\210eb)\207" [res str buff semantic-symref-current-results error "No references found" semantic-symref-result-get-tags t message "Gathering References...done" get-buffer-create format "*Symref %s" switch-to-buffer-other-window semantic-symref-results-mode make-local-variable semantic-symref-results-dump] 4 (#$ . 4950)])
(defvar semantic-symref-results-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [semantic-symref-results-mode-hook variable-documentation put "Hook run after entering Symref mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp semantic-symref-results-mode-map definition-name semantic-symref-results-mode] 4)
(defvar semantic-symref-results-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [semantic-symref-results-mode-abbrev-table semantic-symref-results-mode-map variable-documentation put purecopy "Keymap for `semantic-symref-results-mode'." boundp semantic-symref-results-mode-syntax-table definition-name semantic-symref-results-mode (lambda (#1=#:def-tmp-var) (defvar semantic-symref-results-mode-syntax-table #1#)) make-syntax-table "Syntax table for `semantic-symref-results-mode'." (lambda (#1#) (defvar semantic-symref-results-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `semantic-symref-results-mode'." derived-mode-parent] 5)
#@217 Major-mode for displaying Semantic Symbol Reference results.
This mode runs the hook `semantic-symref-results-mode-hook', as the final or penultimate step
during initialization.
\{semantic-symref-results-mode-map}
(defalias 'semantic-symref-results-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\315 \210\306\316!\210\317\320\321!\210)\322\323!\207" [delay-mode-hooks major-mode mode-name semantic-symref-results-mode-map semantic-symref-results-mode-syntax-table semantic-symref-results-mode-abbrev-table make-local-variable t kill-all-local-variables semantic-symref-results-mode "Symref" use-local-map set-syntax-table buffer-disable-undo font-lock-global-modes nil font-lock-mode -1 run-mode-hooks semantic-symref-results-mode-hook local-abbrev-table] 2 (#$ . 6876) nil])
#@115 Function to use when creating items in Imenu.
Some useful functions are found in `semantic-format-tag-functions'.
(custom-declare-variable 'semantic-symref-results-summary-function ''semantic-format-tag-prototype '(#$ . 7690) :type semantic-format-tag-custom-list)
#@43 Dump the RESULTS into the current buffer.
(defalias 'semantic-symref-results-dump #[(results) "\306\307 \210\310\311\n\312\"\310\211 \203_ \f@ \313 !\232\204/ \313 !\314 \315\316\317\320\321 &\210\322c\210\323c\210\314\324\315\325\326\310\317\327\321 \330\331& \210\332c\210\314
\310\306#\315\316\326\310\317\333\321 & \210\322c\210\fA\211\204 + \203h \334 \210)\335\310!\207" [inhibit-read-only lastfile results T --dolist-tail-- semantic-symref-results-summary-function t erase-buffer nil eieio-oref hit-tags semantic-tag-file-name insert-button mouse-face custom-button-pressed-face action semantic-symref-rb-goto-file tag "\n" " " "[+]" highlight face semantic-symref-rb-toggle-expand-tag state closed " " semantic-symref-rb-goto-tag semantic-symref-list-expand-all set-buffer-modified-p semantic-symref-auto-expand-results] 13 (#$ . 7961)])
#@53 Toggle showing the contents below the current line.
(defalias 'semantic-symref-list-toggle-showing #[nil "\300 \210\301\302\303 \304#\205 \305u\210\306 \207" [beginning-of-line re-search-forward "\\[[-+]\\]" point-at-eol t -1 push-button] 4 (#$ . 8824) nil])
#@95 Go to the file specified in the symref results buffer.
BUTTON is the button that was clicked.
(defalias 'semantic-symref-rb-toggle-expand-tag #[(&optional button) "\306\301\"\307 ! \310\311 \312 8) \"* \306\305\" \313 \"
\314\267\202\327 r\nq\210\f\313 #\211 $\203Y $@#eb\210#Sy\210\315 \210\316 \210`\317 {\"B\"$A\211$\2044 *\"\237\")\320!b\210\321u\210\322 %\323\321!\210\324c\210\325\305\326#\210\212\313\210\"\205\244 \327c\210\330c\210\331\"@\332\333\334\313\335\336\301 \337\f@& \210\"A\"\fA\202| *\202\330 \322 %\325\305\340#\210\320!b\210\321u\210\323\321!\210\341c\210\212\313\210\321u\210`\212\321u\210\fGy\210`)|*\202\330 \313-\207" [button tag buff property hits state button-get semantic-tag-buffer :hit plist-get 3 nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (closed 38 open 168)) beginning-of-line back-to-indentation point-at-eol button-start 1 t delete-char "-" button-put open "\n" " " insert-button mouse-face highlight face action semantic-symref-rb-goto-match line closed "+" text H --dolist-tail-- inhibit-read-only] 13 (#$ . 9090) nil])
#@95 Go to the file specified in the symref results buffer.
BUTTON is the button that was clicked.
(defalias 'semantic-symref-rb-goto-file #[(&optional button) "\305\301\"\306 !\307 \310\n!\210\311`!\210\f\312=\205 \313 !+\207" [button tag buff win last-command-event button-get semantic-tag-buffer selected-window switch-to-buffer-other-window pulse-momentary-highlight-one-line 32 select-window] 3 (#$ . 10231)])
#@95 Go to the file specified in the symref results buffer.
BUTTON is the button that was clicked.
(defalias 'semantic-symref-rb-goto-tag #[(&optional button) "\305\301\"\306 !\307 \310\n!\210\311 !\210\312`!\210\f\313=\205! \314 !+\207" [button tag buff win last-command-event button-get semantic-tag-buffer selected-window switch-to-buffer-other-window semantic-go-to-tag pulse-momentary-highlight-one-line 32 select-window] 3 (#$ . 10652) nil])
#@95 Go to the file specified in the symref results buffer.
BUTTON is the button that was clicked.
(defalias 'semantic-symref-rb-goto-match #[(&optional button) "\306\301\"\306\302\"\307 !\310 \311 !\210eb\210\nSy\210\312`!\210
\313=\205) \314\f!,\207" [button tag line buff win last-command-event button-get semantic-tag-buffer selected-window switch-to-buffer-other-window pulse-momentary-highlight-one-line 32 select-window] 3 (#$ . 11105) nil])
#@46 Next line in `semantic-symref-results-mode'.
(defalias 'semantic-symref-list-next-line #[nil "\300y\210\301 \207" [1 back-to-indentation] 1 (#$ . 11561) nil])
#@46 Next line in `semantic-symref-results-mode'.
(defalias 'semantic-symref-list-prev-line #[nil "\300y\210\301 \207" [-1 back-to-indentation] 1 (#$ . 11726) nil])
#@45 Expand all the nodes in the current buffer.
(defalias 'semantic-symref-list-expand-all #[nil "\301 \211`\302\223\210eb\210\303\304\302\305#\203 \306 \210\202 b)\207" [start make-marker nil re-search-forward "\\[[+]\\]" t semantic-symref-list-toggle-showing] 5 (#$ . 11892) nil])
#@45 Expand all the nodes in the current buffer.
(defalias 'semantic-symref-list-contract-all #[nil "\301 \211`\302\223\210eb\210\303\304\302\305#\203 \306 \210\202 b)\207" [start make-marker nil re-search-forward "\\[[-]\\]" t semantic-symref-list-toggle-showing] 5 (#$ . 12181) nil])
#@147 Return the line number if the cursor is on a buffer line with a hit.
Hits are the line of code from the buffer, not the tag summar or file lines.
(defalias 'semantic-symref-list-on-hit-p #[nil "\212\301\210\302`S!@\211\205 \303\304\"*\207" [ol nil overlays-at overlay-get line] 4 (#$ . 12473)])
#@332 Record a keyboard macro at the location of the hit in the current list.
Under point should be one hit for the active keyword. Move
cursor to the beginning of that symbol, then record a macro as if
`kmacro-start-macro' was pressed. Use `kmacro-end-macro',
{kmacro-end-macro} to end the macro, and return to the symbol found list.
(defalias 'semantic-symref-list-create-macro-on-open-hit #[nil "\305\211\306\"\307\"\212\310\210\311`S!@)\211\205 \312\n\303\"\n\205$ \312\n\304\"\211 \204- \313\314!\210\315\316 !!\210eb\210\fSy\210\317\320 !\321 \322#\204I \313\323!\210\324\224b\210\325\310!\210\326\327!,\207" [semantic-symref-current-results oldsym ol tag line eieio-oref created-by searchfor nil overlays-at overlay-get error "Cannot create macro on a non-hit line" switch-to-buffer-other-window semantic-tag-buffer re-search-forward regexp-quote point-at-eol t "Cannot find hit. Cannot record macro" 0 kmacro-start-macro message "Complete with C-x ). Use E in the symref buffer to call this macro."] 5 (#$ . 12779) nil])
#@223 Call the most recently created keyboard macro on each hit.
Cursor is placed at the beginning of the symbol found, even if
there is more than one symbol on the current line. The
previously recorded macro is then executed.
(defalias 'semantic-symref-list-call-macro-on-open-hits #[nil "\302 \303\216\304\305!\306 \210\307\310 \"+\207" [#1=#:wconfig count current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] semantic-symref-list-map-open-hits #[nil "\300p!\210\301\302!\207" [switch-to-buffer kmacro-call-macro nil] 2] semantic-symref-list-update-open-hits message "Executed Macro %d times."] 3 (#$ . 13819) nil])
#@144 Rename the discovered symbol references to NEWNAME.
Only renames the locations that are open in the symref list.
Closed items will be skipped.
(defalias 'semantic-symref-list-rename-open-hits #[(newname) "\301\302!\303 \210\304\305\")\207" [count semantic-symref-list-map-open-hits #[nil "\301\302\303#\207" [newname replace-match nil t] 4] semantic-symref-list-update-open-hits message "Renamed %d occurrences."] 3 (#$ . 14470) (list (read-string "Rename to: " (eieio-oref (eieio-oref semantic-symref-current-results 'created-by) 'searchfor)))])
#@198 For every open hit in the symref buffer, perform FUNCTION.
The `match-data' will be set to a successful hit of the searched for symbol.
Return the number of occurrences FUNCTION was operated upon.
(defalias 'semantic-symref-list-map-open-hits #[(function) "\306\211\307\"\310\"\311\212eb\210m\204d \312`S!@\211\205 \313 \304\" \205) \313 \305\"\211 \203Z r\314\f!q\210eb\210
Sy\210\315 \210\316\317\n!\320 \321#\203Y T\212\311\224b\210 \210)\202> )+\322y\210\323\210\202 ) *\207" [semantic-symref-current-results count oldsym ol tag line eieio-oref created-by searchfor 0 overlays-at overlay-get semantic-tag-buffer beginning-of-line re-search-forward regexp-quote point-at-eol t 1 nil function] 5 (#$ . 15027)])
#@59 Update the text for all the open hits in the symref list.
(defalias 'semantic-symref-list-update-open-hits #[nil "\212eb\210\302\303\304\305#\205, \304\210\306`S!@\211\205 \307\301\"\211\203( \310 \210\310 \210*\202 )\207" [ol tag re-search-forward "\\[-\\]" nil t overlays-at overlay-get semantic-symref-list-toggle-showing] 5 (#$ . 15758)])
(provide 'semantic/symref/list)
Mini Shell