HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/net/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/net/goto-addr.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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]+" (#$ . 1577))
#@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) (#$ . 1744))
#@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) (#$ . 2050))
(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 (#$ . 2855)])
#@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\206e	\206d\"\210\212\307\206eb\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\220eb\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 (#$ . 3158)])
#@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 (#$ . 4488)])
(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 (#$ . 4896) (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 (#$ . 5637)])
#@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 (#$ . 6128) 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 (#$ . 6633))
(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) "\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 (#$ . 6833) (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 (#$ . 8239))
(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) "\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 (#$ . 8458) (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)