WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/mru-bookmark.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:06 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/mru-bookmark.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\304\305\306\307\310$\210\311\312\313\312\314\"\"\210\315\312\316\305\317$\210\311\320\313\320\321\"\"\210\315\320\322\305\323$\210\311\324\313\324\325\"\"\210\315\324\322\305\326$\210\311\327\313\327\330\"\"\210\315\327\322\305\331$\210\304\332\322\333\334$\207" [require semantic eieio-base ring eieio-defclass semantic-bookmark (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 are 'edit, 'read, 'jump, and 'mark.\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.")) ("A single bookmark.") eieio--defalias initialize-instance eieio--defgeneric-init-form #1="Initialize the bookmark SBM with details about :tag." eieio--defmethod :AFTER #[(sbm &rest fields) "\300\301\302\217\207" [nil (byte-code "\212\301\302\303\304\305\"!#\210\306\304\305\"!\210\301\307\310 #)\207" [sbm eieio-oset filename semantic-tag-file-name eieio-oref tag semantic-go-to-tag parent semantic-current-tag-parent] 7) ((error (message "Error bookmarking tag.")))] 3 #1#] semantic-mrub-visit #2="Visit the semantic tag bookmark SBM.\nUses `semantic-go-to-tag' and highlighting." nil #[(sbm) "\302\303!\210\304\305\306\"!\204!\307\305\306\"!\206\305\310\"\311	!q\210)\312\313\306\"\313\314\"\"\210\315\316\317\217\210\320p!\210\321\305\306\"!\207" [sbm fn 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 nil (byte-code "\302\303\"\211u\210)\302\207" [sbm o eieio-oref offset] 4) ((error)) switch-to-buffer semantic-momentary-highlight-tag] 5 #2#] semantic-mrub-update #3="Update the existing bookmark SBM.\nPOINT is some important location.\nREASON is a symbol.  See slot `reason' on `semantic-bookmark'." #[(sbm point reason) "\300\301\302\217\207" [nil (byte-code "\306	\307\n\310\303\"\211\3118)\312\f!\203\313\f!\202!\f\314H*Z#\210)\306
\315\310\315\"T#\210)\306\316#\207" [sbm #:v point tag o #:v eieio-oset offset slot-value 4 semantic-overlay-p semantic-overlay-start 0 frequency reason] 8) ((error))] 3 #3#] semantic-mrub-preflush #4="Method called on a tag before the current buffer list of tags is flushed.\nIf there is a buffer match, unlink the tag." #[(sbm) "\304\302\"\305\301\"\205\304\301\"\306\n!\211\203#p=\203#\307\n!\210)	\205:\306	!\211\2059p=\2059\307	!)*\207" [sbm parent tag b eieio-oref slot-boundp semantic-tag-in-buffer-p semantic--tag-unlink-from-buffer] 5 #4#] semantic-bookmark-ring ((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.")) ("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.")] 5)
#@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\304!#\207" [semantic-bookmark-ring "Ring" :ring make-ring 20] 5) (#$ . 4358))
#@105 Find a nearby tag to be pushed for this current location.
Argument POINT is where to find the tag near.
(defalias 'semantic-mrub-find-nearby-tag #[(point) "\304 \211\203\305\211\211A@)	*=\203(\306\n!\206 \307\n!\211\203'))\207" [tag class point nearby semantic-current-tag type semantic-find-tag-by-overlay-next semantic-find-tag-by-overlay-prev] 3 (#$ . 4588)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias semantic-mrub-push eieio--defgeneric-init-form #1="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." eieio--defmethod nil semantic-bookmark-ring #[(sbr point &optional reason) "\306\301\"\307`!\310\n\205K\311	!\2045\312	!W\2035\313\306\314	\"\302\"\n\"\203/\315	\"\210T\202\316\n\211@)\317\n#\320	\f\"\210\321\f
#)+\207" [sbr ring tag idx sbm point eieio-oref semantic-mrub-find-nearby-tag 0 ring-empty-p ring-size semantic-tag-similar-p ring-ref ring-remove semantic-bookmark :tag ring-insert semantic-mrub-update reason] 6 #1#]] 5)
#@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 #[nil "\304\301\"\305	!\306\211\nW\205\307\310	\"!\210T\211\202\f+\207" [semantic-mru-bookmark-ring ring len idx eieio-oref ring-length 0 semantic-mrub-preflush ring-ref] 5 (#$ . 5750)])
(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 (#$ . 6190))
#@164 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.
(defalias 'semantic-mru-bookmark-change-hook-fcn #[(overlay) "	=?\205\303\n`\304#\207" [overlay semantic-mrub-last-overlay semantic-mru-bookmark-ring semantic-mrub-push edit] 4 (#$ . 6317)])
(byte-code "\300\301\302\303\304\305\304\306\307\310\311\312\313\314\315\316&\210\300\301\302\317\315\320\313\314\304\305\304\306\307\310&
\207" [custom-declare-variable global-semantic-mru-bookmark-mode nil "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 #[(sym val) "\301\203	\302\202\n\303!\207" [val global-semantic-mru-bookmark-mode 1 -1] 2] "Non-nil if Global-Semantic-Mru-Bookmark mode is enabled.\nSee the command `global-semantic-mru-bookmark-mode' for 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)
#@122 Toggle global use of option `semantic-mru-bookmark-mode'.
If ARG is positive or nil, enable, if it is negative, disable.
(defalias 'global-semantic-mru-bookmark-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310\n\203\311\202\312\"\210\313\314\n\203+\315\202,\316\"\210\317\320!\203Q\321\302!\210\303 \203D\303 \232\203Q\322\323\n\203N\324\202O\325\"\210)\326 \210\n\207" [#1=#:last-message arg global-semantic-mru-bookmark-mode current-message toggle prefix-numeric-value 0 semantic-toggle-minor-mode-globally semantic-mru-bookmark-mode 1 -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" "en" "dis" force-mode-line-update] 3 (#$ . 7656) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\210\305\306\303\307\310\311\312\313&\207" [global-semantic-mru-bookmark-mode-map add-minor-mode global-semantic-mru-bookmark-mode nil boundp custom-declare-variable semantic-mru-bookmark-mode-hook "*Hook run at the end of function `semantic-mru-bookmark-mode'." :group semantic :type hook] 8)
#@37 Keymap for mru-bookmark minor mode.
(defvar semantic-mru-bookmark-mode-map (byte-code "\301 \302\303\304#\210)\207" [km make-sparse-keymap define-key "B" semantic-mrub-switch-tags] 4) (#$ . 8908))
#@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 (#$ . 9116))
(make-variable-buffer-local 'semantic-mru-bookmark-mode)
#@460 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].

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

With prefix argument ARG, turn on if positive, otherwise off.  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.
(defalias 'semantic-mru-bookmark-mode #[(&optional arg) "\304 	\305=\203\n?\202\306	!\307V\211\203>\310\311!\203\"\204-\312\313\314\315 \"\210\202J\316\317\320\312\321$\210\316\322\320\312\321$\210\202J\323\317\320\321#\210\323\322\320\321#\210\324\325\n\203T\326\202U\327\"\210\330\331!\203v\304 \203i\304 \232\203v\332\333\n\203s\334\202t\335\"\210)\336 \210\n\207" [#1=#:last-message arg semantic-mru-bookmark-mode semantic-new-buffer-fcn-was-run current-message toggle prefix-numeric-value 0 featurep semantic nil error "Buffer %s was not set up for parsing" buffer-name add-hook semantic-edits-new-change-functions semantic-mru-bookmark-change-hook-fcn t 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" "en" "dis" force-mode-line-update] 6 (#$ . 9352) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\303\211%\210\304\302\305\"\207" [semantic-mru-bookmark-mode-map add-minor-mode semantic-mru-bookmark-mode nil semantic-add-minor-mode "k"] 6)
#@45 History of `semantic-mrub-completing-read'.
(defalias 'semantic-mrub-read-history #[nil "\300\207" ["History of `semantic-mrub-completing-read'."] 1 (#$ . 10986)])
#@55 Convert RING into an association list for completion.
(defalias 'semantic-mrub-ring-to-assoc-list #[(ring) "\305\306!\307\211\nW\203$\310\"\311\f\312\"\fB	B)T\211\202		\237+\207" [ring al len idx r 0 ring-length nil ring-ref eieio-oref :object-name] 4 (#$ . 11156)])
#@115 Do a `completing-read' on elements from the mru bookmark ring.
Argument PROMPT is the prompt to use when reading.
(defalias 'semantic-mrub-completing-read #[(prompt) "\306\307\301\"!\203
\310\311!\210\307\301\"\312\313	!\211@A\312\314\307\f\315\"\316 \"\203.A@A\317!\211\203G@@
BA\211\2047)
\237\f\203^\320\321\322\307\f\315\"\323\"#\202b\324P\325\312\211\211\305&)\n\326\230\203|\f\211\202\207\327\n\"\211\205\207\nA-\207" [semantic-mru-bookmark-ring ring ans alist first semantic-mrub-read-history ring-empty-p eieio-oref 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 "" assoc elts prompt] 8 (#$ . 11442)])
#@124 Switch tags to TAGMARK.
Selects a new tag via prompt through the mru tag ring.
Jumps to the tag and highlights it briefly.
(defalias 'semantic-mrub-switch-tags #[(tagmark) "\302!\204\303\304\"\210\305	`\306#\210\307!\207" [tagmark semantic-mru-bookmark-ring semantic-bookmark-p signal wrong-type-argument semantic-mrub-push jump semantic-mrub-visit] 4 (#$ . 12268) (list (semantic-mrub-completing-read "Switch to tag"))])
#@88 Display a list of items in the MRU bookmarks list.
Useful for debugging mrub problems.
(defalias 'semantic-adebug-mrub #[nil "\302\303!\210\304\305!\210\306	\307\")\207" [semantic-mru-bookmark-ring out require eieio-datadebug data-debug-new-buffer "*TAG RING ADEBUG*" data-debug-insert-object-slots "]"] 3 (#$ . 12701) nil])
(provide 'semantic/mru-bookmark)
F1l3 Manager
