Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/senator.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!\210\300\305!\210\300\306!\210\307\310\311\312\313\302%\210\314\315\311\316\313\310\317\320&\210\321\315!\210\314\322\311\323\313\310\317\324&\210\321\322!\210\314\325\311\326\313\310\317\327&\210\321\325!\210\330\331\332\333\313\334%\207" [require ring semantic semantic/ctxt semantic/decorate semantic/format semantic/analyze custom-declare-group senator nil "Semantic Navigator." :group custom-declare-variable senator-step-at-tag-classes "List of tag classes recognized by Senator's navigation commands.\nA tag class is a symbol, such as `variable', `function', or `type'.\n\nAs a special exception, if the value is nil, Senator's navigation\ncommands recognize all tag classes." :type (repeat (symbol)) make-variable-buffer-local senator-step-at-start-end-tag-classes "List of tag classes at which Senator's navigation commands should stop.\nA tag class is a symbol, such as `variable', `function', or `type'.\nThe navigation commands stop at the start and end of each tag\nclass in this list, provided the tag class is recognized (see\n`senator-step-at-tag-classes').\n\nAs a special exception, if the value is nil, the navigation\ncommands stop at the beginning of every tag.\n\nIf t, the navigation commands stop at the start and end of any\ntag, where possible." (choice :tag "Identifiers" (repeat :menu-tag "Symbols" (symbol)) (const :tag "All" t)) senator-highlight-found "If non-nil, Senator commands momentarily highlight found tags." boolean custom-declare-face senator-momentary-highlight-face ((((class color) (background dark)) (:background "gray30")) (((class color) (background light)) (:background "gray70"))) "Face used to momentarily highlight tags." semantic-faces] 8)
#@78 Momentarily highlight TAG.
Does nothing if `senator-highlight-found' is nil.
(defalias 'senator-momentary-highlight-tag #[(tag) "\205 \302 \303\"\207" [senator-highlight-found tag semantic-momentary-highlight-tag senator-momentary-highlight-face] 3 (#$ . 2163)])
#@54 Return non-nil if must step at start and end of TAG.
(defalias 'senator-step-at-start-end-p #[(tag) "\205 \302=\206 \211A@) >\207" [tag senator-step-at-start-end-tag-classes t] 3 (#$ . 2434)])
#@34 Return non-nil if must skip TAG.
(defalias 'senator-skip-p #[(tag) "\205 \205 \211A@) >?\207" [tag senator-step-at-tag-classes] 3 (#$ . 2639)])
#@56 Return non-nil if POS is between start and end of TAG.
(defalias 'senator-middle-of-tag-p #[(pos tag) " \211\303 8)\304\n!\203 \305\n!\202 \n\306H*V\2059 \211\303 8)\304\n!\2034 \307\n!\2027 \n\310H*W\207" [pos tag o 4 overlayp overlay-start 0 overlay-end 1] 4 (#$ . 2795)])
#@86 Return TAG's outermost parent if must step at start/end of it.
Return nil otherwise.
(defalias 'senator-step-at-parent #[(tag) "\205K \304\211\305\211\3068)\307 !\203 \310 !\202! \311H*! \203I \n\204I @ A\n=\204D \312\n!\204D \313\n!\204$ \304\202$ \n*\207" [tag parents parent o nil semantic-find-tag-by-overlay 4 overlayp overlay-start 0 senator-skip-p senator-step-at-start-end-p] 4 (#$ . 3087)])
#@63 Return the tag before POS or one of its parent where to step.
(defalias 'senator-previous-tag-or-parent #[(pos) "\304\211\n\203\250 \neV\203\250 \204\250 \305\n!\211\203 \306\n! \203 \204 \307 @\310\"\211\203\237 \3111] :\205Y @;\205Y A@9\205Y A@\205Y \3128<\205Y \3138<0\202_ \210\304)\203\237 \211\3148)\315 !\203x \316 !\202{ \317H*\nU\204 \211\3148)\315 !\203\226 \320 !\202\231 \321H*\nU\204 \304 A\211\202 \322!\206\257 *\207" [tag ol pos o nil previous-overlay-change overlays-at overlay-get semantic (error) 2 3 4 overlayp overlay-start 0 overlay-end 1 senator-step-at-parent] 4 (#$ . 3509)])
#@263 Search for TAG name in current buffer.
Limit the search to TAG bounds.
If found, set point to the end of the name, and return point. The
beginning of the name is at (match-beginning 0).
Return nil if not found, that is if TAG name doesn't come from the
source.
(defalias 'senator-search-tag-name #[(tag) "\211@)\303\304 \"\203 \305\306 \"\202 \211\3078)\310\n!\203+ \311\n!\202. \n\312H*b\210\313\314\315 !\316Q\211\3078)\310\n!\203M \317\n!\202P \n\306H*\320#\205] \312\224b\210\321 !)\207" [tag name o string-match "\\`\\([^[]+\\)[[]" match-string 1 4 overlayp overlay-start 0 re-search-forward "\\(\\<\\|\\s-+\\|\\s.\\)" regexp-quote "\\(\\>\\|\\s-+\\|\\s.\\)" overlay-end t search-forward] 5 (#$ . 4154)])
#@78 List of ignored tag classes.
Tags of those classes are excluded from search.
(custom-declare-variable 'senator-search-ignore-tag-classes ''(code block) '(#$ . 4888) :group 'senator :type '(repeat (symbol :tag "class")))
#@109 Default function that filters searched tags.
Ignore tags of classes in `senator-search-ignore-tag-classes'.
(defalias 'senator-search-default-tag-filter #[(tag) "\211A@) >?\207" [tag senator-search-ignore-tag-classes] 3 (#$ . 5115)])
#@154 List of functions to be called to filter searched tags.
Each function is passed a tag. If one of them returns nil, the tag is
excluded from the search.
(defvar senator-search-tag-filter-functions '(senator-search-default-tag-filter) (#$ . 5358))
#@342 Use the SEARCHER function to search from point for TEXT in a tag name.
SEARCHER is typically the function `search-forward', `search-backward',
`word-search-forward', `word-search-backward', `re-search-forward', or
`re-search-backward'. See one of the above function to see how the
TEXT, BOUND, NOERROR, and COUNT arguments are interpreted.
(defalias 'senator-search #[(searcher text &optional bound noerror count) "` \206 \306\211\307V\203 \306\202 \307W\203 [\310\202 \307\311\211 \311\211 \311\211 \311 \n\307U\204\231 \204\231 \312\n$\211\203\231 \307\224\307\225
U\203_ \312\211\202: \313 \211\203\223 \314\315\"\203\223 \316!\211\203\223 \307\224
Y\205\222 X\205\222 S\211\307U\fb\210\2029 \204\245 \202\266 \f
U\203\264
\202\266
\fb\210\n$.\n\207" [origin count step found next sstart 1 0 -1 nil t semantic-current-tag run-hook-with-args-until-failure senator-search-tag-filter-functions senator-search-tag-name send tag tstart tend searcher text bound noerror] 6 (#$ . 5612)])
#@79 Navigate to the next Semantic tag.
Return the tag or nil if at end of buffer.
(defalias 'senator-next-tag #[nil "\204 \305\306!\210`\307 \310\n\203D \311\n!\204D \312\n!\203D \n\211\313\n8) \314\f!\2035 \315\f!\2028 \f\316H*U\204z \317 \n\"\204z \320\n!\211\204z \321 !\211\203z \311\n!\203z \321\n\211\313\n8) \314\f!\203p \315\f!\202s \f\316H*!\211\204T \n\204\210 db\210\322\323!\210\202\312\n!\203\323 \n\211\313\n8) \314\f!\203\244 \315\f!\202\247 \f\316H*U\204\263 \317 \n\"\203\323 \324\n\211\313\n8) \314\f!\203\312 \325\f!\202\315 \f\326H*b\210\202\360 \327\n\211\313\n8) \314\f!\203\352 \315\f!\202\355 \f\316H*b\210\330\n!\210\322\331\n\211A@)\n\211@) $\210\n+\207" [semantic-new-buffer-fcn-was-run where tag pos o error "Buffer was not parsed by Semantic." semantic-current-tag nil senator-skip-p senator-step-at-start-end-p 4 overlayp overlay-start 0 senator-middle-of-tag-p senator-step-at-parent semantic-find-tag-by-overlay-next message "End of buffer" "end" overlay-end 1 "start" senator-momentary-highlight-tag "%S: %s (%s)"] 6 (#$ . 6676) nil])
#@89 Navigate to the previous Semantic tag.
Return the tag or nil if at beginning of buffer.
(defalias 'senator-previous-tag #[nil "\204 \305\306!\210`\307 \310\n\203D \311\n!\204D \312\n!\203D \n\211\313\n8) \314\f!\2035 \315\f!\2028 \f\316H*U\204z \317 \n\"\204z \320\n!\211\204z \321 !\211\203z \311\n!\203z \321\n\211\313\n8) \314\f!\203p \322\f!\202s \f\323H*!\211\204T \n\204\210 eb\210\324\325!\210\202\312\n!\203\263 \n\211\313\n8) \314\f!\203\244 \315\f!\202\247 \f\316H*U\204\263 \317 \n\"\203\323 \326\n\211\313\n8) \314\f!\203\312 \322\f!\202\315 \f\323H*b\210\202\360 \327\n\211\313\n8) \314\f!\203\352 \315\f!\202\355 \f\316H*b\210\330\n!\210\324\331\n\211A@)\n\211@) $\210\n+\207" [semantic-new-buffer-fcn-was-run where tag pos o error "Buffer was not parsed by Semantic." semantic-current-tag nil senator-skip-p senator-step-at-start-end-p 4 overlayp overlay-end 1 senator-middle-of-tag-p senator-step-at-parent senator-previous-tag-or-parent overlay-start 0 message "Beginning of buffer" "start" "end" senator-momentary-highlight-tag "%S: %s (%s)"] 6 (#$ . 7772) nil])
#@210 Search in tag names forward from point for STRING.
Set point to the end of the occurrence found, and return point.
See also the function `search-forward' for details on the BOUND,
NOERROR and COUNT arguments.
(defalias 'senator-search-forward #[(string &optional bound noerror count) "\304\305 \n %\207" [string bound noerror count senator-search search-forward] 6 (#$ . 8886) "sSemantic search: "])
#@232 Search in tag names forward from point for regular expression REGEXP.
Set point to the end of the occurrence found, and return point.
See also the function `re-search-forward' for details on the BOUND,
NOERROR and COUNT arguments.
(defalias 'senator-re-search-forward #[(regexp &optional bound noerror count) "\304\305 \n %\207" [regexp bound noerror count senator-search re-search-forward] 6 (#$ . 9294) "sSemantic regexp search: "])
#@213 Search in tag names forward from point for WORD.
Set point to the end of the occurrence found, and return point.
See also the function `word-search-forward' for details on the BOUND,
NOERROR and COUNT arguments.
(defalias 'senator-word-search-forward #[(word &optional bound noerror count) "\304\305 \n %\207" [word bound noerror count senator-search word-search-forward] 6 (#$ . 9737) "sSemantic word search: "])
#@218 Search in tag names backward from point for STRING.
Set point to the beginning of the occurrence found, and return point.
See also the function `search-backward' for details on the BOUND,
NOERROR and COUNT arguments.
(defalias 'senator-search-backward #[(string &optional bound noerror count) "\304\305 \n %\207" [string bound noerror count senator-search search-backward] 6 (#$ . 10159) "sSemantic backward search: "])
#@240 Search in tag names backward from point for regular expression REGEXP.
Set point to the beginning of the occurrence found, and return point.
See also the function `re-search-backward' for details on the BOUND,
NOERROR and COUNT arguments.
(defalias 'senator-re-search-backward #[(regexp &optional bound noerror count) "\304\305 \n %\207" [regexp bound noerror count senator-search re-search-backward] 6 (#$ . 10587) "sSemantic backward regexp search: "])
#@221 Search in tag names backward from point for WORD.
Set point to the beginning of the occurrence found, and return point.
See also the function `word-search-backward' for details on the BOUND,
NOERROR and COUNT arguments.
(defalias 'senator-word-search-backward #[(word &optional bound noerror count) "\304\305 \n %\207" [word bound noerror count senator-search word-search-backward] 6 (#$ . 11050) "sSemantic backward word search: "])
#@53 Type of last non-incremental search command called.
(defvar senator-last-search-type nil (#$ . 11491))
#@58 Search forward for the previous search string or regexp.
(defalias 'senator-nonincremental-repeat-search-forward #[nil "\303=\203 \203 \304 @!\207\305=\203 \n\203 \306\n@!\207\307\310!\207" [senator-last-search-type search-ring regexp-search-ring string senator-search-forward regexp senator-re-search-forward error "No previous search"] 2 (#$ . 11600) nil])
#@59 Search backward for the previous search string or regexp.
(defalias 'senator-nonincremental-repeat-search-backward #[nil "\303=\203 \203 \304 @!\207\305=\203 \n\203 \306\n@!\207\307\310!\207" [senator-last-search-type search-ring regexp-search-ring string senator-search-backward regexp senator-re-search-backward error "No previous search"] 2 (#$ . 11972) nil])
#@37 Search for STRING nonincrementally.
(defalias 'senator-nonincremental-search-forward #[(string) "\301 \303\232\203
\304\n@!\207\305 \306\"\210\304 !\207" [senator-last-search-type string search-ring "" senator-search-forward isearch-update-ring nil] 3 (#$ . 12348) "sSemantic search for string: "])
#@46 Search backward for STRING nonincrementally.
(defalias 'senator-nonincremental-search-backward #[(string) "\301 \303\232\203
\304\n@!\207\305 \306\"\210\304 !\207" [senator-last-search-type string search-ring "" senator-search-backward isearch-update-ring nil] 3 (#$ . 12655) "sSemantic search for string: "])
#@60 Search for the regular expression STRING nonincrementally.
(defalias 'senator-nonincremental-re-search-forward #[(string) "\303 \304\232\203
\305\n@!\207\306 \307\"\210\305 !\207" [senator-last-search-type string regexp-search-ring regexp "" senator-re-search-forward isearch-update-ring t] 3 (#$ . 12973) "sSemantic search for regexp: "])
#@69 Search backward for the regular expression STRING nonincrementally.
(defalias 'senator-nonincremental-re-search-backward #[(string) "\303 \304\232\203
\305\n@!\207\306 \307\"\210\305 !\207" [senator-last-search-type string regexp-search-ring regexp "" senator-re-search-backward isearch-update-ring t] 3 (#$ . 13321) "sSemantic search for regexp: "])
(defvar senator--search-filter nil)
#@186 In current buffer, limit search scope to tag CLASSES.
CLASSES is a list of tag class symbols or nil. If nil only global
filters in `senator-search-tag-filter-functions' remain active.
(defalias 'senator-search-set-tag-class-filter #[(&optional classes) "\204 \304\202% 9\203 C\202% ;\203 \305\306\307!\"\202% \310\311C\"\312\313 \314#\210\315\301!\210\203\\ \316\317!\320\321\322#\323\301!\210\324 C\325\326 D\327DEE\330\313 \304\314$\210\331\332\n\"*\207\331\333!\207" [classes senator--search-filter names tag nil mapcar read split-string signal wrong-type-argument remove-hook senator-search-tag-filter-functions t kill-local-variable make-symbol "tag" mapconcat symbol-name "', `" make-local-variable lambda memq semantic-tag-class quote add-hook message "Limit search to `%s' tags" "Default search filter restored"] 6 (#$ . 13717) "sClasses: "])
#@23 Fold the current TAG.
(defalias 'senator-fold-tag #[(&optional tag) "\301\206 \302 \303\"\207" [tag semantic-set-tag-folded semantic-current-tag t] 3 (#$ . 14591) nil])
#@23 Fold the current TAG.
(defalias 'senator-unfold-tag #[(&optional tag) "\301\206 \302 \303\"\207" [tag semantic-set-tag-folded semantic-current-tag nil] 3 (#$ . 14768) nil])
#@23 Fold the current TAG.
(defalias 'senator-fold-tag-toggle #[(&optional tag) "\206 \301 \302!\203 \303!\202 \304!)\207" [tag semantic-current-tag semantic-tag-folded-p senator-unfold-tag senator-fold-tag] 2 (#$ . 14949) nil])
#@304 Return a tag that is referred to by TAG.
A "reference" could be any interesting feature of TAG.
In C++, a function may have a `parent' which is non-local.
If that parent which is only a reference in the function tag
is found, we can jump to it.
Some tags such as includes have other reference features.
(defalias 'semantic-up-reference #[(tag) "\305\211\306\307\310!\306\204\" \211\262\204\" \262\n\205 \311\n\"\262\203M \211\204M \302N\203< \311\302N\"\211\262\204\" \211\312N\206F \211\313N\262\262\202\" \266\203\211\262\205a \211\203_ N\205a J\266\203\206\326 \211\211\314N\262\205\326 \211\211\314N\262\306\307\310!\306\204\225 \211\262\204\225 \262\n\205\223 \311\n\"\262\203\300 \211\204\300 \302N\203\257 \311\302N\"\211\262\204\225 \211\312N\206\271 \211\313N\262\262\202\225 \266\203\211\262\205\324 \211\203\322 N\205\324 J\266\203\262\211\203\343 \f!\202\346 \315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tag semantic-up-reference nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-up-reference-default] 13 (#$ . 15188)])
(put 'semantic-up-reference 'mode-local-overload t)
#@307 Move up one reference from the current TAG.
A "reference" could be any interesting feature of TAG.
In C++, a function may have a `parent' which is non-local.
If that parent which is only a reference in the function tag
is found, we can jump to it.
Some tags such as includes have other reference features.
(defalias 'senator-go-to-up-reference #[(&optional tag) "\204 \303\304!\210\305 \206 \306 !\211\204 \303\307!\202\220 \310 \210\311\312!\203' \312 \210\n\3131T :\205P @;\205P A@9\205P A@\205P \314 8<\205P \315 8<0\202V \210\316)\203h \317\n!\210\320p!\210\321\n!\202\220 \322\n!\203x \320\n!\210\323`!\202\220 \n;\203\215 \324\n!\203\215 \325\n!\210\323`!\202\220 \303\326!)\207" [semantic-new-buffer-fcn-was-run tag result error "Buffer was not parsed by Semantic." semantic-up-reference semantic-current-tag "No up reference found" push-mark fboundp xref-push-marker-stack (error) 2 3 nil semantic-go-to-tag pop-to-buffer-same-window semantic-momentary-highlight-tag bufferp pulse-momentary-highlight-one-line file-exists-p find-file "Unknown result type from `semantic-up-reference'"] 3 (#$ . 16440) nil])
#@81 Return a tag that is referred to by TAG.
Makes C/C++ language like assumptions.
(defalias 'semantic-up-reference-default #[(tag) "\306!\203 \307\310!\210\311!\211@)\207\211A@)\312=\203J \313!\211\203+ \314\n!\2046 \315\316\211@)\"\202H \317\n!\203B \317\n!\202H \n;\205H \n)\207\320\211\211A@) *=\203z \211\211\321 \322\3238)\f\",\203z \324`! \325
\326\"@)\207\327 \322\3238)\f\"*\203\234 \307\330!\210\331! #\332#\333\"@)\207\334\211\211A@) *=\203\310 \335!\203\310 \307\336!\210\324`!\335! \337@\334
#*\207\211\340 \322\3238)\f\"+\203\345 \324`! \341
\")\207\342\207" [tag options file class attribute scope semantic-tag-faux-p require semantic/sort semantic-tag-external-class include semantic-dependency-tag-file file-exists-p error "Could not location include %s" get-file-buffer function :parent plist-get 2 semantic-calculate-scope eieio-oref parents :prototype-flag semantic/analyze/refs semantic-analyze-tag-references semantic-analyze-refs-impl t type semantic-tag-type-superclasses semantic/analyze semantic-analyze-find-tag :type semantic-analyze-tag-type nil sar] 5 (#$ . 17571)])
#@75 Non-nil if isearch does semantic search.
This is a buffer local variable.
(defvar senator-isearch-semantic-mode nil (#$ . 18716))
(make-variable-buffer-local 'senator-isearch-semantic-mode)
#@136 Move backward to the beginning of a defun.
Use semantic tags to navigate.
ARG is the number of tags to navigate (not yet implemented).
(defalias 'senator-beginning-of-defun #[(&optional arg) "\304 \210\305\306\307 \211\205I `\n\211\310\n8)\311 !\203$ \312 !\202' \313H*U\203G \n\211\310\n8)\311 !\203A \314 !\202D \315H*b\210\316 +\207" [senator-highlight-found senator-step-at-start-end-tag-classes tag o semantic-fetch-tags nil t senator-previous-tag 4 overlayp overlay-end 1 overlay-start 0 beginning-of-line] 4 (#$ . 18913)])
#@128 Move forward to next end of defun.
Use semantic tags to navigate.
ARG is the number of tags to navigate (not yet implemented).
(defalias 'senator-end-of-defun #[(&optional arg) "\304 \210\305\306\307 \211\205S `\n\211\310\n8)\311 !\203$ \312 !\202' \313H*U\203G \n\211\310\n8)\311 !\203A \314 !\202D \315H*b\210\316\305w\210\317\320!\205S \315y+\207" [senator-highlight-found senator-step-at-start-end-tag-classes tag o semantic-fetch-tags nil t senator-next-tag 4 overlayp overlay-start 0 overlay-end 1 " " looking-at "\\s<\\|\n"] 4 (#$ . 19461)])
#@142 Make text outside current defun invisible.
The defun visible is the one that contains point or follows point.
Use semantic tags to navigate.
(defalias 'senator-narrow-to-defun #[nil "\301 \210\212~\210\302 \210`\303 \210`}*\207" [end semantic-fetch-tags senator-end-of-defun senator-beginning-of-defun] 2 (#$ . 20029) nil])
#@149 Put mark at end of this defun, point at beginning.
The defun marked is the one that contains point or follows point.
Use semantic tags to navigate.
(defalias 'senator-mark-defun #[nil "`\303 \210`\304 \210`\211b\210\305 \210 b\210\305`\306\307#\210b\210\310\311`S\307#+\207" [start end origin senator-end-of-defun senator-beginning-of-defun push-mark nil t re-search-backward "^\n"] 5 (#$ . 20362) nil])
#@42 Ring of tags for use with cut and paste.
(defvar senator-tag-ring (make-ring 20) (#$ . 20776))
#@53 Take the current tag, and place it in the tag ring.
(defalias 'senator-copy-tag #[nil "\304 \210\305 \211\203N \306 \"\210\307\211\310\n8)\311 !\203% \312 !\202( \313H*\211\310\n8)\311 !\203> \314 !\202A \315H*\"\210\316\317!\203N \320\321!\210)\207" [ft senator-tag-ring tag o semantic-fetch-tags semantic-obtain-foreign-tag ring-insert kill-ring-save 4 overlayp overlay-start 0 overlay-end 1 called-interactively-p interactive message "Use C-y to yank text. Use `senator-yank-tag' for prototype insert."] 5 (#$ . 20877) nil])
#@177 Take the current tag, place it in the tag ring, and kill it.
Killing the tag removes the text for that tag, and places it into
the kill ring. Retrieve that text with \[yank].
(defalias 'senator-kill-tag #[nil "\303 \304\211\305 8)\306\n!\203 \307\n!\202 \n\310H*\211\305 8)\306\n!\2032 \311\n!\2025 \n\312H*\"\210\313\314!\205A \315\316!)\207" [ct tag o senator-copy-tag kill-region 4 overlayp overlay-start 0 overlay-end 1 called-interactively-p interactive message "Use C-y to yank text. Use `senator-yank-tag' for prototype insert."] 5 (#$ . 21426) nil])
#@109 Yank a tag from the tag ring.
The form the tag takes is different depending on where it is being
yanked to.
(defalias 'senator-yank-tag #[nil "\304!\206m \305\306\"\211\211\211\3071< \n:\2058 \n@;\2058 \nA@9\2058 \nA@\2058 \310\n8<\2058 \311\n8<0\202> \210\312)\205P \n\313\314\n\311\n8) \"*)\204Y \315\316\317\"\210)\320 !\210\321\322!\205l \323\324 \211@)\")\207" [senator-tag-ring ft tag property ring-empty-p ring-ref 0 (error) 2 3 nil :foreign-flag plist-get signal wrong-type-argument (semantic-foreign-tag-p tag) semantic-insert-foreign-tag called-interactively-p interactive message "Use C-y to recover the yank the text of %s."] 4 (#$ . 22004) nil])
#@51 compiler-macro for inlining `senator-register-p'.
(defalias 'senator-register-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block senator-register-p (and (memq (type-of cl-x) cl-struct-senator-register-tags) t)) nil] 7 (#$ . 22679)])
(put 'senator-register-p 'compiler-macro 'senator-register-p--cmacro)
(defalias 'senator-register-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-senator-register-tags type-of t] 2])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put senator-register-p side-effect-free error-free put senator-register cl-deftype-satisfies] 5)
#@61 compiler-macro for inlining `senator-register-foreign-tag'.
(defalias 'senator-register-foreign-tag--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block senator-register-foreign-tag (progn (or (senator-register-p cl-x) (signal 'wrong-type-argument (list 'senator-register cl-x))) (aref cl-x 1))) nil] 7 (#$ . 23323)])
(put 'senator-register-foreign-tag 'compiler-macro 'senator-register-foreign-tag--cmacro)
#@62 Access slot "foreign-tag" of `senator-register' struct CL-X.
(defalias 'senator-register-foreign-tag #[(cl-x) "\302! >\204 \303\304\305D\"\210\306H\207" [cl-x cl-struct-senator-register-tags type-of signal wrong-type-argument senator-register 1] 4 (#$ . 23792)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put senator-register-foreign-tag side-effect-free t defalias copy-senator-register copy-sequence] 4)
#@54 compiler-macro for inlining `senator-make-register'.
(defalias 'senator-make-register--cmacro #[(_cl-whole-arg foreign-tag) "\301\302\303\304\211\211&\207" [foreign-tag cl--defsubst-expand (foreign-tag) (cl-block senator-make-register (record 'senator-register foreign-tag)) nil] 7 (#$ . 24225)])
(put 'senator-make-register 'compiler-macro 'senator-make-register--cmacro)
#@53 Constructor for objects of type `senator-register'.
(defalias 'senator-make-register #[(foreign-tag) "\301\302\"\207" [foreign-tag record senator-register] 3 (#$ . 24606)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \210\313\314\306\315\306\316%\210\313\317\306\320\306\321%\210\313\322\306\323\306\324%\207" [function-put senator-make-register side-effect-free t cl-struct-define senator-register nil cl-structure-object record ((cl-tag-slot) (foreign-tag)) cl-struct-senator-register-tags cl-generic-define-method register-val-jump-to ((data senator-register) _arg) #[(data _arg) "\305! >\204 \306\307\310D\"\210\311H\312\313\n!!\210\n\211\314 8) \315\f!\203. \316\f!\2021 \f\317H*b)\207" [data cl-struct-senator-register-tags ft tag o type-of signal wrong-type-argument senator-register 1 switch-to-buffer semantic-tag-buffer 4 overlayp overlay-start 0] 5] register-val-describe ((data senator-register) _verbose) #[(data _verbose) "\302\303! >\204 \304\305\306D\"\210\307H!\207" [data cl-struct-senator-register-tags cl-prin1-to-string type-of signal wrong-type-argument senator-register 1] 5] register-val-insert ((data senator-register)) #[(data) "\302\303! >\204 \304\305\306D\"\210\307H!\207" [data cl-struct-senator-register-tags semantic-insert-foreign-tag type-of signal wrong-type-argument senator-register 1] 5]] 11)
#@200 Copy the current tag into REGISTER.
Optional argument KILL-FLAG will delete the text of the tag to the
kill ring.
Interactively, reads the register using `register-read-with-preview',
if available.
(defalias 'senator-copy-tag-to-register #[(register &optional kill-flag) "\305 \210\306 \211\205J \307 \310\311\"\"\210\n\205J \312\211\313 8) \314\f!\203, \315\f!\202/ \f\316H*\211\313 8) \314\f!\203E \317\f!\202H \f\320H*\")\207" [ft register kill-flag tag o semantic-fetch-tags semantic-obtain-foreign-tag set-register record senator-register kill-region 4 overlayp overlay-start 0 overlay-end 1] 6 (#$ . 25987) (list (if (fboundp 'register-read-with-preview) (register-read-with-preview "Tag to register: ") (read-char "Tag to register: ")) current-prefix-arg)])
#@51 Transpose the current tag, and the preceding tag.
(defalias 'senator-transpose-tags-up #[nil "\306 \210\307 \212\211\310 8)\311\n!\203 \312\n!\202 \n\313H*b\210\314 )\315! \315 ! \f
=\2048 \316\317!\210\211\310 8)\311\n!\203M \312\n!\202P \n\313H*\211\310 8)\311\n!\203f \320\n!\202i \n\321H*{\322\211\310 8)\311\n!\203\201 \312\n!\202\204 \n\313H*`\"\323 \211\310 8)\311\n!\203\243 \312\n!\202\246 \n\313H*\211\310 8)\311\n!\203\274 \320\n!\202\277 \n\321H*|\210\324 \210 \211\310 8)\311\n!\203\332 \312\n!\202\335 \n\313H*b\210`c\210i\313U\204\360 \325c\210\325c\210b\210y.\207" [current-tag tag o prev-tag ct-parent pt-parent semantic-fetch-tags semantic-current-tag 4 overlayp overlay-start 0 semantic-find-tag-by-overlay-prev semantic-find-tag-parent-by-overlay error "Cannot transpose tags" overlay-end 1 count-lines nil delete-blank-lines "\n" insert-point line txt] 5 (#$ . 26767) nil])
#@51 Transpose the current tag, and the following tag.
(defalias 'senator-transpose-tags-down #[nil "\305 \210\306 \212\211\307 8)\310\n!\203 \311\n!\202 \n\312H*b\210\313 )\314 \211\307 8)\310\n!\203> \315\n!\202A \n\316H*b\210\312u\210\317 \210\fb+\207" [current-tag tag o next-tag end-pt semantic-fetch-tags semantic-current-tag 4 overlayp overlay-end 1 semantic-find-tag-by-overlay-next point-marker overlay-start 0 senator-transpose-tags-up] 3 (#$ . 27714) nil])
#@30 Force lazy highlight update.
(defalias 'senator-lazy-highlight-update #[nil "\302\303!\210\304\303\305 \207" [isearch-lazy-highlight-last-string isearch-adjusted lazy-highlight-cleanup t nil isearch-update] 2 (#$ . 28196)])
#@113 Return the function to use for the search.
Use a senator search function when semantic isearch mode is enabled.
(defalias 'senator-isearch-search-fun #[nil "\304\203 \305\202\n \306 \203 \307\202 \n\203 \310\202 \306\311 \203$ \312\202% \313R!\207" [senator-isearch-semantic-mode isearch-regexp-function isearch-regexp isearch-forward intern "senator-" "" "word-" "re-" "search-" "forward" "backward"] 5 (#$ . 28429)])
#@54 Toggle semantic searching on or off in isearch mode.
(defalias 'senator-isearch-toggle-semantic-mode #[nil "? \203\n \302 \207\303\304\203 \305\202 \306\"\207" [senator-isearch-semantic-mode isearch-mode senator-lazy-highlight-update message "Isearch semantic mode %s" "enabled" "disabled"] 3 (#$ . 28860) nil])
#@55 Hold previous value of `isearch-search-fun-function'.
(defvar senator-old-isearch-search-fun nil (#$ . 29183))
#@48 Isearch mode hook to setup semantic searching.
(defalias 'senator-isearch-mode-hook #[nil "\203\" \203\" \304\302!\203 \304\303!\204 \305\303!\210\n\305\302!\210\306\211\207\n\306=\205; \304\303!\2038 \305\302!\210 \307\303!\207\307\302!\207" [isearch-mode senator-isearch-semantic-mode isearch-search-fun-function senator-old-isearch-search-fun local-variable-p make-local-variable senator-isearch-search-fun kill-local-variable] 2 (#$ . 29300)])
(provide 'semantic/senator)
Mini Shell