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



(byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\306\307\310\311\312\313\312\314&\210\315\316\317\320\321DD\322\323\324%\210\315\325\317\320\326DD\327\323\324%\210\315\330\317\320\331DD\332\323\333%\207" [require seq thingatpt autoload browse-url-url-at-point "browse-url" custom-declare-group goto-address nil "Click to browse URL or to send to e-mail address." :group mouse comm custom-declare-variable goto-address-fontify-p funcall function #[0 "\300\207" [t] 1 #1=""] "Non-nil means URLs and e-mail addresses in buffer are fontified.\nBut only if `goto-address-highlight-p' is also non-nil." :type boolean goto-address-highlight-p #[0 "\300\207" [t] 1 #1#] "Non-nil means URLs and e-mail addresses in buffer are highlighted." goto-address-fontify-maximum-size #[0 "\300\207" [30000] 1 #1#] "Maximum size of file in which to fontify and/or highlight URLs.\nA value of t means there is no limit--fontify regardless of the size." (choice (integer :tag "Maximum size") (const :tag "No limit" t))] 8)
#@59 A regular expression probably matching an e-mail address.
(defvar goto-address-mail-regexp "[-a-zA-Z0-9=._+]+@\\([-a-zA-Z0-9_]+\\.\\)+[a-zA-Z0-9]+" (#$ . 1094))
#@150 List of URI schemes to exclude from `goto-address-uri-schemes'.

Customizations to this variable made after goto-addr is loaded
will have no effect.
(defvar goto-address-uri-schemes-ignored '("mailto:" "data:") (#$ . 1262))
#@144 List of URI schemes matched by `goto-address-url-regexp'.

Customizations to this variable made after goto-addr is loaded
will have no effect.
(defvar goto-address-uri-schemes (byte-code "\302\303\304	!#\207" [goto-address-uri-schemes-ignored thing-at-point-uri-schemes seq-reduce #[514 "\300
\"\207" [delete] 5 "\n\n(fn ACCUM ELT)"] copy-sequence] 5) (#$ . 1493))
#@47 A regular expression probably matching a URL.
(defvar goto-address-url-regexp (byte-code "\302\303\304\"	Q\207" [goto-address-uri-schemes thing-at-point-url-path-regexp "\\<" regexp-opt t] 4) (#$ . 1866))
#@67 Keymap to hold goto-addr's mouse key defs under highlighted URLs.
(defvar goto-address-highlight-keymap (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\207" [make-sparse-keymap define-key [mouse-2] goto-address-at-point "
"] 5) (#$ . 2078))
#@71 Populate MENU with `goto-address' commands at CLICK.

(fn MENU CLICK)
(defalias 'goto-address-context-menu #[514 "\301\302!\303\"\203\304\305#\210\304\306\307#\210
\207" [menu-bar-separator mouse-posn-property event-start goto-address define-key [goto-address-separator] [goto-address-at-mouse] (menu-item "Follow Link" goto-address-at-mouse :help "Follow a link where you click")] 6 (#$ . 2332)])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\307%\210\300\313\302\303\314DD\315\306\307%\210\300\316\302\303\317DD\320\306\307%\207" [custom-declare-variable goto-address-url-face funcall function #[0 "\300\207" [link] 1 #1=""] "Face to use for URLs." :type face goto-address-url-mouse-face #[0 "\300\207" [highlight] 1 #1#] "Face to use for URLs when the mouse is on them." goto-address-mail-face #[0 "\300\207" [italic] 1 #1#] "Face to use for e-mail addresses." goto-address-mail-mouse-face #[0 "\300\207" [secondary-selection] 1 #1#] "Face to use for e-mail addresses when the mouse is on them."] 6)
#@76 Remove `goto-address' fontification from the given region.

(fn START END)
(defalias 'goto-address-unfontify #[514 "\300\"\211\205\211@\301
\302\"\203\303
!\210
A\266\202\202\207" [overlays-in overlay-get goto-address delete-overlay] 7 (#$ . 3383)])
#@170 Fontify the URLs and e-mail addresses in the current buffer.
This function implements `goto-address-highlight-p'
and `goto-address-fontify-p'.

(fn &optional START END)
(defalias 'goto-address-fontify #[512 "\306\206e\206d\"\210\212\307
\206eb\210	\307=\204)\211\206\"d`Z	W\205\330\310\n\307#\203|\311\224\311\225\312\203A\313\314 8\203w\315\"\262
\f\203Q\316
\317
#\210\316
\320\307#\210\316
\321#\210\316
\322\307#\210\316
\323\324#\210\316
\325#\210\316
\326\307#\210\266\202)
\206\201eb\210\310\307#\205\330\311\224\311\225\312\203\234\313\314 8\203\323\315\"\262
\f\203\255\316
\317#\210\316
\320\307#\210\316
\321#\210\316
\322\307#\210\316
\323\327#\210\316
\325#\210\316
\326\307#\210\266\202\203*\207" [inhibit-point-motion-hooks goto-address-fontify-maximum-size goto-address-url-regexp goto-address-prog-mode goto-address-fontify-p goto-address-url-face goto-address-unfontify t re-search-forward 0 nil 8 syntax-ppss make-overlay overlay-put face evaporate mouse-face follow-link help-echo "mouse-2, C-c RET: follow URL" keymap goto-address "mouse-2, C-c RET: mail this address" goto-address-url-mouse-face goto-address-highlight-keymap goto-address-mail-regexp goto-address-mail-face goto-address-mail-mouse-face] 9 (#$ . 3648)])
#@72 Fontify URLs and e-mail addresses in the given region.

(fn START END)
(defalias 'goto-address-fontify-region #[514 "\212
b\210\300 
b\210\301 \302\"\266\202)\207" [line-beginning-position line-end-position goto-address-fontify] 7 (#$ . 4941)])
#@237 Send to the e-mail address or load the URL at point.
Send mail to address at point.  See documentation for
`goto-address-find-address-at-point'.  If no address is found
there, then load the URL at or before point.

(fn &optional EVENT)
(defalias 'goto-address-at-point #[256 "\212\211\203\301\302!!\210\212\303 )\211\203*\212\304`\305\306\307 $b\210\310!)\204*\311
!\202;\312 \211\2036\313
!\2029\314\315!\262
\262
)\207" [goto-address-url-regexp posn-set-point event-end goto-address-find-address-at-point previous-single-char-property-change goto-address nil line-beginning-position looking-at compose-mail browse-url-url-at-point browse-url error "No e-mail address or URL found"] 7 (#$ . 5195) (list last-input-event)])
#@165 Find e-mail address around or before point.
Then search backwards to beginning of line for the start of an e-mail
address.  If no e-mail address found, return nil.
(defalias 'goto-address-find-address-at-point #[0 "\301\302\303 \304#\210\305!\204\306\307 \304#\205\310\224b\205\311\310!\207" [goto-address-mail-regexp re-search-backward "[^-_A-Za-z0-9.@]" line-beginning-position lim looking-at re-search-forward line-end-position 0 match-string-no-properties] 4 (#$ . 5935)])
#@72 Send to the e-mail address or load the URL at mouse click.

(fn CLICK)
(defalias 'goto-address-at-mouse #[257 "\300
!\207" [goto-address-at-point] 3 (#$ . 6426) "e"])
#@382 Sets up goto-address functionality in the current buffer.
Allows user to use mouse/keyboard command to click to go to a URL
or to send e-mail.
By default, goto-address binds `goto-address-at-point' to mouse-2 and C-c RET
only on URLs and e-mail addresses.

Also fontifies the buffer appropriately (see `goto-address-fontify-p' and
`goto-address-highlight-p' for more information).
(defalias 'goto-address #[0 "\205\301 \207" [goto-address-highlight-p goto-address-fontify] 1 (#$ . 6600) nil])
#@103 Non-nil if Goto-Address mode is enabled.
Use the command `goto-address-mode' to change this variable.
(defvar goto-address-mode nil (#$ . 7103))
(make-variable-buffer-local 'goto-address-mode)
#@633 Minor mode to buttonize URLs and e-mail addresses in the current buffer.

This is a minor mode.  If called interactively, toggle the
`Goto-Address 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 `goto-address-mode'.

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

(fn &optional ARG)
(defalias 'goto-address-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\203C\311\312!\210\313\314\315\316\306$\210\202V\317\312!\210\214~\210\320ed\"\210)\321\314\315\306#\210\322\323\203`\324\202a\325\"\210\326\327!\203\203\302 \203u\211\302 \232\203\203\330\331\203\332\202\200\333\334#\210\210\335 \210\207" [goto-address-mode local-minor-modes current-message toggle 1 nil t boundp delq jit-lock-register goto-address-fontify-region add-hook context-menu-functions goto-address-context-menu 10 jit-lock-unregister goto-address-unfontify remove-hook run-hooks goto-address-mode-hook goto-address-mode-on-hook goto-address-mode-off-hook called-interactively-p any message "Goto-Address mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 7303) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar goto-address-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%\207" [goto-address-mode-map goto-address-mode-hook variable-documentation put "Hook run after entering or leaving `goto-address-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 goto-address-mode "" boundp] 6)
(defalias 'goto-addr-mode--turn-on #[0 "?\205\300\301!\207" [goto-address-mode 1] 2])
(put 'global-goto-address-mode 'globalized-minor-mode t)
(defvar goto-address-mode-major-mode nil nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317&\207" [make-variable-buffer-local goto-address-mode-major-mode custom-declare-variable global-goto-address-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Goto-Address mode is enabled.\nSee the `global-goto-address-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-goto-address-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :version "28.1"] 12)
#@481 Toggle Goto-Address mode in all buffers.
With prefix ARG, enable Global Goto-Address 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.

Goto-Address mode is enabled in all buffers where
`goto-addr-mode--turn-on' would do it.

See `goto-address-mode' for more information on Goto-Address mode.

(fn &optional ARG)
(defalias 'global-goto-address-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-goto-address-mode goto-address-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-goto-address-mode-enable-in-buffers find-file-hook global-goto-address-mode-check-buffers change-major-mode-hook global-goto-address-mode-cmhh remove-hook buffer-list goto-addr-mode--turn-on -1 run-hooks global-goto-address-mode-hook global-goto-address-mode-on-hook global-goto-address-mode-off-hook called-interactively-p any customize-mark-as-set message "Global Goto-Address mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 10240) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-goto-address-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-goto-address-mode-map global-goto-address-mode-hook variable-documentation put "Hook run after entering or leaving `global-goto-address-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-goto-address-mode boundp] 6)
(defvar goto-address-mode-set-explicitly nil nil)
(make-variable-buffer-local 'goto-address-mode-set-explicitly)
(defalias 'goto-address-mode-set-explicitly #[0 "\301\211\207" [goto-address-mode-set-explicitly t] 2])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put goto-address-mode-set-explicitly definition-name global-goto-address-mode add-hook goto-address-mode-hook] 4)
(defvar global-goto-address-mode-buffers nil)
(defalias 'global-goto-address-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-goto-address-mode-buffers goto-address-mode-set-explicitly goto-address-mode-major-mode major-mode goto-address-mode nil buffer-live-p -1 goto-addr-mode--turn-on] 5])
(put 'global-goto-address-mode-enable-in-buffers 'definition-name 'global-goto-address-mode)
(defalias 'global-goto-address-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-goto-address-mode-enable-in-buffers remove-hook post-command-hook global-goto-address-mode-check-buffers] 3])
(put 'global-goto-address-mode-check-buffers 'definition-name 'global-goto-address-mode)
(defalias 'global-goto-address-mode-cmhh #[0 "p\211\235\203
\266\202\211B\210\301\302\303\"\207" [global-goto-address-mode-buffers add-hook post-command-hook global-goto-address-mode-check-buffers] 3])
(put 'global-goto-address-mode-cmhh 'definition-name 'global-goto-address-mode)
#@113 Non-nil if Goto-Address-Prog mode is enabled.
Use the command `goto-address-prog-mode' to change this variable.
(defvar goto-address-prog-mode nil (#$ . 14057))
(make-variable-buffer-local 'goto-address-prog-mode)
#@631 Like `goto-address-mode', but only for comments and strings.

This is a minor mode.  If called interactively, toggle the
`Goto-Address-Prog 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 `goto-address-prog-mode'.

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

(fn &optional ARG)
(defalias 'goto-address-prog-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\203<\311\312!\210\202I\313\312!\210\214~\210\314ed\"\210)\315\316\203S\317\202T\320\"\210\321\322!\203v\302 \203h\211\302 \232\203v\323\324\203r\325\202s\326\327#\210\210\330 \210\207" [goto-address-prog-mode local-minor-modes current-message toggle 1 nil t boundp delq jit-lock-register goto-address-fontify-region jit-lock-unregister goto-address-unfontify run-hooks goto-address-prog-mode-hook goto-address-prog-mode-on-hook goto-address-prog-mode-off-hook called-interactively-p any message "Goto-Address-Prog mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 14278) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar goto-address-prog-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!\207" [goto-address-prog-mode-map goto-address-prog-mode-hook variable-documentation put "Hook run after entering or leaving `goto-address-prog-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 goto-address-prog-mode "" boundp provide goto-addr] 6)