WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic/symref
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/symref/list.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:19 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/symref/list.el
;;; in Emacs version 24.3.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!\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 "\303 \210\304 \305\211\204\306\307!\210\310\311\312	\211@)\"!\204!\306\313!\210\314\315!\210\316	\211@)!\317	\211@)\"*\207" [res ct tag semantic-fetch-tags semantic-current-tag nil 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 (#$ . 706) 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\305!\210\306	!\307	\")\207" [res sym semantic-fetch-tags nil message "Gathering References..." semantic-symref-find-references-by-name semantic-symref-produce-list-on-results] 3 (#$ . 1477) (list (semantic-tag-name (semantic-complete-read-tag-project "Symrefs for: ")))])
#@314 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\305!\210\306	!\307	\")\207" [res sym semantic-fetch-tags nil message "Gathering References..." semantic-symref-find-text semantic-symref-produce-list-on-results] 3 (#$ . 2121) (list (semantic-tag-name (semantic-complete-read-tag-buffer-deep "Symrefs for: ")))])
#@55 Produce a symref list mode buffer on the results RES.
(defalias 'semantic-symref-produce-list-on-results #[(res str) "\204\303\304!\210\305\306\"\210\307\310!\210\311\312\313	\"!\314\n!\210\nq\210\315!)\207" [res str buff 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] 4 (#$ . 2766)])
(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" semantic-symref-hide-buffer "" 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) (#$ . 3312))
#@49 Menu entries for the Semantic Symref list mode.
(defvar semantic-symref-list-menu-entries (byte-code "\300\301\302!\301\303!\301\304!\301\305!\257\207" ["Symref" semantic-menu-item ["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."]] 6) (#$ . 4188))
#@56 Menu keymap build from `semantic-symref-results-mode'.
(defvar semantic-symref-list-menu nil (#$ . 4874))
#@18 Symref Mode Menu
(defvar semantic-symref-list-menu nil (#$ . 4986))
(byte-code "\302\303\304	$\210\305\306\307\310\311\312\313\314&\210\305\315\307\316\311\312\313\317&\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." :group semantic-symref :type boolean semantic-symref-results-mode-hook "Hook run when `semantic-symref-results-mode' starts." hook] 8)
#@47 The current results in a results mode buffer.
(defvar semantic-symref-current-results nil (#$ . 5556))
#@119 Major-mode for displaying Semantic Symbol Reference RESULTS.
RESULTS is an object of class `semantic-symref-results'.
(defalias 'semantic-symref-results-mode #[(results) "\306 \210\307\310\311\n!\210\312\304!\210\313!\210eb\210\314 \210\312\305!\210\315\316\317!\210\320\321!\207" [major-mode mode-name semantic-symref-results-mode-map results semantic-symref-current-results font-lock-global-modes kill-all-local-variables semantic-symref-results-mode "Symref" use-local-map make-local-variable semantic-symref-results-dump buffer-disable-undo nil font-lock-mode -1 run-mode-hooks semantic-symref-results-mode-hook] 2 (#$ . 5666) nil])
#@43 Hide buffer with semantic-symref results.
(defalias 'semantic-symref-hide-buffer #[nil "\300 \207" [bury-buffer] 1 (#$ . 6315) nil])
#@116 *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 '(#$ . -6455) :group 'semantic-symref :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 (#$ . 6752)])
#@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 (#$ . 7616) 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=\203\250r\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\332
\326=\205\332\322$\325\305\314#\210\320!b\210\321u\210\323\321!\210\340c\210\212\313\210\321u\210`\212\321u\210\fGy\210`)|*-\207" [button tag buff property hits state button-get semantic-tag-buffer :hit plist-get 3 nil closed 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 "+" text H --dolist-tail-- inhibit-read-only] 13 (#$ . 7882) 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 (#$ . 8909)])
#@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 (#$ . 9329) 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 (#$ . 9781) 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 (#$ . 10236) 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 (#$ . 10401) 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 (#$ . 10567) 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 (#$ . 10856) 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 semantic-overlays-at semantic-overlay-get line] 4 (#$ . 11148)])
#@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 semantic-overlays-at semantic-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 (#$ . 11472) 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 ((set-window-configuration #1#)) 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 (#$ . 12532) 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 (#$ . 13163) (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\203Zr\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 semantic-overlays-at semantic-overlay-get semantic-tag-buffer beginning-of-line re-search-forward regexp-quote point-at-eol t 1 nil function] 5 (#$ . 13722)])
#@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 semantic-overlays-at semantic-overlay-get semantic-symref-list-toggle-showing] 5 (#$ . 14473)])
(provide 'semantic/symref/list)
F1l3 Manager
