;ELC   
;;; Compiled by rms@psilocin.ai.mit.edu on Tue Jun 23 11:53:44 1998
;;; from file /gd/gnu/emacs/lisp/browse-url.el
;;; in Emacs version 20.2.95.4
;;; with bytecomp version 2.46
;;; 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 "`browse-url.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'browse-url nil "Use a web browser to look at a URL." :prefix "browse-url-" :group 'hypermedia)
#@494 *Function to display the current buffer in a WWW browser.
This is used by the `browse-url-at-point', `browse-url-at-mouse', and
`browse-url-of-file' commands.

If the value is not a function it should be a list of pairs
(REGEXP . FUNCTION).  In this case the function called will be the one
associated with the first REGEXP which matches the current URL.  The
function is passed the URL and any other args of `browse-url'.  The last
regexp should probably be "." to specify a default browser.
(custom-declare-variable 'browse-url-browser-function ''browse-url-netscape '(#$ . -727) :type '(choice (function-item :tag "Emacs W3" :value browse-url-w3) (function-item :tag "W3 in another Emacs via `gnudoit'" :value browse-url-w3-gnudoit) (function-item :tag "Netscape" :value browse-url-netscape) (function-item :tag "Mosaic" :value browse-url-mosaic) (function-item :tag "Mosaic using CCI" :value browse-url-cci) (function-item :tag "IXI Mosaic" :value browse-url-iximosaic) (function-item :tag "Lynx in an xterm window" :value browse-url-lynx-xterm) (function-item :tag "Lynx in an Emacs window" :value browse-url-lynx-emacs) (function-item :tag "Grail" :value browse-url-grail) (function-item :tag "MMM" :value browse-url-mmm) (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) (function :tag "Your own function")) :group 'browse-url)
#@324 The name by which to invoke Netscape.

It is said that source is available for a program `netscape-remote'
which starts up very much quicker than `netscape' and that it is
useful to set this variable to the name of a script which invokes that
program like:
 #!/bin/sh
 /usr/local/bin/netscape-remote "$@" > /dev/null 2>&1

(custom-declare-variable 'browse-url-netscape-program '"netscape" '(#$ . 2110) :type 'string :group 'browse-url)
#@53 A list of strings to pass to Netscape as arguments.
(custom-declare-variable 'browse-url-netscape-arguments 'nil '(#$ . 2552) :type '(repeat (string :tag "Argument")) :group 'browse-url)
#@151 A list of strings to pass to Netscape when it starts up.
Defaults to the value of `browse-url-netscape-arguments' at the time
`browse-url' is loaded.
(custom-declare-variable 'browse-url-netscape-startup-arguments 'browse-url-netscape-arguments '(#$ . 2746) :type '(repeat (string :tag "Argument")) :group 'browse-url)
#@289 *If non-nil, always open a new browser window with appropriate browsers.
Passing an interactive argument to \[browse-url], or specific browser
commands reverses the effect of this variable.  Requires Netscape version
1.1N or later or XMosaic version 2.5 or later if using those browsers.
(custom-declare-variable 'browse-url-new-window-p 'nil '(#$ . -3072) :type 'boolean :group 'browse-url)
#@61 *The X display for running Netscape, if not same as Emacs'.
(custom-declare-variable 'browse-url-netscape-display 'nil '(#$ . -3470) :type '(choice string (const :tag "Default" nil)) :group 'browse-url)
#@50 The name by which to invoke Mosaic (or mMosaic).
(custom-declare-variable 'browse-url-mosaic-program '"xmosaic" '(#$ . 3679) :type 'string :version "20.3" :group 'browse-url)
#@51 A list of strings to pass to Mosaic as arguments.
(custom-declare-variable 'browse-url-mosaic-arguments 'nil '(#$ . 3860) :type '(repeat (string :tag "Argument")) :group 'browse-url)
#@746 An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.
Any substring of a filename matching one of the REGEXPs is replaced by
the corresponding STRING using `replace-match', not treating STRING
literally.  All pairs are applied in the order given.  The default
value converts ange-ftp/EFS-style paths into ftp URLs and prepends
`file:' to any path beginning with `/'.

For example, adding to the default a specific translation of an ange-ftp
address to an HTTP URL:

    (setq browse-url-filename-alist
	  '(("/webmaster@webserver:/home/www/html/" .
	     "http://www.acme.co.uk/")
            ("^/\(ftp@\|anonymous@\)?\([^:]+\):/*" . "ftp://\2/")
            ("^/\([^:@]+@\)?\([^:]+\):/*" . "ftp://\1\2/")
	    ("^/+" . "file:/")))

(custom-declare-variable 'browse-url-filename-alist ''(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") ("^/+" . "file:/")) '(#$ . 4050) :type '(repeat (cons :format "%v" (regexp :tag "Regexp") (string :tag "Replacement"))) :version "20.3" :group 'browse-url)
#@100 *If non-nil, save the buffer before displaying its file.
Used by the `browse-url-of-file' command.
(custom-declare-variable 'browse-url-save-file 'nil '(#$ . -5126) :type 'boolean :group 'browse-url)
#@183 Run after `browse-url-of-file' has asked a browser to load a file.

Set this to `browse-url-netscape-reload' to force Netscape to load the
file rather than displaying a cached copy.
(custom-declare-variable 'browse-url-of-file-hook 'nil '(#$ . 5333) :type 'hook :options '(browse-url-netscape-reload) :group 'browse-url)
#@182 The argument to `signal-process' for sending SIGUSR1 to XMosaic.
Emacs 19.29 accepts 'SIGUSR1, earlier versions require an integer
which is 30 on SunOS and 16 on HP-UX and Solaris.
(defvar browse-url-usr1-signal (byte-code "\302\300!\203 \303V\204 	\304Y\203 \305\207\306\207" [emacs-major-version emacs-minor-version boundp 19 29 SIGUSR1 30] 2) (#$ . 5661))
#@132 Port to access XMosaic via CCI.
This can be any number between 1024 and 65535 but must correspond to
the value set in the browser.
(custom-declare-variable 'browse-url-CCI-port '3003 '(#$ . 6031) :type 'integer :group 'browse-url)
#@169 *Host to access XMosaic via CCI.
This should be the host name of the machine running XMosaic with CCI
enabled.  The port number should be set in `browse-url-CCI-port'.
(custom-declare-variable 'browse-url-CCI-host '"localhost" '(#$ . -6269) :type 'string :group 'browse-url)
(byte-code "\302\300!\204 \303\300	B\304\300!\207" [browse-url-temp-file-name current-load-list boundp nil make-variable-buffer-local] 2)
#@133 The name of the terminal emulator used by `browse-url-lynx-xterm'.
This might, for instance, be a separate colour version of xterm.
(custom-declare-variable 'browse-url-xterm-program '"xterm" '(#$ . 6692) :type 'string :group 'browse-url)
#@109 *A list of strings defining options for `browse-url-xterm-program'.
These might set its size, for instance.
(custom-declare-variable 'browse-url-xterm-args 'nil '(#$ . -6938) :type '(repeat (string :tag "Argument")) :group 'browse-url)
#@260 A list of strings defining options for Lynx in an Emacs buffer.

The default is none in a window system, otherwise `-show_cursor' to
indicate the position of the current link in the absence of
highlighting, assuming the normal default for showing the cursor.
(custom-declare-variable 'browse-url-lynx-emacs-args '(and (not window-system) '("-show_cursor")) '(#$ . 7181) :type '(repeat (string :tag "Argument")) :version "20.3" :group 'browse-url)
#@68 The name of the `gnudoit' program used by `browse-url-w3-gnudoit'.
(custom-declare-variable 'browse-url-gnudoit-program '"gnudoit" '(#$ . 7634) :type 'string :group 'browse-url)
#@111 *A list of strings defining options for `browse-url-gnudoit-program'.
These might set the port, for instance.
(custom-declare-variable 'browse-url-gnudoit-args ''("-q") '(#$ . -7819) :type '(repeat (string :tag "Argument")) :group 'browse-url)
#@64 *The name of the browser program used by `browse-url-generic'.
(custom-declare-variable 'browse-url-generic-program 'nil '(#$ . -8069) :type '(choice string (const :tag "None" nil)) :group 'browse-url)
#@71 *A list of strings defining options for `browse-url-generic-program'.
(custom-declare-variable 'browse-url-generic-args 'nil '(#$ . -8277) :type '(repeat (string :tag "Argument")) :group 'browse-url)
#@219 The name of a directory for browse-url's temporary files.
Such files are generated by functions like `browse-url-of-region'.
You might want to set this to somewhere with restricted read permissions
for privacy's sake.
(custom-declare-variable 'browse-url-temp-dir 'temporary-file-directory '(#$ . 8484) :type 'string :group 'browse-url)
#@129 The version of Netscape you are using.
This affects how URL reloading is done; the mechanism changed
incompatibly at version 4.
(custom-declare-variable 'browse-url-netscape-version '3 '(#$ . 8828) :type 'number :group 'browse-url)
#@440 *Action on selecting an existing Lynx buffer at an input field.
What to do when sending a new URL to an existing Lynx buffer in Emacs
if the Lynx cursor is on an input field (in which case the `g' command
would be entered as data).  Such fields are recognized by the
underlines ____.  Allowed values: nil: disregard it, 'warn: warn the
user and don't emit the URL, 'avoid: try to avoid the field by moving
down (this *won't* always work).
(custom-declare-variable 'browse-url-lynx-input-field ''avoid '(#$ . -9067) :type '(choice (const :tag "Move to try to avoid field" :value avoid) (const :tag "Disregard" :value nil) (const :tag "Warn, don't emit URL" :value warn)) :version "20.3" :group 'browse-url)
#@73 *How many times to try to move down from a series of lynx input fields.
(defvar browse-url-lynx-input-attempts 10 (#$ . -9779))
#@75 How many seconds to wait for lynx between moves down from an input field.
(custom-declare-variable 'browse-url-lynx-input-delay '0.2 '(#$ . 9913))
(byte-code "\302\300!\204 \303\300	B\303\207" [browse-url-temp-file-list current-load-list boundp nil] 2)
(defalias 'browse-url-url-at-point #[nil "\301\300!\302\303G\304$\210)\207" [url thing-at-point set-text-properties 0 nil] 5])
#@306 Read a URL from the minibuffer, prompting with PROMPT.
Default to the URL at or before point.  If invoked with a mouse button,
set point to the position clicked first.  Return a list for use in
`interactive' containing the URL and `browse-url-new-window-p' or its
negation if a prefix argument was given.
(defalias 'browse-url-interactive-arg #[(prompt) "\304 \305\234\211<\203 \306!\210)\307	\310 \"\n??=?D\207" [event prompt browse-url-new-window-p current-prefix-arg this-command-keys 0 mouse-set-point read-string browse-url-url-at-point] 4 (#$ . 10307)])
(defalias 'browse-url-maybe-new-window #[(arg) "t\203 \207	\207" [arg browse-url-new-window-p] 1])
#@275 Ask a WWW browser to display FILE.
Display the current buffer's file if FILE is nil or if called
interactively.  Turn the filename into a URL with function
`browse-url-file-url'.  Pass the URL to a browser using the
`browse-url' function then run `browse-url-of-file-hook'.
(defalias 'browse-url-of-file #[(&optional file) "\204 \303 \211\204 \304\305!\210\306!\211\2030 \212	q\210\307 \203/ \n\203* \310 \210\202/ \311\312\"\210))\313\314!!\210\315\316!\207" [file buf browse-url-save-file buffer-file-name error "Current buffer has no file" get-file-buffer buffer-modified-p save-buffer message "%s modified since last save" browse-url browse-url-file-url run-hooks browse-url-of-file-hook] 4 (#$ . 10979) nil])
#@106 Return the URL corresponding to FILE.
Use variable `browse-url-filename-alist' to map filenames to URLs.
(defalias 'browse-url-file-url #[(file) "\306\307\310	#\211\203 \311\312\313\211	$T\202 )\307\314	\"\2034 \315\316	\306\224H\"\311\n\313\211	$)\202 \f\203\\ \f@\211@A\fA\307	\"\203X \311\313\317	$+\2026 )	\207" [s file enc browse-url-filename-alist maps map 0 string-match "%" replace-match "%25" t "[*\"()',=;? ]" format "%%%x" nil from-re to-string] 6 (#$ . 11708)])
#@181 Ask a WWW browser to display BUFFER.
Display the current buffer if BUFFER is nil.  Display only the
currently visible part of BUFFER (from a temporary file) if buffer is
narrowed.
(defalias 'browse-url-of-buffer #[(&optional buffer) "\212\203 q\210deZ\306 U\205 	\206 \307\302!\205 \n\211\2048 \f\204. \310\311\312\313\"!!\f\314ed\315\316%\210\317!*\207" [buffer buffer-file-name dired-directory file-name browse-url-temp-file-name browse-url-temp-dir buffer-size boundp convert-standard-filename make-temp-name expand-file-name "burl" write-region nil no-message browse-url-of-file] 7 (#$ . 12214) nil])
(defalias 'browse-url-delete-temp-file #[(&optional temp-file-name) "\206 	\211\205 \304\n!\205 \305\n!\210?\205 \306	\"\211)\207" [temp-file-name browse-url-temp-file-name file-name browse-url-temp-file-list file-exists-p delete-file delete] 4])
(defalias 'browse-url-delete-temp-file-list #[nil "\205 \301@!\210A\211\204 \302\207" [browse-url-temp-file-list browse-url-delete-temp-file nil] 3])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook kill-buffer-hook browse-url-delete-temp-file kill-emacs-hook browse-url-delete-temp-file-list] 3)
#@69 In Dired, ask a WWW browser to display the file named on this line.
(defalias 'browse-url-of-dired-file #[nil "\300\301 !\207" [browse-url-of-file dired-get-filename] 2 (#$ . 13407) nil])
#@50 Ask a WWW browser to display the current region.
(defalias 'browse-url-of-region #[(min max) "\212\214	}\210\302 *\207" [min max browse-url-of-buffer] 2 (#$ . 13601) "r"])
#@160 Ask a WWW browser to load URL.
Prompts for a URL, defaulting to the URL at or before point.  Variable
`browse-url-browser-function' says which browser to use.
(defalias 'browse-url #[(url &rest args) "\305\211:\203! \n@@\306	\"\203 \n@A\202 \nA\211\202 \n\204* \307\310\"\210\311\n\f#*\207" [browse-url-browser-function re bf url args nil string-match error "No browser in browse-url-browser-function matching URL %s" apply] 5 (#$ . 13781) (browse-url-interactive-arg "URL: ")])
#@170 Ask a WWW browser to load the URL at or before point.
Doesn't let you edit the URL like `browse-url'.  Variable
`browse-url-browser-function' says which browser to use.
(defalias 'browse-url-at-point #[nil "\300\301 !\207" [browse-url browse-url-url-at-point] 2 (#$ . 14278) nil])
(defalias 'browse-url-event-buffer #[(event) "\302\211A@)\211@)!\207" [event position window-buffer] 3])
(defalias 'browse-url-event-point #[(event) "\211A@)\211A@:\203 	A@@\202 	A@)\207" [event position] 2])
#@267 Ask a WWW browser to load a URL clicked with the mouse.
The URL is the one around or before the position of the mouse click
but point is not changed.  Doesn't let you edit the URL like
`browse-url'.  Variable `browse-url-browser-function' says which browser
to use.
(defalias 'browse-url-at-mouse #[(event) "\212\303!q\210\304!b\210\305 \211\306\230\203 \307\310!\210\311	\n\"*\207" [event url browse-url-new-window-p browse-url-event-buffer browse-url-event-point browse-url-url-at-point "" error "No URL found" browse-url] 4 (#$ . 14783) "e"])
#@268 Set DISPLAY in the environment to the X display Netscape is running on.
This is either the value of variable `browse-url-netscape-display' if
non-nil, or the same display as Emacs if different from the current
environment, otherwise just use the current environment.
(defalias 'browse-url-process-environment #[nil "\206 \303 \211\203 \304	P\nB\202 \n)\207" [browse-url-netscape-display display process-environment browse-url-emacs-display "DISPLAY="] 3 (#$ . 15340)])
#@222 Return the X display Emacs is running on.
This is nil if the display is the same as the DISPLAY environment variable.

Actually Emacs could be using several displays; this just returns the
one showing the selected frame.
(defalias 'browse-url-emacs-display #[nil "\300\301 \236\243\211\302\303!\232?\205 )\207" [display frame-parameters getenv "DISPLAY"] 4 (#$ . 15821)])
#@535 Ask the Netscape WWW browser to load URL.

Default to the URL around or before point.  The strings in variable
`browse-url-netscape-arguments' are also passed to Netscape.

When called interactively, if variable `browse-url-new-window-p' is
non-nil, load the document in a new Netscape window, otherwise use a
random existing one.  A non-nil interactive prefix argument reverses
the effect of `browse-url-new-window-p'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-p'.
(defalias 'browse-url-netscape #[(url &optional new-window) "\306\307\"\203 \310\311\312\313\314\315\"!\"\316\211$\202  \317 \320\321\322P\323\n\324\f\325=\2030 C\202= \326\327\330!\205: \331\332RD\"%\333\334\335\336\337EE\"*\207" [url process-environment browse-url-netscape-program browse-url-netscape-arguments window-system new-window string-match "[,)]" replace-match format "%x" string-to-char match-string 0 t browse-url-process-environment apply start-process "netscape " nil append w32 "-remote" "openURL(" browse-url-maybe-new-window ",new-window" ")" set-process-sentinel lambda (process change) browse-url-netscape-sentinel process] 12 (#$ . 16203) (browse-url-interactive-arg "Netscape URL: ")])
#@61 Handle a change to the process communicating with Netscape.
(defalias 'browse-url-netscape-sentinel #[(process url) "\305!\306=\206 \307 \310\311!\210\312\313\314\nP\315\316\f\nC\"%)\207" [process process-environment url browse-url-netscape-program browse-url-netscape-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting Netscape..." apply start-process "netscape" nil append] 8 (#$ . 17468)])
#@92 Ask Netscape to reload its current document.
How depends on `browse-url-netscape-version'.
(defalias 'browse-url-netscape-reload #[nil "\301\302Y\203 \303\202\f \304!\207" [browse-url-netscape-version browse-url-netscape-send 4 "xfeDoCommand(reload)" "reload"] 3 (#$ . 17909) nil])
#@44 Send a remote control command to Netscape.
(defalias 'browse-url-netscape-send #[(command) "\304 \305\306\307\310	\311\n\312D\"%)\207" [process-environment browse-url-netscape-program browse-url-netscape-arguments command browse-url-process-environment apply start-process "netscape" nil append "-remote"] 9 (#$ . 18199)])
#@609 Ask the XMosaic WWW browser to load URL.

Default to the URL around or before point.  The strings in variable
`browse-url-mosaic-arguments' are also passed to Mosaic and the
program is invoked according to the variable
`browse-url-mosaic-program'.

When called interactively, if variable `browse-url-new-window-p' is
non-nil, load the document in a new Mosaic window, otherwise use a
random existing one.  A non-nil interactive prefix argument reverses
the effect of `browse-url-new-window-p'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-p'.
(defalias 'browse-url-mosaic #[(url &optional new-window) "\306\307!\310\311	!\203 \212\312	!\210eb\210\313p!\314\310!\210)\203\\ \315\316\"\316U\203\\ \212\312\317\320\"!\210\321 \210\322\n!\203? \323\202@ \324\325\261\210\326 \210\314\310!\210\327\330!\210\315\f\"\210\327\331!)\202p \327\332!\210\333\334\335\310\336 C\"%\210\327\337!*\207" [pid pidfile new-window url browse-url-usr1-signal browse-url-mosaic-program expand-file-name "~/.mosaicpid" nil file-readable-p find-file read kill-buffer signal-process 0 format "/tmp/Mosaic.%d" erase-buffer browse-url-maybe-new-window "newwin\n" "goto\n" "\n" save-buffer message "Signalling Mosaic..." "Signalling Mosaic...done" "Starting Mosaic..." apply start-process "xmosaic" append "Starting Mosaic...done" browse-url-mosaic-arguments] 8 (#$ . 18531) (browse-url-interactive-arg "Mosaic URL: ")])
#@132 Location of Grail remote control client script `rcgrail.py'.
Typically found in $GRAILDIR/rcgrail.py, or ~/.grail/user/rcgrail.py.
(defvar browse-url-grail (byte-code "\300\301!\206 \302\303P\207" [getenv "GRAILDIR" "~/.grail" "/user/rcgrail.py"] 2) (#$ . 20009))
#@137 Ask the Grail WWW browser to load URL.
Default to the URL around or before point.  Runs the program in the
variable `browse-url-grail'.
(defalias 'browse-url-grail #[(url &optional new-window) "\303\304!\210\212\305\306!q\210\307 \210\203 \310	\311\312\311\313\n&\210\202& \310	\311\312\311\n%\210\303\314!)\207" [new-window browse-url-grail url message "Sending URL to Grail..." get-buffer-create " *Shell Command Output*" erase-buffer call-process nil 0 "-b" "Sending URL to Grail... done"] 7 (#$ . 20281) (browse-url-interactive-arg "Grail URL: ")])
#@658 Ask the XMosaic WWW browser to load URL.
Default to the URL around or before point.

This function only works for XMosaic version 2.5 or later.  You must
select `CCI' from XMosaic's File menu, set the CCI Port Address to the
value of variable `browse-url-CCI-port', and enable `Accept requests'.

When called interactively, if variable `browse-url-new-window-p' is
non-nil, load the document in a new browser window, otherwise use a
random existing one.  A non-nil interactive prefix argument reverses
the effect of `browse-url-new-window-p'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-p'.
(defalias 'browse-url-cci #[(url &optional new-window) "\304\305\306	$\210\307\305\310\n\311\312!\203 \313\202 \314\315\260\"\210\307\305\316\"\210\317\305!\207" [browse-url-CCI-host browse-url-CCI-port url new-window open-network-stream "browse-url" " *browse-url*" process-send-string "get url (" ") output " browse-url-maybe-new-window "new" "current" "\n" "disconnect\n" delete-process] 7 (#$ . 20844) (browse-url-interactive-arg "Mosaic URL: ")])
#@87 Ask the IXIMosaic WWW browser to load URL.
Default to the URL around or before point.
(defalias 'browse-url-iximosaic #[(url &optional new-window) "\301\302\303\302\304%\207" [url start-process "tellw3b" nil "-service WWW_BROWSER ixi_showurl "] 6 (#$ . 21966) (browse-url-interactive-arg "IXI Mosaic URL: ")])
#@396 Ask the w3 WWW browser to load URL.
Default to the URL around or before point.

When called interactively, if variable `browse-url-new-window-p' is
non-nil, load the document in a new window.  A non-nil interactive
prefix argument reverses the effect of `browse-url-new-window-p'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-p'.
(defalias 'browse-url-w3 #[(url &optional new-window) "\302!\203	 \303 \207\304	!\207" [new-window url browse-url-maybe-new-window w3-fetch-other-window w3-fetch] 2 (#$ . 22284) (browse-url-interactive-arg "W3 URL: ")])
#@215 Ask another Emacs running gnuserv to load the URL using the W3 browser.
The `browse-url-gnudoit-program' program is used with options given by
`browse-url-gnudoit-args'.  Default to the URL around or before point.
(defalias 'browse-url-w3-gnudoit #[(url &optional new-window) "\303\304\305P\306	\307\n\310\311Q\312D\"%\207" [url browse-url-gnudoit-program browse-url-gnudoit-args apply start-process "gnudoit:" nil append "(w3-fetch \"" "\")" "(raise-frame)"] 10 (#$ . 22907) (browse-url-interactive-arg "W3 URL: ")])
#@248 Ask the Lynx WWW browser to load URL.
Default to the URL around or before point.  A new Lynx process is run
in an Xterm window using the Xterm program named by `browse-url-xterm-program'
with possible additional arguments `browse-url-xterm-args'.
(defalias 'browse-url-lynx-xterm #[(url &optional new-window) "\303\304\305P\306	\307\n\310\305E\"BBB\"\207" [url browse-url-xterm-program browse-url-xterm-args apply start-process "lynx" nil append "-e"] 10 (#$ . 23434) (browse-url-interactive-arg "Lynx URL: ")])
#@514 Ask the Lynx WWW browser to load URL.
Default to the URL around or before point.  With a prefix argument, run
a new Lynx process in a new buffer.

When called interactively, if variable `browse-url-new-window-p' is
non-nil, load the document in a new lynx in a new term window,
otherwise use any existing one.  A non-nil interactive prefix argument
reverses the effect of `browse-url-new-window-p'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-p'.
(defalias 'browse-url-lynx-emacs #[(url &optional new-buffer) "\306\307\310!\211\205 \311	!\312!\203  	\203  	q\210\313 \210\312!\2046 	\2036 \n\2036 \314\n!\315>\204W \316\317\320\211\321\322&'C\"BBB\"\323	!\210\324 \210\325\311	!\326\"\202\263 \327	\306\"\211(\203i \330(!\210\202m \323	!\210)g\331=\203\252 )\332=\203\202 \333\334!\210\202\252 )\335=\203\252 g\331=\203\240 \f\336V\203\240 \337 \210\340*!\210\202\211 g\331=\203\252 \333\341!\210\342\n\343\344'\345R\",\207" [system-uses-terminfo buf proc browse-url-lynx-input-attempts n new-buffer t get-buffer "*lynx*" get-buffer-process browse-url-maybe-new-window rename-uniquely process-status (run stop) apply make-term "lynx" nil append switch-to-buffer term-char-mode set-process-sentinel #[(process event) "\302!\303>?\205 \304!\211\205 \305	!)\207" [process buf process-status (run stop) process-buffer kill-buffer] 3] get-buffer-window select-window 95 warn error "Please move out of the input field first." avoid 0 term-send-down sit-for "Cannot move out of the input field, sorry." term-send-string "g" "" "" browse-url-lynx-emacs-args url win browse-url-lynx-input-field browse-url-lynx-input-delay] 9 (#$ . 23955) (browse-url-interactive-arg "Lynx URL: ")])
#@81 Ask the MMM WWW browser to load URL.
Default to the URL around or before point.
(defalias 'browse-url-mmm #[(url &optional new-window) "\301\302!\210\212\303\304!q\210\305 \210\306\307\310!!\204 \306\307\311!!\203( \312\313\314\315\314%\210\2022 \312\316\314\315\314\317&\210\301\320!)\207" [url message "Sending URL to MMM..." get-buffer-create " *Shell Command Output*" erase-buffer file-exists-p expand-file-name "~/.mmm_remote" "~/.mmm/remote" call-process "mmm_remote" nil 0 "mmm" "-external" "Sending URL to MMM... done"] 7 (#$ . 25725) (browse-url-interactive-arg "MMM URL: ")])
#@600 Open a new mail message buffer within Emacs.
Default to using the mailto: URL around or before point as the
recipient's address.  Supplying a non-nil interactive prefix argument
will cause the mail to be composed in another window rather than the
current one.

When called interactively, if variable `browse-url-new-window-p' is
non-nil use `compose-mail-other-window', otherwise `compose-mail'.  A
non-nil interactive prefix argument reverses the effect of
`browse-url-new-window-p'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-p'.
(defalias 'browse-url-mail #[(url &optional new-window) "\212\304!\203 \305\202\f \306\307\310	\"\203 	\311\312O\202 	\313\n\312\211\211\211\211\314pB\257\"+\207" [new-window url to func browse-url-maybe-new-window compose-mail-other-window compose-mail string-match "^mailto:" 7 nil apply insert-buffer] 10 (#$ . 26322) (browse-url-interactive-arg "Mailto URL: ")])
#@317 Ask the WWW browser defined by `browse-url-generic-program' to load URL.
Default to the URL around or before point.  A fresh copy of the
browser is started up in a new process with possible additional arguments
`browse-url-generic-args'.  This is appropriate for browsers which
don't offer a form of remote control.
(defalias 'browse-url-generic #[(url &optional new-window) "\204 \303\304!\210\305\306	P\307\310\n	C\"%\207" [browse-url-generic-program url browse-url-generic-args error "No browser defined (`browse-url-generic-program')" apply start-process nil append] 8 (#$ . 27303) (browse-url-interactive-arg "URL: ")])
(provide 'browse-url)