ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/goto-addr.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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]+" (#$ . 1579))
#@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) (#$ . 1746))
#@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) (#$ . 2052))
(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 (#$ . 2857)])
#@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 (#$ . 3160)])
#@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 (#$ . 4490)])
(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 (#$ . 4898) (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 (#$ . 5639)])
#@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 (#$ . 6130) 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 (#$ . 6635))
(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 (#$ . 6835) (list (or current-prefix-arg 'toggle))])
#@182 Hook run after entering or leaving `goto-address-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar goto-address-mode-hook nil (#$ . 7804))
(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 (#$ . 8170))
(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 (#$ . 8389) (list (or current-prefix-arg 'toggle))])
#@187 Hook run after entering or leaving `goto-address-prog-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar goto-address-prog-mode-hook nil (#$ . 9222))
(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)
Kontol Shell Bypass