Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/mru-bookmark.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\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)
#@56 Create a new object of class type `semantic-bookmark'.
(defalias 'semantic-bookmark #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-bookmark] 4 (#$ . 1801)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-bookmark compiler-macro semantic-bookmark--anon-cmacro] 4)
(defalias 'semantic-bookmark--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(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 #[(sbm &rest fields) "\3011 \212\302\303\304\305\306\"!#\210\307\305\306\"!\210\302\310\311 #)0\207\210\312\313!\207" [sbm (error) eieio-oset filename semantic-tag-file-name eieio-oref tag semantic-go-to-tag parent semantic-current-tag-parent message "Error bookmarking tag."] 7 "Initialize the bookmark SBM with details about :tag.\n\n(fn SBM &rest FIELDS)"] semantic-mrub-visit ((sbm semantic-bookmark)) #[(sbm) "\304\305!\210\306\307 \310\"!\204# \311\307 \310\"!\206 \307 \312\"\313\n!q\210)\314\315\310\"\315\316\"\"\210\3171> \315\320\"\211u)0\202B \210\202C \210\321p!\210\322\307 \310\"!)\207" [sbm #:object fn o 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."] semantic-mrub-update ((sbm semantic-bookmark) point reason) #[(sbm point reason) "\3061C \211\307\n\310 \311 \304\"\211 \312\f8) \313
!\203$ \314
!\202'
\315H*Z#\210) \307\316\311 \316\"T#\210*\307\317#0\207\210\320\207" [sbm #:object #:v point tag o (error) eieio-oset offset slot-value 4 overlayp overlay-start 0 frequency reason nil #:v] 8 "Update the existing bookmark SBM.\nPOINT is some important location.\nREASON is a symbol. See slot `reason' on `semantic-bookmark'."] semantic-mrub-preflush ((sbm semantic-bookmark)) #[(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 "Method called on a tag before the current buffer list of tags is flushed.\nIf there is a buffer match, unlink the tag."] 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)
#@61 Create a new object of class type `semantic-bookmark-ring'.
(defalias 'semantic-bookmark-ring #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-bookmark-ring] 4 (#$ . 5450)])
(byte-code "\300\301\302\303#\300\207" [function-put semantic-bookmark-ring compiler-macro semantic-bookmark-ring--anon-cmacro] 4)
(defalias 'semantic-bookmark-ring--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 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!\"\207" [semantic-bookmark-ring :ring make-ring 20] 4) (#$ . 6008))
#@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\211A@) *=\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 (#$ . 6228)])
(cl-generic-define-method 'semantic-mrub-push nil '((sbr semantic-bookmark-ring) point &optional reason) nil #[(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 "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."])
#@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 (#$ . 7314)])
(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 (#$ . 7754))
#@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 (#$ . 7881)])
(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 `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)
#@320 Toggle global use of option `semantic-mru-bookmark-mode'.
If called interactively, enable Global Semantic-Mru-Bookmark mode if
ARG is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
(defalias 'global-semantic-mru-bookmark-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\312\313\n\203# \314\202$ \315\"\210\316\317\307\302!\2032 \320\2023 \321\"\210\322\323!\203^ \324\302!\210\304 \203K \304 \232\203^ \325\326\327\307\302!\203Y \330\202Z \331 #\210))\332 \210\307\302!\207" [#1=#:last-message arg global-semantic-mru-bookmark-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 9221) (list (or current-prefix-arg 'toggle))])
(defvar global-semantic-mru-bookmark-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\307\313\314\315\316\317&\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.)" 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) (#$ . 11109))
#@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 (#$ . 11318))
(make-variable-buffer-local 'semantic-mru-bookmark-mode)
#@651 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].
If called interactively, enable Semantic-Mru-Bookmark mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
\{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.
(defalias 'semantic-mru-bookmark-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203> \311\312!\203\" \204- \313\314\315\316 \"\210\202J \317\320\321\313\322$\210\317\323\321\313\322$\210\202J \324\320\321\322#\210\324\323\321\322#\210\325\326\n\203T \327\202U \330\"\210\331\332!\203z \305 \203i \305 \232\203z \333 \334\335\n\203u \336\202v \337\f#\210))\340 \210\n\207" [#1=#:last-message arg semantic-mru-bookmark-mode semantic-new-buffer-fcn-was-run local 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 " in current buffer" message "Semantic-Mru-Bookmark mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 11555) (list (or current-prefix-arg 'toggle))])
(defvar semantic-mru-bookmark-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\210\310\306\311\"\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.)" 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 (#$ . 13752)])
#@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 (#$ . 13922)])
#@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 @@
BA\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 (#$ . 14207)])
#@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 (#$ . 15033) (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 (#$ . 15466) nil])
(provide 'semantic/mru-bookmark)
Mini Shell