1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / self / root / usr / share / emacs / 24.3 / lisp / net /
Filename : goto-addr.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:32 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/goto-addr.el
;;; in Emacs version 24.3.1
;;; 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\302\303\304\"\210\305\306!\204�\300\307!\210\305\310!\204�\311\310\312\"\210\305\313!\204)�\311\313\314\"\210\305\315!\2044�\311\315\316\"\210\317\320\321\322\323\324\323\325&\210\326\327\330\331\332\333\323\320&\210\326\334\330\335\332\333\323\320&\210\326\336\337\340\332\341\323\320&\207" [require thingatpt autoload browse-url-url-at-point "browse-url" fboundp overlays-in overlay line-beginning-position defalias point-at-bol line-end-position point-at-eol match-string-no-properties match-string 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]+" (#$ . 1725))
#@47 A regular expression probably matching a URL.
(defvar goto-address-url-regexp (byte-code "\302\303\304\305\306\305\307\310!\"\"\311#\312	R\207" [thing-at-point-uri-schemes thing-at-point-url-path-regexp "\\<\\(" mapconcat identity delete "mailto:" "data:" copy-sequence "\\|" "\\)"] 9) (#$ . 1892))
#@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) (#$ . 2198))
(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!\210A\211\204�\305*\207" [start end overlay --dolist-tail-- overlays-in nil overlay-get goto-address delete-overlay] 4 (#$ . 3003)])
#@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`ZW\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 (#$ . 3306)])
#@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 (#$ . 4636)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias goto-address-at-mouse goto-address-at-point nil make-obsolete "22.1"] 4)
#@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 (#$ . 5044) (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-z0-9.@]" line-beginning-position lim looking-at re-search-forward line-end-position 0 match-string-no-properties] 4 (#$ . 5785)])
#@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 (#$ . 6276) 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 (#$ . 6781))
(make-variable-buffer-local 'goto-address-mode)
#@228 Minor mode to buttonize URLs and e-mail addresses in the current buffer.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
(defalias 'goto-address-mode #[(&optional arg) "\303 	\304=\203�\n?\202�\305	!\306V\211\203�\307\310!\210\202,�\311\310!\210\214~\210\312ed\"\210)\313\314\n\2036�\315\2027�\316\"\210\317\320!\203X�\303 \203K�\303 \232\203X�\321\322\n\203U�\323\202V�\324\"\210)\325 \210\n\207" [#1=#:last-message arg goto-address-mode 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 message "Goto-Address mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 6981) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n�\305\211%\207" [goto-address-mode-map 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 (#$ . 8043))
(make-variable-buffer-local 'goto-address-prog-mode)
#@62 Like `goto-address-mode', but only for comments and strings.
(defalias 'goto-address-prog-mode #[(&optional arg) "\303 	\304=\203�\n?\202�\305	!\306V\211\203�\307\310!\210\202,�\311\310!\210\214~\210\312ed\"\210)\313\314\n\2036�\315\2027�\316\"\210\317\320!\203X�\303 \203K�\303 \232\203X�\321\322\n\203U�\323\202V�\324\"\210)\325 \210\n\207" [#1=#:last-message arg goto-address-prog-mode 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 message "Goto-Address-Prog mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 8262) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n�\305\211%\210\306\307!\207" [goto-address-prog-mode-map add-minor-mode goto-address-prog-mode "" boundp nil provide goto-addr] 6)