;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:45 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/net/goto-addr.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`goto-addr.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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&\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 hypermedia] 8) #@123 *Non-nil means URLs and e-mail addresses in buffer are fontified. But only if `goto-address-highlight-p' is also non-nil. (custom-declare-variable 'goto-address-fontify-p 't '(#$ . -1163) :type 'boolean :group 'goto-address) #@69 *Non-nil means URLs and e-mail addresses in buffer are highlighted. (custom-declare-variable 'goto-address-highlight-p 't '(#$ . -1394) :type 'boolean :group 'goto-address) #@66 *Maximum size of file in which to fontify and/or highlight URLs. (custom-declare-variable 'goto-address-fontify-maximum-size '30000 '(#$ . -1573) :type 'integer :group 'goto-address) #@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]+" (#$ . 1762)) #@47 A regular expression probably matching a URL. (defvar goto-address-url-regexp thing-at-point-url-regexp (#$ . 1927)) #@67 keymap to hold goto-addr's mouse key defs under highlighted URLs. (defvar goto-address-highlight-keymap (byte-code "\301 \302\303!\203\304\305\306#\210\202\304\307\306#\210\304\310\311#\210)\207" [m make-sparse-keymap featurep xemacs define-key [button2] goto-address-at-mouse [mouse-2] " " goto-address-at-point] 4) (#$ . 2050)) #@23 Face to use for URLs. (custom-declare-variable 'goto-address-url-face ''bold '(#$ . 2396) :type 'face :group 'goto-address) #@49 Face to use for URLs when the mouse is on them. (custom-declare-variable 'goto-address-url-mouse-face ''highlight '(#$ . 2526) :type 'face :group 'goto-address) #@35 Face to use for e-mail addresses. (custom-declare-variable 'goto-address-mail-face ''italic '(#$ . 2693) :type 'face :group 'goto-address) #@61 Face to use for e-mail addresses when the mouse is on them. (custom-declare-variable 'goto-address-mail-mouse-face ''secondary-selection '(#$ . 2838) :type 'face :group 'goto-address) #@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 #[nil "\306ed\"\307\211\203 @\310\311\"\203\312!\210 A\211\204 *\212\313eb\210d`Z W\205\275\314\f\307\313#\203t\315\224\315\225\316 \"\203R\317\320#\210\317\321#\210\317\322\323#\210\317\324#\210\317\311\313#\210+\202/eb\210\314\307\313#\205\275\315\224\315\225\316 \"\203\233\317\320#\210\317\321#\210\317\322\325#\210\317\324#\210\317\311\313#\210+\202w*\207" [overlay #1=#:--dolist-temp--97269 inhibit-point-motion-hooks goto-address-fontify-maximum-size goto-address-url-regexp s overlays-in nil overlay-get goto-address delete-overlay t re-search-forward 0 make-overlay overlay-put face mouse-face help-echo "mouse-2: follow URL" keymap "mouse-2: mail this address" e this-overlay 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 (#$ . 3029)]) #@273 Send to the e-mail address or load the URL clicked with the mouse. Send mail to address at position of mouse click. See documentation for `goto-address-find-address-at-point'. If no address is found there, then load the URL at or before the position of the mouse click. (defalias 'goto-address-at-mouse #[(event) "\212\301!\210\302 )\207" [event mouse-set-point goto-address-at-point] 2 (#$ . 4165) "e"]) #@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 #[nil "\212\212\303 )\211\203!\212\304`\305\306\307 $b\210\310 !)\204!\311!\2022\312 \211\203.\313\n!\2021\314\315!)*\207" [address goto-address-url-regexp url 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 (#$ . 4580) nil]) #@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 (#$ . 5234)]) #@324 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 to mouse-2 and C-c RET. 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 (#$ . 5725) nil]) (provide 'goto-addr)