Current File : //usr/local/share/emacs/27.2/lisp/net/goto-addr.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\303\304\305\"\210\306\307\310\311\312\313\312\314&\210\315\316\317\320\321\322\312\307&\210\315\323\317\324\321\322\312\307&\210\315\325\326\327\321\330\312\307&\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 t "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 "Non-nil means URLs and e-mail addresses in buffer are highlighted." goto-address-fontify-maximum-size 30000 "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]+" (#$ . 1322))
#@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:") (#$ . 1490))
#@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 #[(accum elt) "\302 \"\207" [elt accum delete] 3] copy-sequence] 5) (#$ . 1721))
#@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) (#$ . 2091))
#@67 Keymap to hold goto-addr's mouse key defs under highlighted URLs.
(defvar goto-address-highlight-keymap (byte-code "\301 \302\303\304#\210\302\305\304#\210)\207" [m make-sparse-keymap define-key [mouse-2] goto-address-at-point "
"] 4) (#$ . 2303))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\207" [custom-declare-variable goto-address-url-face 'link "Face to use for URLs." :type face :group goto-address goto-address-url-mouse-face 'highlight "Face to use for URLs when the mouse is on them." goto-address-mail-face 'italic "Face to use for e-mail addresses." goto-address-mail-mouse-face 'secondary-selection "Face to use for e-mail addresses when the mouse is on them."] 8)
#@60 Remove `goto-address' fontification from the given region.
(defalias 'goto-address-unfontify #[(start end) "\304 \"\305\211\205! @\306\n\307\"\203 \310\n!\210 A\211\204 \305*\207" [start end overlay --dolist-tail-- overlays-in nil overlay-get goto-address delete-overlay] 4 (#$ . 3108)])
#@144 Fontify the URLs and e-mail addresses in the current buffer.
This function implements `goto-address-highlight-p'
and `goto-address-fontify-p'.
(defalias 'goto-address-fontify #[(&optional start end) "\306\206 e \206 d\"\210\212\307\206 eb\210 \307=\204) \206\" d`Z W\205\365 \310\f \307#\203\213 \311\224 \311\225 \312 \203G \313\314 8\203\207 \315
\"\203[ \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+\202) \206\220 eb\210\310 \307#\205\365 \311\224 \311\225 \312 \203\261 \313\314 8\203\361 \315
\"\203\305 \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+\202\222 *\207" [start end inhibit-point-motion-hooks goto-address-fontify-maximum-size goto-address-url-regexp s 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" e this-overlay goto-address-prog-mode goto-address-fontify-p goto-address-url-face goto-address-url-mouse-face goto-address-highlight-keymap goto-address-mail-regexp goto-address-mail-face goto-address-mail-mouse-face] 4 (#$ . 3411)])
#@56 Fontify URLs and e-mail addresses in the given region.
(defalias 'goto-address-fontify-region #[(start end) "\212b\210\304 b\210\305 \306 \n\"+\207" [start end end-line beg-line line-beginning-position line-end-position goto-address-fontify] 3 (#$ . 4741)])
#@215 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.
(defalias 'goto-address-at-point #[(&optional event) "\212\203 \304\305!!\210\212\306 )\211\203+ \212\307`\310\311\312 $b\210\313\n!)\204+ \314 !\202< \315 \211\2038 \316 !\202; \317\320!)*\207" [event address goto-address-url-regexp url 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"] 6 (#$ . 5010) (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 #[nil "\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 (#$ . 5751)])
#@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 #[nil "\205 \301 \207" [goto-address-highlight-p goto-address-fontify] 1 (#$ . 6245) 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 (#$ . 6750))
(make-variable-buffer-local 'goto-address-mode)
#@319 Minor mode to buttonize URLs and e-mail addresses in the current buffer.
If called interactively, enable Goto-Address 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 'goto-address-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\203 \310\311!\210\202, \312\311!\210\214~\210\313ed\"\210)\314\315\n\2036 \316\2027 \317\"\210\320\321!\203\\ \304 \203K \304 \232\203\\ \322\323\324\n\203W \325\202X \326 #\210))\327 \210\n\207" [#1=#:last-message arg goto-address-mode local current-message toggle prefix-numeric-value 0 jit-lock-register goto-address-fontify-region jit-lock-unregister goto-address-unfontify run-hooks goto-address-mode-hook goto-address-mode-on-hook goto-address-mode-off-hook called-interactively-p any " in current buffer" message "Goto-Address mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 6950) (list (or current-prefix-arg 'toggle))])
(defvar goto-address-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\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.)" add-minor-mode goto-address-mode "" boundp nil] 6)
#@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 (#$ . 8447))
(make-variable-buffer-local 'goto-address-prog-mode)
#@312 Like `goto-address-mode', but only for comments and strings.
If called interactively, enable Goto-Address-Prog 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 'goto-address-prog-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\211\203 \310\311!\210\202, \312\311!\210\214~\210\313ed\"\210)\314\315\n\2036 \316\2027 \317\"\210\320\321!\203\\ \304 \203K \304 \232\203\\ \322\323\324\n\203W \325\202X \326 #\210))\327 \210\n\207" [#1=#:last-message arg goto-address-prog-mode local current-message toggle prefix-numeric-value 0 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 " in current buffer" message "Goto-Address-Prog mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 8667) (list (or current-prefix-arg 'toggle))])
(defvar goto-address-prog-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\312\313!\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.)" add-minor-mode goto-address-prog-mode "" boundp nil provide goto-addr] 6)
Mini Shell