HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301\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\321\333\310\301&	\210\313\334\335\336\317\337\310\301&\210\340\334\302\341#\210\313\342\302\343\317\344\310\301&\210\340\342\302\341#\210\313\345\342\346\317\347\310\301&\210\340\345\302\341#\210\313\350\302\351\317\352\310\301&\210\313\353\354\355\317\337\310\301&\210\313\356\302\357\317\360\310\301&\210\313\361\356\362\317\363\310\301&\210\313\364\365\366\317\337\310\301&\210\313\367\302\370\317\371\310\301&\210\313\372\367\373\317\374\310\301&\210\340\372\375\376#\210\313\377\201@\201A\317\337\321\341\310\301&	\210\313\201B\302\201C\317\201D\321\341\310\301&	\210\313\201E\201F\201G\317\337\321\322\310\301&	\210\313\201H\302\201I\317\201J\321\322\310\301&	\210\313\201K\201L\201M\317\337\310\301&\210\340\201K\302\341#\210\313\201N\302\201O\317\201P\310\301&\210\340\201N\302\341#\210\313\201Q\201N\201R\317\201S\310\301&\210\340\201Q\302\341#\210\313\201T\201U\201V\317\337\310\301&\210\313\201W\302\201X\317\201Y\310\301&\210\313\201Z\201W\201[\317\201\\\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 "eww" :value eww-browse-url) (function-item :tag "Mozilla" :value browse-url-mozilla) (function-item :tag "Firefox" :value browse-url-firefox) (function-item :tag "Google Chrome" :value browse-url-chrome) (function-item :tag "Chromium" :value browse-url-chromium) (function-item :tag "Epiphany" :value browse-url-epiphany) (function-item :tag "Conkeror" :value browse-url-conkeror) (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 macOS browser" :value browse-url-default-macosx-browser) (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-man-function 'browse-url-man "Function to display man: links." (radio (function-item :tag "Emacs Man" :value browse-url-man) (const :tag "None" nil) (function :tag "Other function")) "26.1" 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 make-obsolete-variable "25.1" 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 '("icecat" "iceweasel" "firefox"))) (while (and candidates (not (executable-find (car candidates)))) (setq candidates (cdr candidates))) (or (car candidates) "firefox")) "The name by which to invoke Firefox or a variant of it." browse-url-firefox-arguments "A list of strings to pass to Firefox (or variant) as arguments." (repeat (string :tag "Argument")) browse-url-firefox-startup-arguments "A list of strings to pass to Firefox (or variant) 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")) "it no longer has any effect." "24.5" browse-url-chrome-program (let ((candidates '("google-chrome-stable" "google-chrome"))) (while (and candidates (not (executable-find (car candidates)))) (setq candidates (cdr candidates))) (or (car candidates) "chromium")) "The name by which to invoke the Chrome browser." browse-url-chrome-arguments "A list of strings to pass to Google Chrome as arguments." (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#\210\304\305\306\307\310\311\312\313\314\315&	\210\300\305\302\303#\210\304\316\302\317\312\320\314\315&\210\304\321\302\322\312\320\314\315&\210\304\323\302\324\310\303\312\320\314\315&	\210\304\325\302\326\312\320\314\315&\210\300\325\302\303#\210\304\327\302\330\312\320\314\315&\210\304\331\302\332\312\320\314\315&\210\300\331\302\303#\210\304\333\302\334\312\320\314\315&\210\304\335\336\337\312\340\310\341\314\315&	\210\300\335\302\303#\210\304\342\302\343\312\344\314\315&\210\300\342\302\303#\210\304\345\346\347\312\340\314\315&\210\300\345\302\303#\210\304\350\351\352\312\340\310\303\314\315&	\210\304\353\302\354\310\303\312\355\314\315&	\210\304\356\357\360\312\361\310\303\314\315&	\210\304\362\302\363\312\320\314\315&\210\304\364\302\365\312\366\314\315&\210\304\367\370\371\312\372\314\315&\210\300\367\302\303#\210\304\373\374\375\312\340\314\315&\210\300\373\302\303#\207" [make-obsolete-variable browse-url-gnome-moz-program nil "25.1" 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 "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." browse-url-conkeror-new-window-is-buffer "Whether to open up new windows in a buffer or a new window.\nIf non-nil, then open the URL in a new buffer rather than a new window if\n`browse-url-conkeror' is asked to open it in a new window." 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." 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-conkeror-program "conkeror" "The name by which to invoke Conkeror." browse-url-conkeror-arguments "A list of strings to pass to Conkeror as arguments." (repeat (string :tag "Argument")) 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"))) 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 "Hook run after `browse-url-of-file' has asked a browser to load a file." hook 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\342\336\313\343#\210\302\344\345\346\306\307\310\311\347\350&	\210\302\351\352\353\306\354\347\350\310\311&	\210\302\355\356\357\306\360\347\350\310\311&	\210\302\361\362\363\306\364\347\350\310\311&	\210\302\365\366\367\306\341\347\350\310\311&	\210\302\370\371\372\306\307\347\373\310\311&	\210\302\374\375\376\306\377\310\311&\210\302\201@\201A\201B\306\201C\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 make-obsolete-variable "25.1" 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 (#$ . 16781)])
#@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 (#$ . 17176)])
(defalias 'browse-url-url-at-point #[nil "\301\302\303\"\206\301\304\303\"\211\205\305P)\207" [f thing-at-point url t filename "http://"] 4])
#@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 (#$ . 17586)])
(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 (#$ . 18567) 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\232\203\n\307\202\310\311!\205	\206\n\211\203\312\f\")\313\f\314\"
\315\211\203S@\211\203J\316@\f\"\203J\317A\320\315\f$A\211\204/*\f\207" [system-type file-name-coding-system default-file-name-coding-system coding file browse-url-filename-alist windows-nt utf-8 default-value enable-multibyte-characters encode-coding-string browse-url-url-encode-chars "[*\"()',=;?% ]" nil string-match replace-match t map --dolist-tail--] 6 (#$ . 19293)])
#@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 (#$ . 19928) 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 (#$ . 20825) 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 (#$ . 21113) "r"])
#@636 Ask a WWW browser to load URL.
Prompt for a URL, defaulting to the URL at or before point.
Invokes a suitable browser function which does the actual job.
The variable `browse-url-browser-function' says which browser function to
use.  If the URL is a mailto: URL, consult `browse-url-mailto-function'
first, if that exists.

The additional ARGS are passed to the browser function.  See the doc
strings of the actual functions, starting with `browse-url-browser-function',
for information about the significance of ARGS (most of the functions
ignore it).
If ARGS are omitted, the default is to pass `browse-url-new-window-flag'
as ARGS.
(defalias 'browse-url #[(url &rest args) "\306\307!\204
\206\f	C\n\203\310!\204\311!\312\f!\313\314\"\203)
\2067\313\315\"\2035\2067\316!\206A\311\317!\320\321\322\";\203V\323\324\320\321\322\"\"\210:\203\237\325!\204\237\3262\245\321 \211!\203\226!@ \313 @\"\203\215\327 A#\210\330\326\331\"\210!A\211!\204r*\332\333\"0\202\245\327#+\207" [args browse-url-new-window-flag url-handler-mode url process-environment browse-url-mailto-function called-interactively-p interactive file-name-absolute-p expand-file-name copy-sequence string-match "\\`mailto:" "\\`man:" unhandled-file-name-directory "~/" frame-parameter nil display setenv "DISPLAY" functionp done apply throw t error "No browse-url-browser-function matching URL %s" browse-url-man-function browse-url-browser-function default-directory function bf --dolist-tail--] 6 (#$ . 21293) (browse-url-interactive-arg "URL: ")])
#@220 Ask a WWW browser to load the URL at or before point.
Variable `browse-url-browser-function' says which browser to use.
Optional prefix argument ARG non-nil inverts the value of the option
`browse-url-new-window-flag'.
(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 (#$ . 22875) "P"])
#@218 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.  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 (#$ . 23328) "e"])
#@99 Invoke the MS-Windows system's default Web browser.
The optional NEW-WINDOW argument is not used.
(defalias 'browse-url-default-windows-browser #[(url &optional _new-window) "\303\267\202	\203\304\305\306\n!P!\207\307\310!\207\311\312\313\211\211\n%\207\314\315\316\n\313\317\320\313\211&\321=\2034\322\n!\2025\n\"\207" [system-type dos-windows-version url #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ms-dos 6 cygwin 22)) shell-command "start " shell-quote-argument error "Browsing URLs is not supported on this system" call-process "cygstart" nil w32-shell-execute "open" compare-strings 7 "file://" t url-unhex-string] 9 (#$ . 23684) (browse-url-interactive-arg "URL: ")])
#@93 Invoke the macOS system's default Web browser.
The optional NEW-WINDOW argument is not used
(defalias 'browse-url-default-macosx-browser #[(url &optional _new-window) "\301\302P\303\304$\207" [url start-process "open " nil "open"] 5 (#$ . 24415) (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 (#$ . 24709)])
#@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 (#$ . 25186)])
#@461 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 ARGS is used
instead of `browse-url-new-window-flag'.
(defalias 'browse-url-default-browser #[(url &rest args) "\306\307>\203\310\202q\311>\203\312\202q\313 \203\314\202q\315	!\203(\316\202q\315\n!\2032\317\202q\315!\203<\320\202q\315\f!\203F\321\202q\315
!\203P\322\202q\315!\203[\323\202q\315!\203f\324\202q\325\326!\203p\327\202q\330#\207" [system-type browse-url-mozilla-program browse-url-firefox-program browse-url-chromium-program browse-url-kde-program browse-url-conkeror-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-mozilla browse-url-firefox browse-url-chromium browse-url-kde browse-url-conkeror browse-url-chrome browse-url-text-xterm locate-library "w3" browse-url-w3 #[(&rest _ignore) "\300\301!\207" [error "No usable browser found"] 2] browse-url-chrome-program browse-url-xterm-program url args] 4 (#$ . 25568)])
#@124 Return non-nil if the "xdg-open" program can be used.
xdg-open is a desktop utility that calls your preferred web browser.
(defalias 'browse-url-can-use-xdg-open #[nil "\300\301!\204\f\300\302!\205\303\304!\207" [getenv "DISPLAY" "WAYLAND_DISPLAY" executable-find "xdg-open"] 2 (#$ . 26997)])
#@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 (#$ . 27300) (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 (#$ . 27645) (browse-url-interactive-arg "URL: ")])
(make-obsolete 'browse-url-netscape nil "25.1")
#@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 (#$ . 29189)])
(make-obsolete 'browse-url-netscape-sentinel nil "25.1")
#@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 (#$ . 29683) nil])
(make-obsolete 'browse-url-netscape-reload nil "25.1")
#@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 (#$ . 30028)])
(make-obsolete 'browse-url-netscape-send nil "25.1")
#@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 (#$ . 30413) (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 (#$ . 31829)])
#@653 Ask the Firefox WWW browser to load URL.
Defaults to the URL around or before point.  Passes the strings
in the variable `browse-url-firefox-arguments' to Firefox.

Interactively, if the variable `browse-url-new-window-flag' is non-nil,
loads the document in a new Firefox window.  A non-nil 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.

Non-interactively, this uses the optional second argument NEW-WINDOW
instead of `browse-url-new-window-flag'.
(defalias 'browse-url-firefox #[(url &optional new-window) "\306!\307 \310\311\312P\313\n\314\f\204\315\316!\204
\202 \205-\203,\317\202-\320C#%)\207" [url process-environment browse-url-firefox-program browse-url-firefox-arguments noninteractive new-window browse-url-encode-url browse-url-process-environment apply start-process "firefox " nil append called-interactively-p any ("-new-tab") ("-new-window") browse-url-new-window-flag browse-url-firefox-new-window-is-tab] 9 (#$ . 32263) (browse-url-interactive-arg "URL: ")])
#@218 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.
The optional argument NEW-WINDOW is not used.
(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 (#$ . 33468) (browse-url-interactive-arg "URL: ")])
#@226 Ask the Google Chrome WWW browser to load URL.
Default to the URL around or before point.  The strings in
variable `browse-url-chrome-arguments' are also passed to
Google Chrome.
The optional argument NEW-WINDOW is not used.
(defalias 'browse-url-chrome #[(url &optional _new-window) "\304!\305 \306\307\310P\311\n\312C\"%)\207" [url process-environment browse-url-chrome-program browse-url-chrome-arguments browse-url-encode-url browse-url-process-environment apply start-process "google-chrome " nil append] 8 (#$ . 34038) (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 (#$ . 34615) (browse-url-interactive-arg "URL: ")])
(make-obsolete 'browse-url-galeon nil "25.1")
#@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 (#$ . 36069)])
(make-obsolete 'browse-url-galeon-sentinel nil "25.1")
#@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 (#$ . 36553) (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 (#$ . 37981)])
#@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 (#$ . 38419) (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 (#$ . 38752) (browse-url-interactive-arg "URL: ")])
(make-obsolete 'browse-url-gnome-moz nil "25.1")
#@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\311\312!rq\210\313\216\314\n!\210\315p!+	\250\203\212\316	\317\"\317U\203\212\311\312!r\fq\210\320\216
\204A\321\322!\204F+\202H,\203O\323\202P\324-\325\261\210\326 .\327\216\330\331!\210\332\333\334	\"\211!\203o\335\n!\210\336\307\211\n\307\337\307\340&\210-\341\342!\210\316	\343\"\210\341\344!\202\244\341\345/\"\210\346\347\350\307/\3510-C\"%\210\341\352/\"*\207" [browse-url-mosaic-pidfile pid pidfile #1=#:temp-buffer #2=#:temp-buffer noninteractive expand-file-name nil file-readable-p generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents read signal-process 0 #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] called-interactively-p any "newwin\n" "goto\n" "\n" default-file-modes #[nil "\301!\207" [#3=#:umask set-default-file-modes] 2] set-default-file-modes 448 file-exists-p format "/tmp/Mosaic.%d" delete-file write-region silent excl message "Signaling Mosaic..." SIGUSR1 "Signaling Mosaic...done" "Starting %s..." apply start-process "xmosaic" append "Starting %s...done" new-window browse-url-new-window-flag url #3# browse-url-mosaic-program browse-url-mosaic-arguments] 8 (#$ . 39782) (browse-url-interactive-arg "Mosaic URL: ")])
(make-obsolete 'browse-url-mosaic nil "25.1")
#@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 (#$ . 41788) (browse-url-interactive-arg "Mosaic URL: ")])
(make-obsolete 'browse-url-cci nil "25.1")
#@728 Ask the Conkeror WWW browser to load URL.
Default to the URL around or before point.  Also pass the strings
in the variable `browse-url-conkeror-arguments' to Conkeror.

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

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

When called non-interactively, use optional second argument
NEW-WINDOW instead of `browse-url-new-window-flag'.
(defalias 'browse-url-conkeror #[(url &optional new-window) "\306!\307 \310\311\312\313\"\314\n\315\316\312\317\f\204\320\321!\204\"
\202$\2034\2030\322\2025\323\2025\322#D\"%)\207" [url process-environment browse-url-conkeror-program browse-url-conkeror-arguments noninteractive new-window browse-url-encode-url browse-url-process-environment apply start-process format "conkeror %s" nil append "-e" "load_url_in_new_%s('%s')" called-interactively-p any "buffer" "window" browse-url-new-window-flag browse-url-conkeror-new-window-is-buffer] 12 (#$ . 43030) (browse-url-interactive-arg "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 (#$ . 44379) (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 (#$ . 45102) (browse-url-interactive-arg "W3 URL: ")])
(make-obsolete 'browse-url-w3-gnudoit nil "25.1")
#@333 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'.
The optional argument NEW-WINDOW is not used.
(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 (#$ . 45680) (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\315\331	\306\"\211,\203\212\332,!\210\202\216\325	!\210)g\333=\203\304-\334\267\202\304\335\336!\210\202\304g\333=\203\272\f\337V\203\272\340 \210\341.!\210\202\243g\333=\203\304\335\342!\210\343\n\344\345+\346R\",\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (warn 156 avoid 163)) error "Please move out of the input field first" 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 (#$ . 46306) (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 (#$ . 48454) (browse-url-interactive-arg "Mailto URL: ")])
#@18 Open a man page.
(defalias 'browse-url-man #[(url &optional _new-window) "\302\303!\210\304\305\306#\307	!\203\303!\207\310\304\311\306#!\207" [url manual-program require man replace-regexp-in-string "\\`man:" "" executable-find woman "([[:alnum:]]+)"] 5 (#$ . 49839) (browse-url-interactive-arg "Man page 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 (#$ . 50168) (browse-url-interactive-arg "URL: ")])
#@127 Ask the KDE WWW browser to load URL.
Default to the URL around or before point.
The optional argument NEW-WINDOW is not used.
(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 (#$ . 50812) (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 (#$ . 51227)])
#@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 (#$ . 51536) (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\267\202#\307\n!\202*\310 \311\312\nP\313\314\315\316\n\317Q%)\202*	\320\321\f\"))\207" [process #1=#:val url process-environment exit-status process-exit-status #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (5 10 0 16)) browse-url-elinks-new-window browse-url-process-environment start-process "elinks:" nil "elinks" "-remote" "openURL(\"" "\",new-tab)" error "Unrecognized exit-code %d of process `elinks'"] 9 (#$ . 52307)])
(provide 'browse-url)