;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\207" [require semantic eieio-base ring defalias semantic-bookmark-p eieio-make-class-predicate semantic-bookmark semantic-bookmark--eieio-childp eieio-make-child-predicate semantic-bookmark-child-p make-obsolete "use (cl-typep ... \\='semantic-bookmark) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (eieio-named) ((tag :initarg :tag :type semantic-tag :documentation "The TAG this bookmark belongs to.") (parent :type (or semantic-tag null) :documentation "The tag that is the parent of :tag.") (offset :type number :documentation "The offset from `tag' start that is\nsomehow interesting.") (filename :type string :documentation "String the tag belongs to.\nSet this when the tag gets unlinked from the buffer it belongs to.") (frequency :type number :initform 0 :documentation "Track the frequency this tag is visited.") (reason :type symbol :initform t :documentation "The reason this tag is interesting.\nNice values include the following:\n edit - created because the tag text was edited.\n read - created because point lingered in tag text.\n jump - jumped to another tag from this tag.\n mark - created a regular mark in this tag.")) (:documentation "A single bookmark.")] 6)
#@74 Create a new object of class type `semantic-bookmark'.

(fn &rest SLOTS)
(defalias 'semantic-bookmark #[128 "\300\301\302#\207" [apply make-instance semantic-bookmark] 5 (#$ . 1477)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-bookmark compiler-macro semantic-bookmark--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semantic-bookmark--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1789)])
(byte-code "\300\301\302\303\304\305%\210\300\306\304\307\304\310%\210\300\311\304\312\304\313%\210\300\314\304\315\304\316%\210\317\320\321\322!\"\210\317\323\324\322!\"\210\317\325\323\"\210\326\325\327\330#\210\331\322\332\323#\333\322\304\334\335$\207" [cl-generic-define-method initialize-instance (:after) ((sbm semantic-bookmark) &rest _fields) nil #[385 "\3001!\212\301\302\303\304\305\"!#\210\306\304\305\"!\210\301\307\310 #)0\207\210\311\312!\207" [(error) eieio-oset filename semantic-tag-file-name eieio-oref tag semantic-go-to-tag parent semantic-current-tag-parent message "Error bookmarking tag."] 9 "Initialize the bookmark SBM with details about :tag.\n\n(fn SBM &rest FIELDS)"] semantic-mrub-visit ((sbm semantic-bookmark)) #[257 "\300\301!\210\302\303\304\"!\204 \305\303\304\"!\206\303
\306\"\307
!q\266\310\311\304\"\311\312\"\"\210\3131<\311
\314\"\211u\262
0\210\202=\210\315p!\210\316\303\304\"!\207" [require semantic/decorate semantic-tag-in-buffer-p slot-value tag semantic-tag-file-name filename find-file-noselect semantic-go-to-tag eieio-oref parent (error) offset pop-to-buffer-same-window semantic-momentary-highlight-tag] 6 "Visit the semantic tag bookmark SBM.\nUses `semantic-go-to-tag' and highlighting.\n\n(fn SBM)"] semantic-mrub-update ((sbm semantic-bookmark) point reason) #[771 "\3001;\301\302\303\304\"\211\305
8\262
\306
!\203!\307
!\266\202\202&\211\310H\266\202Z#\210\301\311\303\311\"T#\210\301\312#0\207\210\313\207" [(error) eieio-oset offset slot-value tag 4 overlayp overlay-start 0 frequency reason nil] 11 "Update the existing bookmark SBM.\nPOINT is some important location.\nREASON is a symbol.  See slot `reason' on `semantic-bookmark'.\n\n(fn SBM POINT REASON)"] semantic-mrub-preflush ((sbm semantic-bookmark)) #[257 "\300
\301\"\302\303\"\205\300\303\"\304!\211\203 \211p=\203 \305!\210\210\211\2057\304
!\211\2055\211p=\2055\305!\262
\207" [eieio-oref tag slot-boundp parent semantic-tag-in-buffer-p semantic--tag-unlink-from-buffer] 6 "Method called on a tag before the current buffer list of tags is flushed.\nIf there is a buffer match, unlink the tag.\n\n(fn SBM)"] defalias semantic-bookmark-ring-p eieio-make-class-predicate semantic-bookmark-ring semantic-bookmark-ring--eieio-childp eieio-make-child-predicate semantic-bookmark-ring-child-p make-obsolete "use (cl-typep ... \\='semantic-bookmark-ring) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((ring :initarg :ring :type ring :documentation "List of `semantic-bookmark' objects.\nThis list is maintained as a list with the first item\nbeing the current location, and the rest being a list of\nitems that were recently visited.") (current-index :initform 0 :type number :documentation "The current index into RING for some operation.\nUser commands use this to move through the ring, or reset.")) (:documentation "Track the current MRU stack of bookmarks.\nWe can't use the built-in ring data structure because we need\nto delete some items from the ring when we don't have the data.")] 6)
#@79 Create a new object of class type `semantic-bookmark-ring'.

(fn &rest SLOTS)
(defalias 'semantic-bookmark-ring #[128 "\300\301\302#\207" [apply make-instance semantic-bookmark-ring] 5 (#$ . 5112)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-bookmark-ring compiler-macro semantic-bookmark-ring--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semantic-bookmark-ring--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5449)])
#@82 The MRU bookmark ring.
This ring tracks the most recent active tags of interest.
(defvar semantic-mru-bookmark-ring (byte-code "\300\301\302\303!\"\207" [semantic-bookmark-ring :ring make-ring 20] 4) (#$ . 5689))
#@117 Find a nearby tag to be pushed for this current location.
Argument POINT is where to find the tag near.

(fn POINT)
(defalias 'semantic-mrub-find-nearby-tag #[257 "\300 \211\203\211\301
\211A@\262

=\266\202\203&\302!\206\303!\211\203%\211\262\210\207" [semantic-current-tag type semantic-find-tag-by-overlay-next semantic-find-tag-by-overlay-prev] 6 (#$ . 5909)])
(cl-generic-define-method 'semantic-mrub-push nil '((sbr semantic-bookmark-ring) point &optional reason) nil #[770 "\300\301\"\302`!\303
\205J\304!\2043\211\305!W\2033\306\300\307\"\310\"\"\203,\311\"\210\211T\262
\202\f\312\211@\262
\313#\314\"\210\315
#\262
\207" [eieio-oref ring semantic-mrub-find-nearby-tag 0 ring-empty-p ring-size semantic-tag-similar-p ring-ref tag ring-remove semantic-bookmark :tag ring-insert semantic-mrub-update] 11 "Add a bookmark to the ring SBR from POINT.\nREASON is why it is being pushed.  See doc for `semantic-bookmark'\nfor possible reasons.\nThe resulting bookmark is then sorted within the ring.\n\n(fn SBR POINT &optional REASON)"])
#@112 Function called in the `semantic-before-toplevel-cache-flush-hook'.
Cause tags in the ring to become unlinked.
(defalias 'semantic-mrub-cache-flush-fcn #[0 "\301\302\"\303
!\304\211W\205\305\306\"!\210\211T\262
\202\207" [semantic-mru-bookmark-ring eieio-oref ring ring-length 0 semantic-mrub-preflush ring-ref] 7 (#$ . 6986)])
(add-hook 'semantic-before-toplevel-cache-flush-hook 'semantic-mrub-cache-flush-fcn)
#@69 The last overlay bumped by `semantic-mru-bookmark-change-hook-fcn'.
(defvar semantic-mrub-last-overlay nil (#$ . 7413))
#@178 Function set into `semantic-edits-new/move-change-hook's.
Argument OVERLAY is the overlay created to mark the change.
This function pushes tags onto the tag ring.

(fn OVERLAY)
(defalias 'semantic-mru-bookmark-change-hook-fcn #[257 "\211=?\205\211\302	`\303#\207" [semantic-mrub-last-overlay semantic-mru-bookmark-ring semantic-mrub-push edit] 5 (#$ . 7540)])
(byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312\313\314\315\316\317\320&\210\300\301\302\303\321DD\322\317\323\315\316\311\312\306\307\306\310&
\207" [custom-declare-variable global-semantic-mru-bookmark-mode funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, enable `semantic-mru-bookmark-mode' globally.\nWhen this mode is enabled, Emacs keeps track of which tags have\nbeen edited, and you can re-visit them with \\[semantic-mrub-switch-tags]." :group semantic semantic-modes :type boolean :require semantic/util-modes :initialize custom-initialize-default :set #[514 "\300
\203	\301\202\n\302!\207" [global-semantic-mru-bookmark-mode 1 -1] 4 "\n\n(fn SYM VAL)"] #[0 "\300\207" [nil] 1 #1#] "Non-nil if Global Semantic-Mru-Bookmark mode is enabled.\nSee the `global-semantic-mru-bookmark-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-semantic-mru-bookmark-mode'." custom-set-minor-mode] 16)
#@669 Toggle global use of option `semantic-mru-bookmark-mode'.

This is a minor mode.  If called interactively, toggle the `Global
Semantic-Mru-Bookmark mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='global-semantic-mru-bookmark-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'global-semantic-mru-bookmark-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B\313\314	\203B\306\202C\315\"\210\316\317\305\301!\203Q\320\202R\321\"\210\322\323!\203z\324\301!\210\302 \203j\211\302 \232\203z\325\326\305\301!\203v\327\202w\330\331#\210\210\332 \210\305\301!\207" [global-minor-modes global-semantic-mru-bookmark-mode current-message set-default toggle default-value 1 nil t boundp delq semantic-toggle-minor-mode-globally semantic-mru-bookmark-mode -1 run-hooks global-semantic-mru-bookmark-mode-hook global-semantic-mru-bookmark-mode-on-hook global-semantic-mru-bookmark-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Semantic-Mru-Bookmark mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 8985) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-semantic-mru-bookmark-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317\320DD\321\322\323\324\306&\207" [global-semantic-mru-bookmark-mode-map global-semantic-mru-bookmark-mode-hook variable-documentation put "Hook run after entering or leaving `global-semantic-mru-bookmark-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-semantic-mru-bookmark-mode boundp custom-declare-variable semantic-mru-bookmark-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run at the end of function `semantic-mru-bookmark-mode'." :group semantic :type] 8)
#@37 Keymap for mru-bookmark minor mode.
(defvar semantic-mru-bookmark-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key "B" semantic-mrub-switch-tags] 5) (#$ . 11452))
#@121 Non-nil if Semantic-Mru-Bookmark mode is enabled.
Use the command `semantic-mru-bookmark-mode' to change this variable.
(defvar semantic-mru-bookmark-mode nil (#$ . 11655))
(make-variable-buffer-local 'semantic-mru-bookmark-mode)
#@974 Minor mode for tracking tag-based bookmarks automatically.
When this mode is enabled, Emacs keeps track of which tags have
been edited, and you can re-visit them with \[semantic-mrub-switch-tags].

This is a minor mode.  If called interactively, toggle the
`Semantic-Mru-Bookmark mode' mode.  If the prefix argument is
positive, enable the mode, and if it is zero or negative, disable the
mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `semantic-mru-bookmark-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

\{semantic-mru-bookmark-mode-map}

The minor mode can be turned on only if semantic feature is
available and the current buffer was set up for parsing.  Return
non-nil if the minor mode is enabled.

(fn &optional ARG)
(defalias 'semantic-mru-bookmark-mode #[256 "\303 
\304=\203
?\202
\247\203
\305W\203\306\202\307\310\301!\2031\311\300	\"\2031\300	B\203[\312\313!\203?\n\204J\306\314\315\316 \"\210\202g\317\320\321\306\307$\210\317\322\321\306\307$\210\202g\323\320\321\307#\210\323\322\321\307#\210\324\325\203q\326\202r\327\"\210\330\331!\203\224\303 \203\206\211\303 \232\203\224\332\333\203\220\334\202\221\335\336#\210\210\337 \210\207" [semantic-mru-bookmark-mode local-minor-modes semantic-new-buffer-fcn-was-run current-message toggle 1 nil t boundp delq featurep semantic error "Buffer %s was not set up for parsing" buffer-name add-hook semantic-edits-new-change-functions semantic-mru-bookmark-change-hook-fcn semantic-edits-move-change-hooks remove-hook run-hooks semantic-mru-bookmark-mode-hook semantic-mru-bookmark-mode-on-hook semantic-mru-bookmark-mode-off-hook called-interactively-p any message "Semantic-Mru-Bookmark mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 11892) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar semantic-mru-bookmark-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\310\211%\210\313\312\314\"\207" [semantic-mru-bookmark-mode-map semantic-mru-bookmark-mode-hook variable-documentation put "Hook run after entering or leaving `semantic-mru-bookmark-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode semantic-mru-bookmark-mode semantic-add-minor-mode "k"] 6)
#@45 History of `semantic-mrub-completing-read'.
(defalias 'semantic-mrub-read-history #[0 "\300\207" ["History of `semantic-mrub-completing-read'."] 1 (#$ . 14588)])
#@66 Convert RING into an association list for completion.

(fn RING)
(defalias 'semantic-mrub-ring-to-assoc-list #[257 "\300\301!\302W\203 \303\"\304
\305\"
BB\266\202T\262\202\211\237\207" [0 ring-length nil ring-ref eieio-oref object-name] 8 (#$ . 14756)])
#@128 Do a `completing-read' on elements from the mru bookmark ring.
Argument PROMPT is the prompt to use when reading.

(fn PROMPT)
(defalias 'semantic-mrub-completing-read #[257 "\301\302\303\"!\203
\304\305!\210\302\303\"\306\307!\211@A\306\310\302\311\"\312 \"\203*A@A\262\313!\211\203?\211@@B\262\211A\262
\202-\210\211\237\262

\203X\314\315\316\302\311\"\317\"#\202[\320P\321
\306\211\211\322&\262\210\323\230\203r
\211\262\207\324\"\262\205~A\207" [semantic-mru-bookmark-ring ring-empty-p eieio-oref ring error "Semantic Bookmark ring is currently empty" nil semantic-mrub-ring-to-assoc-list semantic-equivalent-tag-p tag semantic-current-tag reverse format "%s (%s): " semantic-format-tag-name t ": " completing-read semantic-mrub-read-history "" assoc] 14 (#$ . 15029)])
#@138 Switch tags to TAGMARK.
Selects a new tag via prompt through the mru tag ring.
Jumps to the tag and highlights it briefly.

(fn TAGMARK)
(defalias 'semantic-mrub-switch-tags #[257 "\301
!\204\302\303\"\210\304`\305#\210\306
!\207" [semantic-mru-bookmark-ring semantic-bookmark-p signal wrong-type-argument semantic-mrub-push jump semantic-mrub-visit] 5 (#$ . 15843) (byte-code "\300\301!C\207" [semantic-mrub-completing-read "Switch to tag"] 2)])
#@88 Display a list of items in the MRU bookmarks list.
Useful for debugging mrub problems.
(defalias 'semantic-adebug-mrub #[0 "\301\302!\210\303\304!\210\305
\306\"\207" [semantic-mru-bookmark-ring require eieio-datadebug data-debug-new-buffer "*TAG RING ADEBUG*" data-debug-insert-object-slots "]"] 4 (#$ . 16300) nil])
(provide 'semantic/mru-bookmark)