;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/browse-url.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\302\303\304\305\306\307\310\311\310\312&\210\313\314\315\316\317\320\321\322\310\301&	\210\313\323\324\325\317\326\321\322\310\301&	\210\313\327\330\331\317\332\310\301&\210\313\333\302\334\317\335\310\301&\210\313\336\333\337\317\340\310\301&\210\313\341\302\342\317\343\310\301&\210\313\344\345\346\317\332\310\301&\210\313\347\302\350\317\351\310\301&\210\313\352\347\353\317\354\310\301&\210\313\355\356\357\317\332\310\301&\210\313\360\302\361\317\362\310\301&\210\313\363\360\364\317\365\310\301&\210\313\366\367\370\317\332\321\322\310\301&	\210\313\371\302\372\317\373\321\322\310\301&	\210\313\374\375\376\317\332\310\301&\210\313\377\302\201@\317\201A\310\301&\210\313\201B\377\201C\317\201D\310\301&\210\313\201E\201F\201G\317\332\310\301&\210\313\201H\302\201I\317\201J\310\301&\210\313\201K\201H\201L\317\201M\310\301&\207" [custom-declare-group browse-url nil "Use a web browser to look at a URL." :prefix "browse-url-" :link (emacs-commentary-link "browse-url") :group external comm custom-declare-variable browse-url-browser-function 'browse-url-default-browser "Function to display the current buffer in a WWW browser.\nThis is used by the `browse-url-at-point', `browse-url-at-mouse', and\n`browse-url-of-file' commands.\n\nIf the value is not a function it should be a list of pairs\n(REGEXP . FUNCTION).  In this case the function called will be the one\nassociated with the first REGEXP which matches the current URL.  The\nfunction is passed the URL and any other args of `browse-url'.  The last\nregexp should probably be \".\" to specify a default browser." :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 "Mozilla" :value browse-url-mozilla) (function-item :tag "Firefox" :value browse-url-firefox) (function-item :tag "Chromium" :value browse-url-chromium) (function-item :tag "Galeon" :value browse-url-galeon) (function-item :tag "Epiphany" :value browse-url-epiphany) (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 "Text browser in an xterm window" :value browse-url-text-xterm) (function-item :tag "Text browser in an Emacs window" :value browse-url-text-emacs) (function-item :tag "KDE" :value browse-url-kde) (function-item :tag "Elinks" :value browse-url-elinks) (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) (function-item :tag "Default Windows browser" :value browse-url-default-windows-browser) (function-item :tag "Default Mac OS X browser" :value browse-url-default-macosx-browser) (function-item :tag "GNOME invoking Mozilla" :value browse-url-gnome-moz) (function-item :tag "Default browser" :value browse-url-default-browser) (function :tag "Your own function") (alist :tag "Regexp/function association list" :key-type regexp :value-type function)) :version "24.1" browse-url-mailto-function 'browse-url-mail "Function to display mailto: links.\nThis variable uses the same syntax as the\n`browse-url-browser-function' variable.  If the\n`browse-url-mailto-function' variable is nil, that variable will\nbe used instead." (choice (function-item :tag "Emacs Mail" :value browse-url-mail) (function-item :tag "None" nil)) browse-url-netscape-program "netscape" "The name by which to invoke Netscape.\n\nThe free program `netscape-remote' from\n<URL:http://home.netscape.com/newsref/std/remote.c> is said to start\nup very much quicker than `netscape'.  Reported to compile on a GNU\nsystem, given vroot.h from the same directory, with cc flags\n -DSTANDALONE -L/usr/X11R6/lib -lXmu -lX11." string browse-url-netscape-arguments "A list of strings to pass to Netscape as arguments." (repeat (string :tag "Argument")) browse-url-netscape-startup-arguments "A list of strings to pass to Netscape when it starts up.\nDefaults to the value of `browse-url-netscape-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument")) browse-url-browser-display "The X display for running the browser, if not same as Emacs's." (choice string (const :tag "Default" nil)) browse-url-mozilla-program "mozilla" "The name by which to invoke Mozilla." browse-url-mozilla-arguments "A list of strings to pass to Mozilla as arguments." (repeat (string :tag "Argument")) browse-url-mozilla-startup-arguments "A list of strings to pass to Mozilla when it starts up.\nDefaults to the value of `browse-url-mozilla-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument")) browse-url-firefox-program (let ((candidates '("firefox" "iceweasel" "icecat"))) (while (and candidates (not (executable-find (car candidates)))) (setq candidates (cdr candidates))) (or (car candidates) "firefox")) "The name by which to invoke Firefox." browse-url-firefox-arguments "A list of strings to pass to Firefox as arguments." (repeat (string :tag "Argument")) browse-url-firefox-startup-arguments "A list of strings to pass to Firefox when it starts up.\nDefaults to the value of `browse-url-firefox-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument")) browse-url-chromium-program (let ((candidates '("chromium" "chromium-browser"))) (while (and candidates (not (executable-find (car candidates)))) (setq candidates (cdr candidates))) (or (car candidates) "chromium")) "The name by which to invoke Chromium." browse-url-chromium-arguments "A list of strings to pass to Chromium as arguments." (repeat (string :tag "Argument")) browse-url-galeon-program "galeon" "The name by which to invoke Galeon." browse-url-galeon-arguments "A list of strings to pass to Galeon as arguments." (repeat (string :tag "Argument")) browse-url-galeon-startup-arguments "A list of strings to pass to Galeon when it starts up.\nDefaults to the value of `browse-url-galeon-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument")) browse-url-epiphany-program "epiphany" "The name by which to invoke Epiphany." browse-url-epiphany-arguments "A list of strings to pass to Epiphany as arguments." (repeat (string :tag "Argument")) browse-url-epiphany-startup-arguments "A list of strings to pass to Epiphany when it starts up.\nDefaults to the value of `browse-url-epiphany-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument"))] 12)
(defvar browse-url-gnome-moz-program "gnome-moz-remote")
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\306\315\310\311&\210\300\316\313\317\306\315\310\311&\210\300\320\313\321\306\315\310\311&\210\300\322\313\323\306\315\310\311&\210\300\324\313\325\306\315\310\311&\210\300\326\313\327\306\315\310\311&\210\300\330\331\332\306\333\304\334\310\311&	\210\300\335\313\336\306\337\310\311&\210\300\340\341\342\306\333\310\311&\210\300\343\344\345\306\346\304\347\310\311&	\210\300\350\313\351\306\315\310\311&\210\300\352\313\353\306\354\355\356\310\311&	\210\300\357\360\361\306\362\310\311&\210\300\363\364\365\306\333\310\311&\207" [custom-declare-variable browse-url-gnome-moz-arguments 'nil "A list of strings passed to the GNOME mozilla viewer as arguments." :version "21.1" :type (repeat (string :tag "Argument")) :group browse-url browse-url-mozilla-new-window-is-tab nil "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new window if\n`browse-url-mozilla' is asked to open it in a new window." boolean browse-url-firefox-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new window if\n`browse-url-firefox' is asked to open it in a new window.\n\nThis option is currently ignored on MS-Windows, since the necessary\nfunctionality is not available there." browse-url-galeon-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new window if\n`browse-url-galeon' is asked to open it in a new window." browse-url-epiphany-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new window if\n`browse-url-epiphany' is asked to open it in a new window." browse-url-netscape-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new\nwindow if `browse-url-netscape' is asked to open it in a new\nwindow." browse-url-new-window-flag "Non-nil means always open a new browser window with appropriate browsers.\nPassing an interactive argument to \\[browse-url], or specific browser\ncommands reverses the effect of this variable.  Requires Netscape version\n1.1N or later or XMosaic version 2.5 or later if using those browsers." browse-url-mosaic-program "xmosaic" "The name by which to invoke Mosaic (or mMosaic)." string "20.3" browse-url-mosaic-arguments "A list of strings to pass to Mosaic as arguments." (repeat (string :tag "Argument")) browse-url-mosaic-pidfile "~/.mosaicpid" "The name of the pidfile created by Mosaic." browse-url-filename-alist `(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") ,@(if (memq system-type '(windows-nt ms-dos)) '(("^\\([a-zA-Z]:\\)[\\/]" . "file:///\\1/") ("^[\\/][\\/]+" . "file://"))) ("^/+" . "file:///")) "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.\nAny substring of a filename matching one of the REGEXPs is replaced by\nthe corresponding STRING using `replace-match', not treating STRING\nliterally.  All pairs are applied in the order given.  The default\nvalue converts ange-ftp/EFS-style file names into ftp URLs and prepends\n`file:' to any file name beginning with `/'.\n\nFor example, adding to the default a specific translation of an ange-ftp\naddress to an HTTP URL:\n\n    (setq browse-url-filename-alist\n	  '((\"/webmaster@webserver:/home/www/html/\" .\n	     \"http://www.acme.co.uk/\")\n            (\"^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*\" . \"ftp://\\2/\")\n            (\"^/\\([^:@]+@\\)?\\([^:]+\\):/*\" . \"ftp://\\1\\2/\")\n	    (\"^/+\" . \"file:/\")))" (repeat (cons :format "%v" (regexp :tag "Regexp") (string :tag "Replacement"))) "23.1" browse-url-save-file "If non-nil, save the buffer before displaying its file.\nUsed by the `browse-url-of-file' command." browse-url-of-file-hook "Run after `browse-url-of-file' has asked a browser to load a file.\n\nSet this to `browse-url-netscape-reload' to force Netscape to load the\nfile rather than displaying a cached copy." hook :options (browse-url-netscape-reload) browse-url-CCI-port 3003 "Port to access XMosaic via CCI.\nThis can be any number between 1024 and 65535 but must correspond to\nthe value set in the browser." integer browse-url-CCI-host "localhost" "Host to access XMosaic via CCI.\nThis should be the host name of the machine running XMosaic with CCI\nenabled.  The port number should be set in `browse-url-CCI-port'."] 10)
(defvar browse-url-temp-file-name nil)
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\315\310\311&\210\302\316\317\320\306\307\310\311&\210\302\321\322\323\306\324\310\311&\210\302\325\313\326\306\327\310\311&\210\302\330\313\331\306\332\310\311&\210\302\333\334\335\306\307\310\311&\210\302\336\337\340\306\341\310\311&\210\302\342\343\344\306\307\310\311\345\346&	\210\302\347\350\351\306\352\345\346\310\311&	\210\302\353\354\355\306\356\345\346\310\311&	\210\302\357\360\361\306\362\345\346\310\311&	\210\302\363\364\365\306\341\345\346\310\311&	\210\302\366\367\370\306\307\345\371\310\311&	\210\302\372\373\374\306\375\310\311&\210\302\376\377\201@\306\201A\310\311&\207" [make-variable-buffer-local browse-url-temp-file-name custom-declare-variable browse-url-xterm-program "xterm" "The name of the terminal emulator used by `browse-url-text-xterm'.\nThis might, for instance, be a separate color version of xterm." :type string :group browse-url browse-url-xterm-args nil "A list of strings defining options for `browse-url-xterm-program'.\nThese might set its size, for instance." (repeat (string :tag "Argument")) browse-url-gnudoit-program "gnudoit" "The name of the `gnudoit' program used by `browse-url-w3-gnudoit'." browse-url-gnudoit-args '("-q") "A list of strings defining options for `browse-url-gnudoit-program'.\nThese might set the port, for instance." (repeat (string :tag "Argument")) browse-url-generic-program "The name of the browser program used by `browse-url-generic'." (choice string (const :tag "None" nil)) browse-url-generic-args "A list of strings defining options for `browse-url-generic-program'." (repeat (string :tag "Argument")) browse-url-temp-dir temporary-file-directory "The name of a directory for browse-url's temporary files.\nSuch files are generated by functions like `browse-url-of-region'.\nYou might want to set this to somewhere with restricted read permissions\nfor privacy's sake." browse-url-netscape-version 3 "The version of Netscape you are using.\nThis affects how URL reloading is done; the mechanism changed\nincompatibly at version 4." number browse-url-text-browser "lynx" "The name of the text browser to invoke." :version "23.1" browse-url-text-emacs-args (and (not window-system) '("-show_cursor")) "A list of strings defining options for a text browser in an Emacs buffer.\n\nThe default is none in a window system, otherwise `-show_cursor' to\nindicate the position of the current link in the absence of\nhighlighting, assuming the normal default for showing the cursor." (repeat (string :tag "Argument")) browse-url-text-input-field 'avoid "Action on selecting an existing text browser buffer at an input field.\nWhat to do when sending a new URL to an existing text browser buffer in Emacs\nif the browser cursor is on an input field (in which case the `g' command\nwould be entered as data).  Such fields are recognized by the\nunderlines ____.  Allowed values: nil: disregard it, `warn': warn the\nuser and don't emit the URL, `avoid': try to avoid the field by moving\ndown (this *won't* always work)." (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)) browse-url-text-input-attempts 10 "How many times to try to move down from a series of text browser input fields." integer browse-url-text-input-delay 0.2 "Seconds to wait for a text browser between moves down from an input field." browse-url-kde-program "kfmclient" "The name by which to invoke the KDE web browser." "21.1" browse-url-kde-args '("openURL") "A list of strings defining options for `browse-url-kde-program'." (repeat (string :tag "Argument")) browse-url-elinks-wrapper '("xterm" "-e") "Wrapper command prepended to the Elinks command-line." (repeat (string :tag "Wrapper"))] 10)
#@109 URL-encode the chars in TEXT that match CHARS.
CHARS is a regexp-like character alternative (e.g., "[)$]").
(defalias 'browse-url-url-encode-chars #[(text chars) "\304!\305\306\n	#\211\203%\307\310\311\312\313\305\n\"!\"\314\211\n$	T\202\n*\207" [text s encoded-text chars copy-sequence 0 string-match replace-match format "%%%X" string-to-char match-string t] 7 (#$ . 15612)])
#@136 Escape annoying characters in URL.
The annoying characters are those that can mislead a web browser
regarding its parameter treatment.
(defalias 'browse-url-encode-url #[(url) "\301\302\"\207" [url browse-url-url-encode-chars "[\")$] "] 3 (#$ . 16007)])
(defalias 'browse-url-url-at-point #[nil "\301\300!\302\303G\304$\210)\207" [url thing-at-point set-text-properties 0 nil] 5])
#@352 Read a URL from the minibuffer, prompting with PROMPT.
If `transient-mark-mode' is non-nil and the mark is active,
it defaults to the current region, else to the URL at or before
point.  If invoked with a mouse button, it moves point to the
position clicked before acting.

This function returns a list (URL NEW-WINDOW-FLAG)
for use in `interactive'.
(defalias 'browse-url-interactive-arg #[(prompt) "\306 \307\234\211<\203\310!\210)\311	\n\203&\203&\312\313\314\315\316 \317 \"#\206(\320 \"\f?
?=?D\207" [event prompt transient-mark-mode mark-active browse-url-new-window-flag current-prefix-arg this-command-keys 0 mouse-set-point read-string replace-regexp-in-string "[	
\f\n ]+" "" buffer-substring-no-properties region-beginning region-end browse-url-url-at-point] 9 (#$ . 16400)])
(defalias 'browse-url-maybe-new-window '(macro . #[(arg) "\301\302\303BBB\207" [arg if (or noninteractive (not (called-interactively-p 'any))) (browse-url-new-window-flag)] 4]))
#@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\2030r	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 (#$ . 17381) 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!\205\206	\211\203\310\n\")\311\312\"\f\313\211\203E@\211\203<\314
@\"\203<\315
A\316\313$A\211\204$*\207" [file-name-coding-system default-file-name-coding-system coding file browse-url-filename-alist map default-value enable-multibyte-characters encode-coding-string browse-url-url-encode-chars "[*\"()',=;?% ]" nil string-match replace-match t --dolist-tail--] 6 (#$ . 18107)])
#@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\203q\210deZ\306 U??\205	\206\307\302!\205\n\211\204<\f\2042\310\311\312\313
\"\314\315#!\f\316ed\314\317%\210\320!*\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-file expand-file-name "burl" nil ".html" write-region no-message browse-url-of-file] 7 (#$ . 18679) nil])
(defalias 'browse-url-delete-temp-file #[(&optional temp-file-name) "\206	\211\205\303\n!\205\304\n!)\207" [temp-file-name browse-url-temp-file-name file-name file-exists-p delete-file] 3])
(add-hook 'kill-buffer-hook 'browse-url-delete-temp-file)
#@69 In Dired, ask a WWW browser to display the file named on this line.
(defalias 'browse-url-of-dired-file #[nil "\301\302\211\"\211\203\303\304!!\202\305\306!)\207" [tem dired-get-filename t browse-url-of-file expand-file-name error "No file on this line"] 4 (#$ . 19576) 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 (#$ . 19864) "r"])
#@249 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.
If the URL is a mailto: URL, consult `browse-url-mailto-function'
first, if that exists.
(defalias 'browse-url #[(url &rest args) "\306\307!\204
\206\f	C\310\n!\311\312\"\203\f\206
\313!\203/\314!\203/\2022\315\316!\317\320 \321\";\203I\322\323\317\320 \321\"\"\210:\203\\\324!\204\\\325\326\215\202b\327#+\207" [args browse-url-new-window-flag process-environment url browse-url-mailto-function browse-url-browser-function called-interactively-p interactive copy-sequence string-match "\\`mailto:" file-directory-p file-readable-p expand-file-name "~/" frame-parameter selected-frame display setenv "DISPLAY" functionp done (byte-code "\305\211\203&\n@\306	@\"\203\307	A\f#\210\310\311\312\"\210\nA\211\204*\313\314\"\207" [function bf --dolist-tail-- url args nil string-match apply throw done t error "No browse-url-browser-function matching URL %s"] 5) apply default-directory function] 5 (#$ . 20044) (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 #[(&optional arg) "\303 \211\203\304	\203\n?\202\n\"\202\305\306!)\207" [url arg browse-url-new-window-flag browse-url-url-at-point browse-url error "No URL found"] 4 (#$ . 21203) "P"])
#@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\301!\210\302 )\207" [event mouse-set-point browse-url-at-point] 2 (#$ . 21606) "e"])
(defalias 'browse-url-default-windows-browser #[(url &optional new-window) "\303=\203	\203\304\305\306\n!P!\207\307\310!\207\311=\203$\312\313\314\211\211\n%\207\315\316\n\"\207" [system-type dos-windows-version url ms-dos shell-command "start " shell-quote-argument error "Browsing URLs is not supported on this system" cygwin call-process "cygstart" nil w32-shell-execute "open"] 6 nil (browse-url-interactive-arg "URL: ")])
(defalias 'browse-url-default-macosx-browser #[(url &optional new-window) "\301\302P\303\304$\207" [url start-process "open " nil "open"] 5 nil (browse-url-interactive-arg "URL: ")])
#@265 Set DISPLAY in the environment to the X display the browser will use.
This is either the value of variable `browse-url-browser-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-browser-display display process-environment browse-url-emacs-display "DISPLAY="] 3 (#$ . 22631)])
#@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 (#$ . 23108)])
#@467 Find a suitable browser and ask it to load URL.
Default to the URL around or before point.

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

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-default-browser #[(url &rest args) "\306\307>\203\310\202\207\311>\203\312\202\207\313 \203\314\202\207\315	!\203(\316\202\207\315\n!\2032\317\202\207\315!\203<\320\202\207\315\f!\203F\321\202\207\315
!\203P\322\202\207\315!\203[\323\202\207\315!\203f\324\202\207\315!\203q\325\202\207\315!\203|\326\202\207\327\330!\203\206\331\202\207\332 #\207" [system-type browse-url-gnome-moz-program browse-url-mozilla-program browse-url-firefox-program browse-url-chromium-program browse-url-galeon-program apply (windows-nt ms-dos cygwin) browse-url-default-windows-browser (darwin) browse-url-default-macosx-browser browse-url-can-use-xdg-open browse-url-xdg-open executable-find browse-url-gnome-moz browse-url-mozilla browse-url-firefox browse-url-chromium browse-url-galeon browse-url-kde browse-url-netscape browse-url-mosaic browse-url-text-xterm locate-library "w3" browse-url-w3 #[(&rest ignore) "\300\301!\207" [error "No usable browser found"] 2] browse-url-kde-program browse-url-netscape-program browse-url-mosaic-program browse-url-xterm-program url args] 4 (#$ . 23490)])
#@190 Return non-nil if the "xdg-open" program can be used.
xdg-open is a desktop utility that calls your preferred web browser.
This requires you to be running either Gnome, KDE, Xfce4 or LXDE.
(defalias 'browse-url-can-use-xdg-open #[nil "\300\301!\205;\302\303!\205;\302\304!\205;\300\305!\206;\306\307\310\217\206;\300\311!\312\232\206;\306\313\314\217\206;\300\315!\316\235\206;\300\317!\320\232\207" [getenv "DISPLAY" executable-find "xdg-open" "nohup" "GNOME_DESKTOP_SESSION_ID" nil (byte-code "\300\301\302\211\211\303\304\305\306&\307=\207" [call-process "dbus-send" nil "--dest=org.gnome.SessionManager" "--print-reply" "/org/gnome/SessionManager" "org.gnome.SessionManager.CanShutdown" 0] 9) ((error)) "KDE_FULL_SESSION" "true" (byte-code "\300\301\302\211\211\303\304&\305=\207" [call-process "/bin/sh" nil "-c" "xprop -root _DT_SAVE_MODE|grep xfce4" 0] 7) ((error)) "DESKTOP_SESSION" ("LXDE" "Lubuntu") "XDG_CURRENT_DESKTOP" "LXDE"] 3 (#$ . 25106)])
#@163 Pass the specified URL to the "xdg-open" command.
xdg-open is a desktop utility that calls your preferred web browser.
The optional argument IGNORED is not used.
(defalias 'browse-url-xdg-open #[(url &optional ignored) "\301\302\303\304\303%\207" [url call-process "xdg-open" nil 0] 6 (#$ . 26080) (browse-url-interactive-arg "URL: ")])
#@724 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-flag' 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-flag'.

If `browse-url-netscape-new-window-is-tab' is non-nil, then
whenever a document would otherwise be loaded in a new window, it
is loaded in a new tab in an existing window instead.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-netscape #[(url &optional new-window) "\306!\307 \310\311\312P\313\n\314\f\315=\203C\202F\314
\205!\316\317\320\204/\321\322!\2043
\2025\205B\203A\323\202B\324\325RD\"\"%\326\327\330\331\332EE\"*\207" [url process-environment browse-url-netscape-program browse-url-netscape-arguments window-system new-window browse-url-encode-url browse-url-process-environment apply start-process "netscape " nil append w32 ("-noraise") "-remote" "openURL(" called-interactively-p any ",new-tab" ",new-window" ")" set-process-sentinel lambda (process change) browse-url-netscape-sentinel process noninteractive browse-url-new-window-flag browse-url-netscape-new-window-is-tab] 14 (#$ . 26425) (browse-url-interactive-arg "URL: ")])
#@61 Handle a change to the process communicating with Netscape.
(defalias 'browse-url-netscape-sentinel #[(process url) "\305!\306=\206\307 \310\311\n\"\210\312\313\314P\315\n\316\fC\"%)\207" [process process-environment browse-url-netscape-program url browse-url-netscape-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting %s..." apply start-process "netscape" nil append] 8 (#$ . 27921)])
#@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 (#$ . 28358) nil])
#@44 Send a remote control command to Netscape.
(defalias 'browse-url-netscape-send #[(command) "\304 \305\306\307\310	\311\n\312D\"%)\207" [process-environment browse-url-netscape-program browse-url-netscape-arguments command browse-url-process-environment apply start-process "netscape" nil append "-remote"] 9 (#$ . 28648)])
#@719 Ask the Mozilla WWW browser to load URL.
Default to the URL around or before point.  The strings in variable
`browse-url-mozilla-arguments' are also passed to Mozilla.

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

If `browse-url-mozilla-new-window-is-tab' is non-nil, then whenever a
document would otherwise be loaded in a new window, it is loaded in a
new tab in an existing window instead.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-mozilla #[(url &optional new-window) "\306!\307 \310\311\312P\313\n\314\315\316\f\204\317\320!\204!
\202#\2050\203/\321\2020\322\323RD\"%\324\325\326\327\330EE\"*\207" [url process-environment browse-url-mozilla-program browse-url-mozilla-arguments noninteractive new-window browse-url-encode-url browse-url-process-environment apply start-process "mozilla " nil append "-remote" "openURL(" called-interactively-p any ",new-tab" ",new-window" ")" set-process-sentinel lambda (process change) browse-url-mozilla-sentinel process browse-url-new-window-flag browse-url-mozilla-new-window-is-tab] 12 (#$ . 28980) (browse-url-interactive-arg "URL: ")])
#@60 Handle a change to the process communicating with Mozilla.
(defalias 'browse-url-mozilla-sentinel #[(process url) "\305!\306=\206\307 \310\311\n\"\210\312\313\314P\315\n\316\fC\"%)\207" [process process-environment browse-url-mozilla-program url browse-url-mozilla-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting %s..." apply start-process "mozilla " nil append] 8 (#$ . 30396)])
#@1047 Ask the Firefox WWW browser to load URL.
Default to the URL around or before point.  The strings in
variable `browse-url-firefox-arguments' are also passed to
Firefox.

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

If `browse-url-firefox-new-window-is-tab' is non-nil, then
whenever a document would otherwise be loaded in a new window, it
is loaded in a new tab in an existing window instead.

When called non-interactively, optional second argument
NEW-WINDOW is used instead of `browse-url-new-window-flag'.

On MS-Windows systems the optional `new-window' parameter is
ignored.  Firefox for Windows does not support the "-remote"
command line parameter.  Therefore, the
`browse-url-new-window-flag' and `browse-url-firefox-new-window-is-tab'
are ignored as well.  Firefox on Windows will always open the requested
URL in a new window.
(defalias 'browse-url-firefox #[(url &optional new-window) "\306!\307 \n\310>?\311\312\313P\314\f\315
\203A\316\317\204'\320\321!\204,\202.\205;\203:\322\202;\323\324RD\202CC\"%\205V\325\326\327\330\331EE\"+\207" [url process-environment system-type use-remote browse-url-firefox-program browse-url-firefox-arguments browse-url-encode-url browse-url-process-environment (windows-nt ms-dos) apply start-process "firefox " nil append "-remote" "openURL(" called-interactively-p any ",new-tab" ",new-window" ")" set-process-sentinel lambda (process change) browse-url-firefox-sentinel process noninteractive new-window browse-url-new-window-flag browse-url-firefox-new-window-is-tab] 12 (#$ . 30831) (browse-url-interactive-arg "URL: ")])
#@60 Handle a change to the process communicating with Firefox.
(defalias 'browse-url-firefox-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-firefox-program browse-url-firefox-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting Firefox..." apply start-process "firefox " nil append] 8 (#$ . 32650)])
#@172 Ask the Chromium WWW browser to load URL.
Default to the URL around or before point.  The strings in
variable `browse-url-chromium-arguments' are also passed to
Chromium.
(defalias 'browse-url-chromium #[(url &optional new-window) "\304!\305 \306\307\310P\311\n\312C\"%)\207" [url process-environment browse-url-chromium-program browse-url-chromium-arguments browse-url-encode-url browse-url-process-environment apply start-process "chromium " nil append] 8 (#$ . 33087) (browse-url-interactive-arg "URL: ")])
#@714 Ask the Galeon WWW browser to load URL.
Default to the URL around or before point.  The strings in variable
`browse-url-galeon-arguments' are also passed to Galeon.

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

If `browse-url-galeon-new-window-is-tab' is non-nil, then whenever a
document would otherwise be loaded in a new window, it is loaded in a
new tab in an existing window instead.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-galeon #[(url &optional new-window) "\306!\307 \310\311\312P\313\n\314\f\204\315\316!\204
\202 \2030\203,\317\2021\320\2021\321C#%\322\323\324\325\326EE\"*\207" [url process-environment browse-url-galeon-program browse-url-galeon-arguments noninteractive new-window browse-url-encode-url browse-url-process-environment apply start-process "galeon " nil append called-interactively-p any ("--new-tab") ("--new-window" "--noraise") ("--existing") set-process-sentinel lambda (process change) browse-url-galeon-sentinel process browse-url-new-window-flag browse-url-galeon-new-window-is-tab] 9 (#$ . 33610) (browse-url-interactive-arg "URL: ")])
#@59 Handle a change to the process communicating with Galeon.
(defalias 'browse-url-galeon-sentinel #[(process url) "\305!\306=\206\307 \310\311\n\"\210\312\313\314P\315\n\316\fC\"%)\207" [process process-environment browse-url-galeon-program url browse-url-galeon-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting %s..." apply start-process "galeon " nil append] 8 (#$ . 35018)])
#@722 Ask the Epiphany WWW browser to load URL.
Default to the URL around or before point.  The strings in variable
`browse-url-galeon-arguments' are also passed to Epiphany.

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

If `browse-url-epiphany-new-window-is-tab' is non-nil, then whenever a
document would otherwise be loaded in a new window, it is loaded in a
new tab in an existing window instead.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-epiphany #[(url &optional new-window) "\306!\307 \310\311\312P\313\n\314\f\204\315\316!\204
\202 \2030\203,\317\2021\320\2021\321C#%\322\323\324\325\326EE\"*\207" [url process-environment browse-url-epiphany-program browse-url-epiphany-arguments noninteractive new-window browse-url-encode-url browse-url-process-environment apply start-process "epiphany " nil append called-interactively-p any ("--new-tab") ("--new-window" "--noraise") ("--existing") set-process-sentinel lambda (process change) browse-url-epiphany-sentinel process browse-url-new-window-flag browse-url-epiphany-new-window-is-tab] 9 (#$ . 35447) (browse-url-interactive-arg "URL: ")])
#@61 Handle a change to the process communicating with Epiphany.
(defalias 'browse-url-epiphany-sentinel #[(process url) "\305!\306=\206\307 \310\311\n\"\210\312\313\314P\315\n\316\fC\"%)\207" [process process-environment browse-url-epiphany-program url browse-url-epiphany-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting %s..." apply start-process "epiphany " nil append] 8 (#$ . 36875)])
#@68 Ask Emacs to load URL into a buffer and show it in another window.
(defalias 'browse-url-emacs #[(url &optional new-window) "\303\304!\210\305B	B\306\n!)\207" [url-handler-regexp file-name-handler-alist url require url-handlers url-file-handler find-file-other-window] 2 (#$ . 37313) (browse-url-interactive-arg "URL: ")])
#@558 Ask Mozilla/Netscape to load URL via the GNOME program `gnome-moz-remote'.
Default to the URL around or before point.  The strings in variable
`browse-url-gnome-moz-arguments' are also passed.

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

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-gnome-moz #[(url &optional new-window) "\306\307\310P\311	\312\n\204\313\314!\204\f\202
\205\315\316D#%\207" [url browse-url-gnome-moz-program browse-url-gnome-moz-arguments noninteractive new-window browse-url-new-window-flag apply start-process "gnome-moz-remote " nil append called-interactively-p any ("--newwin") "--raise"] 10 (#$ . 37645) (browse-url-interactive-arg "URL: ")])
#@618 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-flag' 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-flag'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-mosaic #[(url &optional new-window) "\306!\307\310\n!\203\212\311\n!\210eb\210\312p!\313\307!\210)	\203i\314\315	\316\"!\203i\212\311\317\320	\"!\210\321 \210\204?\322\323!\204C\f\202D
\203K\324\202L\325\"\326\261\210\327 \210\313\307!\210\330\331!\210\315	\332\"\210\330\333!)\202\203\330\334#\"\210\335\336\337\307#\340$\"C\"%\210\330\341#\"*\207" [browse-url-mosaic-pidfile pid pidfile noninteractive new-window browse-url-new-window-flag expand-file-name nil file-readable-p find-file read kill-buffer zerop signal-process 0 format "/tmp/Mosaic.%d" erase-buffer called-interactively-p any "newwin\n" "goto\n" "\n" save-buffer message "Signaling Mosaic..." SIGUSR1 "Signaling Mosaic...done" "Starting %s..." apply start-process "xmosaic" append "Starting %s...done" url browse-url-mosaic-program browse-url-mosaic-arguments] 8 (#$ . 38626) (browse-url-interactive-arg "Mosaic URL: ")])
#@667 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-flag' 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-flag'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-cci #[(url &optional new-window) "\306\307\310	$\210\311\307\312\n\313\204\314\315!\204\f\202
\203\"\316\202#\317\320\260\"\210\311\307\321\"\210\322\307!\207" [browse-url-CCI-host browse-url-CCI-port url noninteractive new-window browse-url-new-window-flag open-network-stream "browse-url" " *browse-url*" process-send-string "get url (" ") output " called-interactively-p any "new" "current" "
\n" "disconnect
\n" delete-process] 7 (#$ . 40183) (browse-url-interactive-arg "Mosaic URL: ")])
#@405 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-flag' is
non-nil, load the document in a new window.  A non-nil interactive
prefix argument reverses the effect of `browse-url-new-window-flag'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-w3 #[(url &optional new-window) "\304\305!\210\204\306\307!\204	\202\n\203\310!\207\311!\207" [noninteractive new-window browse-url-new-window-flag url require w3 called-interactively-p any w3-fetch-other-window w3-fetch] 2 (#$ . 41382) (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\305P\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 (#$ . 42105) (browse-url-interactive-arg "W3 URL: ")])
#@287 Ask a text browser to load URL.
URL defaults to the URL around or before point.
This runs the text browser specified by `browse-url-text-browser'.
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-text-xterm #[(url &optional new-window) "\304\305	P\306\n\307\310	E\"BBB\"\207" [browse-url-text-browser url browse-url-xterm-program browse-url-xterm-args apply start-process nil append "-e"] 10 (#$ . 42632) (browse-url-interactive-arg "Text browser URL: ")])
#@606 Ask a text browser to load URL.
URL defaults to the URL around or before point.
This runs the text browser specified by `browse-url-text-browser'.
With a prefix argument, it runs a new browser process in a new buffer.

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

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-text-emacs #[(url &optional new-buffer) "\306\307\310!\211\205
\311	!\312\313!\210
\204\314\315!\204#(\202%)\2032	\2032	q\210\316 \210
\204<\314\315!\204A(\202C)\204V	\203V\n\203V\317\n!\320>\204x\321\322*\211\323\324+,C\"BBB\"\325	!\210\326 \210\327\311	!\330\"\202\324\331	\306\"\211-\203\212\332-!\210\202\216\325	!\210)g\333=\203\313.\334=\203\243\335\336!\210\202\313.\337=\203\313g\333=\203\301\f\340V\203\301\341 \210\342/!\210\202\252g\333=\203\313\335\343!\210\344\n\345\346,\347R\",\207" [system-uses-terminfo buf proc browse-url-text-input-attempts n noninteractive t get-buffer "*text browser*" get-buffer-process require term called-interactively-p any rename-uniquely process-status (run stop) apply make-term 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" "" "
" new-buffer browse-url-new-window-flag browse-url-text-browser browse-url-text-emacs-args url win browse-url-text-input-field browse-url-text-input-delay] 9 (#$ . 43211) (browse-url-interactive-arg "Text browser URL: ")])
(autoload 'rfc2368-parse-mailto-url "rfc2368")
#@630 Open a new mail message buffer within Emacs for the RFC 2368 URL.
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-flag' 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-flag'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-mail #[(url &optional new-window) "\212\306!\307\310	\"\307\311	\"\307\312	\"\313\n\313\313\f	\"\"\"\nAA\fA\211?\205/\204<\314\315!\204A\202C\203S\316\n
\317\320pD%\210\202_\321\n
\317\211\320pD&\210\f\205\211eb\210\322\323\323Q\317\324#\204yn\204y\323c\210`\325\326\323\f#c\210n\204\210\323c\210b.\n\207" [url alist to subject body rest rfc2368-parse-mailto-url assoc "To" "Subject" "Body" delq called-interactively-p any compose-mail-other-window nil insert-buffer compose-mail search-forward "\n" move replace-regexp-in-string "
\n" mail-citation-hook noninteractive new-window browse-url-new-window-flag mail-header-separator] 9 (#$ . 45275) (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\307\310\307\311	\nC\"&\207" [browse-url-generic-program browse-url-generic-args url error "No browser defined (`browse-url-generic-program')" apply call-process nil 0 append] 9 (#$ . 46661) (browse-url-interactive-arg "URL: ")])
#@81 Ask the KDE WWW browser to load URL.
Default to the URL around or before point.
(defalias 'browse-url-kde #[(url &optional new-window) "\303\304!\210\305\306\307P\310	\311\nC\"%\207" [url browse-url-kde-program browse-url-kde-args message "Sending URL to KDE..." apply start-process "KDE " nil append] 8 (#$ . 47303) (browse-url-interactive-arg "KDE URL: ")])
#@57 Ask the Elinks WWW browser to load URL in a new window.
(defalias 'browse-url-elinks-new-window #[(url) "\303 \304\305\306\307	P\310D\n\311	D#\")\207" [process-environment url browse-url-elinks-wrapper browse-url-process-environment apply start-process append "elinks:" nil "elinks"] 7 (#$ . 47671)])
#@283 Ask the Elinks WWW browser to load URL.
Default to the URL around the point.

The document is loaded in a new tab of a running Elinks or, if
none yet running, a newly started instance.

The Elinks command will be prepended by the program+arguments
from `browse-url-elinks-wrapper'.
(defalias 'browse-url-elinks #[(url &optional new-window) "\304!	\203\f\305!\207\306 \307\310\311\312\313\314%\315\n\316\317\320\321EE\"*\207" [url new-window elinks-ping-process process-environment browse-url-encode-url browse-url-elinks-new-window browse-url-process-environment start-process "elinks-ping" nil "elinks" "-remote" "ping()" set-process-sentinel lambda (process change) browse-url-elinks-sentinel process] 7 (#$ . 47980) (browse-url-interactive-arg "URL: ")])
#@65 Determines if Elinks is running or a new one has to be started.
(defalias 'browse-url-elinks-sentinel #[(process url) "\305!\211\306=\203\307\n!\2020	\310=\203)\311 \312\313\nP\314\315\316\317\n\320Q%)\2020	\321\322\f\"))\207" [process #1=#:val url process-environment exit-status process-exit-status 5 browse-url-elinks-new-window 0 browse-url-process-environment start-process "elinks:" nil "elinks" "-remote" "openURL(\"" "\",new-tab)" error "Unrecognized exit-code %d of process `elinks'"] 9 (#$ . 48751)])
(provide 'browse-url)