;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'xref) (defalias 'wisitoken-parse_table--xref-backend #[0 "\300\207" [wisitoken-parse_table] 1]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\310\304\311\304\312%\210\300\313\302\313\314\304#\315#\210\306\313\304\314\304\316%\207" [defalias xref-backend-identifier-completion-table cl-generic-define ((_backend (eql wisitoken-parse_table))) nil "\n\n(fn (_BACKEND (eql wisitoken-parse_table)))" cl-generic-define-method #[257 "\300\207" [nil] 2 "\n\n(fn BACKEND)"] xref-backend-identifier-at-point ((_backend (eql wisitoken-parse_table))) #[257 "\212\300 \210\301\302\303 \304#)\203\305\306!\207\212\300 \210\301\307\303 \304#)\203)\305\310!\311\305\306!Q\207\312\313!\207" [beginning-of-line search-forward-regexp "go ?to state \\([0-9]+\\)" line-end-position t match-string 1 "reduce [0-9]+ tokens to \\([[:alnum:]_]+\\) \\([0-9.]+\\)" 2 ": " thing-at-point symbol] 5 "\n\n(fn BACKEND)"] xref-backend-definitions ((_backend (eql wisitoken-parse_table)) identifier) "\n\n(fn (_BACKEND (eql wisitoken-parse_table)) IDENTIFIER)" #[514 "\300\301\"\300\302\"\212eb\210\203\303\304\305Q!\210\202.\211\203'\303\306P!\210\202.\303\307\306Q!\210\310\311p\312\224\"\")C\207" [string-match "\\`[0-9]+\\'" "\\`[0-9.]+: " search-forward-regexp "^State " ":$" " <=" "^[0-9.]+: " xref-make xref-make-buffer-location 0] 9 "\n\n(fn BACKEND IDENTIFIER)"]] 6) #@121 Non-nil if Wisitoken-Parse_Table mode is enabled. Use the command `wisitoken-parse_table-mode' to change this variable. (defvar wisitoken-parse_table-mode nil (#$ . 1490)) (make-variable-buffer-local 'wisitoken-parse_table-mode) #@634 Provides navigation in wisi-generate parse table output. This is a minor mode. If called interactively, toggle the `Wisitoken-Parse_Table 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 `wisitoken-parse_table-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'wisitoken-parse_table-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\313\305\306$\210\203C\314\315!\210\202G\314\304!\210\316\317\203Q\320\202R\321\"\210\322\323!\203t\302 \203f\211\302 \232\203t\324\325\203p\326\202q\327\330#\210\210\331 \210\207" [wisitoken-parse_table-mode local-minor-modes current-message toggle 1 nil t boundp delq add-hook xref-backend-functions wisitoken-parse_table--xref-backend read-only-mode 0 run-hooks wisitoken-parse_table-mode-hook wisitoken-parse_table-mode-on-hook wisitoken-parse_table-mode-off-hook called-interactively-p any message "Wisitoken-Parse_Table mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1726) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar wisitoken-parse_table-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\314\300!\205#\310\211%\210\315\316\317\"\210\320\312!\207" [wisitoken-parse_table-mode-map wisitoken-parse_table-mode-hook variable-documentation put "Hook run after entering or leaving `wisitoken-parse_table-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 wisitoken-parse_table-mode ":parse_table" boundp add-to-list auto-mode-alist ("\\.parse_table.*\\'" . wisitoken-parse_table-mode) provide] 6)