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



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\316\317&\207" [custom-declare-group prog-mode nil "Generic programming mode, from which others derive." :group languages custom-declare-variable prog-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Normal hook run when entering programming modes." :type hook :options (flyspell-prog-mode abbrev-mode flymake-mode display-line-numbers-mode prettify-symbols-mode)] 8)
#@61 Populate MENU with xref commands at CLICK.

(fn MENU CLICK)
(defalias 'prog-context-menu #[514 "\301\302!\210\303\304\305$\210\306 \204\303\307\310\311$\210\212\312
!\210\313\314 !)\211\203G\303\315\316\317\320\321\322\323	\"\257\311$\210\303\324\316\325\326\321\322\327	\"\257\311$\210\210\330
\331\"\203\\\303\332\316\333\334\335BBB\336$\210\303\337\316\340\341\342BBB\336$\210\303\343\316\344\345\346BBB\336$\210\347\212r\350\351!\211@\262
!q\210\352\353\351!!!*8\203\225\354\"\210
\207" [menu-bar-separator require xref define-key-after [prog-separator] middle-separator xref-marker-stack-empty-p [xref-pop] (menu-item "Go Back" xref-pop-marker-stack :help "Back to the position of the last search") prog-separator mouse-set-point xref-backend-identifier-at-point xref-find-backend [xref-find-ref] menu-item "Find References" xref-find-references-at-mouse :help format "Find references to `%s'" [xref-find-def] "Find Definition" xref-find-definitions-at-mouse "Find definition of `%s'" thing-at-mouse symbol [select-region mark-symbol] "Symbol" #[257 "\300
\301\"\207" [mark-thing-at-mouse symbol] 4 "\n\n(fn E)" "e"] (:help "Mark the symbol at click for a subsequent cut/copy") mark-whole-buffer [select-region mark-list] "List" #[257 "\300
\301\"\207" [mark-thing-at-mouse list] 4 "\n\n(fn E)" "e"] (:help "Mark the list at click for a subsequent cut/copy") [select-region mark-defun] "Defun" #[257 "\300
\301\"\207" [mark-thing-at-mouse defun] 4 "\n\n(fn E)" "e"] (:help "Mark the defun at click for a subsequent cut/copy") 8 window-buffer event-end syntax-ppss posn-point text-mode-context-menu] 13 (#$ . 534)])
#@36 Keymap used for programming modes.
(defvar prog-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key [134217745] prog-indent-sexp] 5) (#$ . 2181))
#@839 When non-nil, provides context for indenting embedded code chunks.

There are languages where part of the code is actually written in
a sub language, e.g., a Yacc/Bison or ANTLR grammar can also include
JS or Python code.  This variable enables the primary mode of the
main language to use the indentation engine of the sub-mode for
lines in code chunks written in the sub-mode's language.

When a major mode of such a main language decides to delegate the
indentation of a line/region to the indentation engine of the sub
mode, it should bind this variable to non-nil around the call.

The non-nil value should be a list of the form:

   (FIRST-COLUMN . REST)

FIRST-COLUMN is the column the indentation engine of the sub-mode
should use for top-level language constructs inside the code
chunk (instead of 0).

REST is currently unused.
(defvar prog-indentation-context nil (#$ . 2363))
#@133 Indent the expression after point.
When interactively called with prefix, indent the enclosing defun
instead.

(fn &optional DEFUN)
(defalias 'prog-indent-sexp #[256 "\212\211\203\300\210\301 \210`\302\303!\210`\304\300#\266\202)\207" [nil beginning-of-defun forward-sexp 1 indent-region] 7 (#$ . 3258) "P"])
#@71 Return the indentation column normally used for top-level constructs.
(defalias 'prog-first-column #[0 "@\206\301\207" [prog-indentation-context 0] 1 (#$ . 3578)])
#@339 Alist of symbol prettifications.
Each element looks like (SYMBOL . CHARACTER), where the symbol
matching SYMBOL (a string, not a regexp) will be shown as
CHARACTER instead.

CHARACTER can be a character, or it can be a list or vector, in
which case it will be used to compose the new symbol as per the
third argument of `compose-region'.
(defvar prettify-symbols-alist nil (#$ . 3752))
(make-variable-buffer-local 'prettify-symbols-alist)
#@270 Return non-nil iff the symbol MATCH should be composed.
The symbol starts at position START and ends at position END.
This is the default for `prettify-symbols-compose-predicate'
which is suitable for most programming languages such as C or Lisp.

(fn START END MATCH)
(defalias 'prettify-symbols-default-compose-p #[771 "fz\300>\203\f\301\202
\302\206`Sfz\303>\203\304\202\305\206$`Sf\206*\306z>\206@f\2066\306z
>\206@\307\310 8?\207" [(119 95) (119 95) (46 92) (119 95) (119 95) (46 92) 32 8 syntax-ppss] 7 (#$ . 4198)])
#@252 A predicate for deciding if the currently matched symbol is to be composed.
The matched symbol is the car of one entry in `prettify-symbols-alist'.
The predicate receives the match's start and end positions as well
as the `match-string' as arguments.
(defvar prettify-symbols-compose-predicate 'prettify-symbols-default-compose-p (#$ . 4746))
(make-variable-buffer-local 'prettify-symbols-compose-predicate)
#@122 Compose a sequence of characters into a symbol.
Regexp match data 0 specifies the characters to be composed.

(fn ALIST)
(defalias 'prettify-symbols--compose-symbol #[257 "\305\224\305\225\306\305!D\232\204A	#\203A\307 \310\211\310\311\312\"\216\313\314	\"A#\210\315\316\317F#\210,\266\202H\320\321#\266\322\207" [prettify-symbols--current-symbol-bounds prettify-symbols-compose-predicate buffer-undo-list inhibit-read-only inhibit-modification-hooks 0 match-string buffer-modified-p t make-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] compose-region assoc add-text-properties prettify-symbols-start prettify-symbols-end remove-list-of-text-properties (composition prettify-symbols-start prettify-symbols-end) nil] 13 (#$ . 5161)])
(defalias 'prettify-symbols--make-keywords #[0 "\205\301\302\303\"\304\"\305\306\307DDDDC\207" [prettify-symbols-alist regexp-opt mapcar car t 0 prettify-symbols--compose-symbol quote] 5])
(defvar prettify-symbols--keywords nil nil)
(make-variable-buffer-local 'prettify-symbols--keywords)
(defvar prettify-symbols--current-symbol-bounds nil nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [make-variable-buffer-local prettify-symbols--current-symbol-bounds custom-declare-variable prettify-symbols-unprettify-at-point funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, show the non-prettified version of a symbol when point is on it.\nIf set to the symbol `right-edge', also unprettify if point\nis immediately after the symbol.  The prettification will be\nreapplied as soon as point moves away from the symbol.  If\nset to nil, the prettification persists even when point is\non the symbol." :version "25.1" :type (choice (const :tag "Never unprettify" nil) (const :tag "Unprettify when point is inside" t) (const :tag "Unprettify when point is inside or at right edge" right-edge))] 8)
(defalias 'prettify-symbols--post-command-hook #[0 "\305\203)`@W\204\"`A@V\204\"	\306=\204)`A@U\203)\307\310\"\210\311\211\312!\211\2053
\313!\211\205:\314!\211\205B\307\315\"\211\205J\307\316\"\211\205g\317 \320\211\320\321\322\"\216D\323\324#,\262
\207" [prettify-symbols--current-symbol-bounds prettify-symbols-unprettify-at-point buffer-undo-list inhibit-read-only inhibit-modification-hooks #[257 "\301\302\303`\"\304=\205o?\205\303`S\"D\"\207" [prettify-symbols-unprettify-at-point remove nil get-text-property right-edge] 7 "\n\n(fn PROP)"] right-edge apply font-lock-flush nil composition prettify-symbols-start prettify-symbols-end min max buffer-modified-p t make-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] remove-text-properties (composition nil)] 12])
#@111 Non-nil if Prettify-Symbols mode is enabled.
Use the command `prettify-symbols-mode' to change this variable.
(defvar prettify-symbols-mode nil (#$ . 7925))
(make-variable-buffer-local 'prettify-symbols-mode)
#@1203 Toggle Prettify Symbols mode.

This is a minor mode.  If called interactively, toggle the
`Prettify-Symbols 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 `prettify-symbols-mode'.

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

When Prettify Symbols mode and font-locking are enabled, symbols are
prettified (displayed as composed characters) according to the rules
in `prettify-symbols-alist' (which see), which are locally defined
by major modes supporting prettifying.  To add further customizations
for a given major mode, you can modify `prettify-symbols-alist' thus:

  (add-hook \='emacs-lisp-mode-hook
            (lambda ()
              (push \='("<=" . ?≤) prettify-symbols-alist)))

You can enable this mode locally in desired buffers, or use
`global-prettify-symbols-mode' to enable it for all modes that
support it.

(fn &optional ARG)
(defalias 'prettify-symbols-mode #[256 "\306 
\307=\203
?\202
\247\203
\310W\203\311\202\312\313\301!\2031\314\300	\"\2031\300	B\n\203<\315\311\n\"\210\311\203f\316 \211\203\216\317\311\n\"\210\320\303!\210\321\322\"\f\203`\323\324\325\311\312$\210\326 \210\202\216\327\324\325\312#\210\330>\203\216\314\330\"\331 \312\211*\312+\332\333\"\216\334ed\335#\210,\210\336\337\203\230\340\202\231\341\"\210\342\343!\203\273\306 \203\255\211\306 \232\203\273\344\345\203\267\346\202\270\347\350#\210\210\351 \210\207" [prettify-symbols-mode local-minor-modes prettify-symbols--keywords font-lock-extra-managed-props prettify-symbols-unprettify-at-point buffer-undo-list current-message toggle 1 nil t boundp delq font-lock-remove-keywords prettify-symbols--make-keywords font-lock-add-keywords make-local-variable append (composition prettify-symbols-start prettify-symbols-end) add-hook post-command-hook prettify-symbols--post-command-hook font-lock-flush remove-hook composition buffer-modified-p make-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] remove-text-properties (composition nil) run-hooks prettify-symbols-mode-hook prettify-symbols-mode-on-hook prettify-symbols-mode-off-hook called-interactively-p any message "Prettify-Symbols mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update inhibit-read-only inhibit-modification-hooks] 8 (#$ . 8142) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar prettify-symbols-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%\207" [prettify-symbols-mode-map prettify-symbols-mode-hook variable-documentation put "Hook run after entering or leaving `prettify-symbols-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 prettify-symbols-mode boundp] 6)
(defalias 'turn-on-prettify-symbols-mode #[0 "?\205\301\302!\205\300\303!\207" [prettify-symbols-mode local-variable-p prettify-symbols-alist 1] 2])
(put 'global-prettify-symbols-mode 'globalized-minor-mode t)
(defvar prettify-symbols-mode-major-mode nil nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315&	\207" [make-variable-buffer-local prettify-symbols-mode-major-mode custom-declare-variable global-prettify-symbols-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Prettify-Symbols mode is enabled.\nSee the `global-prettify-symbols-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-prettify-symbols-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)
#@507 Toggle Prettify-Symbols mode in all buffers.
With prefix ARG, enable Global Prettify-Symbols mode if ARG is
positive; otherwise, disable it.

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.

Prettify-Symbols mode is enabled in all buffers where
`turn-on-prettify-symbols-mode' would do it.

See `prettify-symbols-mode' for more information on Prettify-Symbols
mode.

(fn &optional ARG)
(defalias 'global-prettify-symbols-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B	\203N\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202]\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \211\203\203\211@r\211q\210	\203s\325 \210\202{\n\203{\302\326!\210)
A\266\202\202_\210\327\330\306\301!\203\220\331\202\221\332\"\210\333\334!\203\271\335\301!\210\303 \203\251\211\303 \232\203\271\336\337\306\301!\203\265\340\202\266\341\342#\210\210\343 \210\306\301!\207" [global-minor-modes global-prettify-symbols-mode prettify-symbols-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-prettify-symbols-mode-enable-in-buffers find-file-hook global-prettify-symbols-mode-check-buffers change-major-mode-hook global-prettify-symbols-mode-cmhh remove-hook buffer-list turn-on-prettify-symbols-mode -1 run-hooks global-prettify-symbols-mode-hook global-prettify-symbols-mode-on-hook global-prettify-symbols-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Prettify-Symbols mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 12320) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-prettify-symbols-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%\207" [global-prettify-symbols-mode-map global-prettify-symbols-mode-hook variable-documentation put "Hook run after entering or leaving `global-prettify-symbols-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-prettify-symbols-mode boundp] 6)
(defvar prettify-symbols-mode-set-explicitly nil nil)
(make-variable-buffer-local 'prettify-symbols-mode-set-explicitly)
(defalias 'prettify-symbols-mode-set-explicitly #[0 "\301\211\207" [prettify-symbols-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put prettify-symbols-mode-set-explicitly definition-name global-prettify-symbols-mode add-hook prettify-symbols-mode-hook] 4)
(defvar global-prettify-symbols-mode-buffers nil)
(defalias 'global-prettify-symbols-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306
!\2032r\211q\210	\204/\n=\204/\f\203,\304\307!\210\310 \210\202/\310 \210)
A\266\202\202\207" [global-prettify-symbols-mode-buffers prettify-symbols-mode-set-explicitly prettify-symbols-mode-major-mode major-mode prettify-symbols-mode nil buffer-live-p -1 turn-on-prettify-symbols-mode] 5])
(put 'global-prettify-symbols-mode-enable-in-buffers 'definition-name 'global-prettify-symbols-mode)
(defalias 'global-prettify-symbols-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-prettify-symbols-mode-enable-in-buffers remove-hook post-command-hook global-prettify-symbols-mode-check-buffers] 3])
(put 'global-prettify-symbols-mode-check-buffers 'definition-name 'global-prettify-symbols-mode)
(defalias 'global-prettify-symbols-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-prettify-symbols-mode-buffers add-hook post-command-hook global-prettify-symbols-mode-check-buffers] 3])
(put 'global-prettify-symbols-mode-cmhh 'definition-name 'global-prettify-symbols-mode)
(defvar prog-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [prog-mode-hook variable-documentation put "Hook run after entering Prog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp prog-mode-map definition-name prog-mode] 4)
(defvar prog-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [prog-mode-abbrev-table prog-mode-map variable-documentation put purecopy "Keymap for `prog-mode'." boundp prog-mode-syntax-table definition-name prog-mode (lambda (#1=#:def-tmp-var) (defvar prog-mode-syntax-table #1#)) make-syntax-table "Syntax table for `prog-mode'." (lambda (#1#) (defvar prog-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `prog-mode'." derived-mode-parent] 5)
#@175 Major mode for editing programming language source code.

This mode runs the hook `prog-mode-hook', as the final or penultimate
step during initialization.

\{prog-mode-map}
(defalias 'prog-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\306\315!\210
\306\316!\210\307\317\320\321\322\307$\210\323)\324\325!\207" [delay-mode-hooks major-mode mode-name prog-mode-map prog-mode-syntax-table prog-mode-abbrev-table make-local-variable t kill-all-local-variables prog-mode "Prog" use-local-map set-syntax-table require-final-newline parse-sexp-ignore-comments add-hook context-menu-functions prog-context-menu 10 left-to-right run-mode-hooks prog-mode-hook local-abbrev-table mode-require-final-newline bidi-paragraph-direction] 5 (#$ . 17421) nil])
(provide 'prog-mode)