;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'cl-lib) #@41 Keymap for using `highlight-uses-mode'. (defvar highlight-uses-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\312#\210\207" [make-sparse-keymap define-key " " highlight-uses-mode-next [33554441] highlight-uses-mode-prev [backtab] " " highlight-uses-mode-stop-here "" highlight-uses-mode] 5) (#$ . 105)) (defvar highlight-uses-mode-point nil nil) (make-variable-buffer-local 'highlight-uses-mode-point) #@107 Non-nil if Highlight-Uses mode is enabled. Use the command `highlight-uses-mode' to change this variable. (defvar highlight-uses-mode nil (#$ . 576)) (make-variable-buffer-local 'highlight-uses-mode) #@617 Minor mode for highlighting and jumping between uses. This is a minor mode. If called interactively, toggle the `Highlight-Uses 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 `highlight-uses-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'highlight-uses-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\203:`\202A\n\203A\nb\210\312ed\313\307$\210\314\315\203R\316\202S\317\"\210\320\321!\203u\303 \203g\211\303 \232\203u\322\323\203q\324\202r\325\326#\210\210\327 \210\207" [highlight-uses-mode local-minor-modes highlight-uses-mode-point current-message toggle 1 nil t boundp delq remove-overlays highlight-uses-mode-highlight run-hooks highlight-uses-mode-hook highlight-uses-mode-on-hook highlight-uses-mode-off-hook called-interactively-p any message "Highlight-Uses mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 783) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar highlight-uses-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\313\310\211%\207" [highlight-uses-mode-map highlight-uses-mode-hook variable-documentation put "Hook run after entering or leaving `highlight-uses-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 highlight-uses-mode " Uses"] 6) #@72 Replace all highlighted instances in the buffer with something else. (defalias 'highlight-uses-mode-replace #[0 "\212eb\210\300 \211\2053\301\302\303\304!\305!{\"!\2051\304!b\210\304!\305!|\210\211c\210\300 \262\202\262\262)\207" [highlight-uses-mode-next read-from-minibuffer format "Replace uses %s with: " overlay-start overlay-end] 7 (#$ . 2718) nil]) #@21 Stop at this point. (defalias 'highlight-uses-mode-stop-here #[0 "`\301\302!\207" [highlight-uses-mode-point highlight-uses-mode -1] 2 (#$ . 3095) nil]) #@22 Jump to next result. (defalias 'highlight-uses-mode-next #[0 "\300\301\302\303`d\"\"\304\"\211\205\305@!b\210\211@\207" [sort cl-remove-if #[257 "\300!`X\206 \301\302\"?\207" [overlay-start overlay-get highlight-uses-mode-highlight] 4 "\n\n(fn O)"] overlays-in #[514 "\300!\300!W\207" [overlay-start] 5 "\n\n(fn A B)"] overlay-start] 6 (#$ . 3255) nil]) #@26 Jump to previous result. (defalias 'highlight-uses-mode-prev #[0 "\300\301\302\303e`\"\"\304\"\211\205\305@!b\210\211@\207" [sort cl-remove-if #[257 "\300!`Y\206 \301\302\"?\207" [overlay-end overlay-get highlight-uses-mode-highlight] 4 "\n\n(fn O)"] overlays-in #[514 "\300!\300!V\207" [overlay-start] 5 "\n\n(fn A B)"] overlay-start] 6 (#$ . 3623) nil]) #@61 Make a highlight overlay at the given span. (fn START END) (defalias 'highlight-uses-mode-highlight #[514 "\300\"\301\302\303#\210\301\304\305#\210\301\306\307#\207" [make-overlay overlay-put priority 999 face isearch highlight-uses-mode-highlight t] 7 (#$ . 3993)]) (provide 'highlight-uses-mode)