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



(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\312\314&\207" [require url 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] 12)
(defvar browse-url--browser-defcustom-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 "GNOME Web (Epiphany)" :value browse-url-epiphany) (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 :format "%{%t%}\n%d%v\n" :doc "Deprecated.  Use `browse-url-handlers' instead.")))
(byte-code "\301\302\303\304\305DD\306\307\310\311&\210\301\312\303\304\313DD\314\310\315\307&\210\301\316\303\304\317DD\320\307\321\310\311&\210\301\322\303\304\323DD\324\307\325\310\326&\210\301\327\303\304\330DD\331\310\315\307\332&\210\301\333\303\304\334DD\335\307\336%\210\337\333\340\341#\210\301\342\303\304\343DD\344\307\345%\210\337\342\340\341#\210\301\346\303\304\347DD\350\307\351%\210\337\346\340\341#\210\301\352\303\304\353DD\354\307\355%\210\301\356\303\304\357DD\360\307\336%\210\301\361\303\304\362DD\363\307\364%\210\301\365\303\304\366DD\367\307\370%\210\301\371\303\304\372DD\373\307\336%\210\301\374\303\304\375DD\376\307\377%\210\301\201@\303\304\201ADD\201B\307\201C%\210\337\201@\201D\201E#\210\301\201F\303\304\201GDD\201H\307\336\310\341&\210\301\201I\303\304\201JDD\201K\307\201L\310\341&\210\301\201M\303\304\201NDD\201O\307\336\310\311&\210\301\201P\303\304\201QDD\201R\307\201S\310\311&\210\301\201T\303\304\201UDD\201V\307\336%\210\337\201T\340\341#\210\301\201W\303\304\201XDD\201Y\307\201Z%\210\337\201W\340\341#\210\301\201[\303\304\201\\DD\201]\307\201^%\210\337\201[\340\341#\210\301\201_\303\304\201`DD\201a\307\336%\210\301\201b\303\304\201cDD\201d\307\201e%\210\301\201f\303\304\201gDD\201h\307\201i%\207" [browse-url--browser-defcustom-type custom-declare-variable browse-url-browser-function funcall function #[0 "\300\207" [browse-url-default-browser] 1 #1=""] "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\nAlso see `browse-url-secondary-browser-function' and\n`browse-url-handlers'." :type :version "24.1" browse-url-secondary-browser-function #[0 "\300\207" [browse-url-default-browser] 1 #1#] "Function used to launch an alternative browser.\nThis is usually an external browser (that is, not eww or w3m),\nused as the secondary browser choice, typically when a prefix\nargument is given to a URL-opening command in those modes that\nsupport this (for instance, eww/shr).\n\nAlso see `browse-url-browser-function'." "27.1" browse-url-mailto-function #[0 "\300\207" [browse-url-mail] 1 #1#] "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 #[0 "\300\207" [browse-url-man] 1 #1#] "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-button-regexp #[0 "\300\207" ["\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?\\(?:[-a-z0-9_=#$@~%&*+\\/[:word:]!?:;.,]+([-a-z0-9_=#$@~%&*+\\/[:word:]!?:;.,]+)\\(?:[-a-z0-9_=#$@~%&*+\\/[:word:]!?:;.,]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)?\\|[-a-z0-9_=#$@~%&*+\\/[:word:]!?:;.,]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)\\)"] 1 #1#] "Regular expression that matches URLs." regexp browse-url-netscape-program #[0 "\300\207" ["netscape"] 1 #1#] "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 nil "25.1" browse-url-netscape-arguments #[0 "\300\207" [nil] 1 #1#] "A list of strings to pass to Netscape as arguments." (repeat (string :tag "Argument")) browse-url-netscape-startup-arguments #[0 "\207" [browse-url-netscape-arguments] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "The X display for running the browser, if not same as Emacs's." (choice string (const :tag "Default" nil)) browse-url-mozilla-program #[0 "\300\207" ["mozilla"] 1 #1#] "The name by which to invoke Mozilla." browse-url-mozilla-arguments #[0 "\300\207" [nil] 1 #1#] "A list of strings to pass to Mozilla as arguments." (repeat (string :tag "Argument")) browse-url-mozilla-startup-arguments #[0 "\207" [browse-url-mozilla-arguments] 1 #1#] "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 #[0 "\300\211\203\301
@!\204\211A\262
\202
\211@\206\302\207" [("icecat" "iceweasel" "firefox") executable-find "firefox"] 3 #1#] "The name by which to invoke Firefox or a variant of it." browse-url-firefox-arguments #[0 "\300\207" [nil] 1 #1#] "A list of strings to pass to Firefox (or variant) as arguments." (repeat (string :tag "Argument")) browse-url-firefox-startup-arguments #[0 "\207" [browse-url-firefox-arguments] 1 #1#] "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 #[0 "\300\211\203\301
@!\204\211A\262
\202
\211@\206\302\207" [("google-chrome-stable" "google-chrome") executable-find "chromium"] 3 #1#] "The name by which to invoke the Chrome browser." browse-url-chrome-arguments #[0 "\300\207" [nil] 1 #1#] "A list of strings to pass to Google Chrome as arguments." (repeat (string :tag "Argument")) browse-url-chromium-program #[0 "\300\211\203\301
@!\204\211A\262
\202
\211@\206\302\207" [("chromium" "chromium-browser") executable-find "chromium"] 3 #1#] "The name by which to invoke Chromium." browse-url-chromium-arguments #[0 "\300\207" [nil] 1 #1#] "A list of strings to pass to Chromium as arguments." (repeat (string :tag "Argument")) browse-url-galeon-program #[0 "\300\207" ["galeon"] 1 #1#] "The name by which to invoke Galeon." browse-url-galeon-arguments #[0 "\300\207" [nil] 1 #1#] "A list of strings to pass to Galeon as arguments." (repeat (string :tag "Argument")) browse-url-galeon-startup-arguments #[0 "\207" [browse-url-galeon-arguments] 1 #1#] "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 #[0 "\300\207" ["epiphany"] 1 #1#] "The name by which to invoke GNOME Web (Epiphany)." browse-url-epiphany-arguments #[0 "\300\207" [nil] 1 #1#] "A list of strings to pass to GNOME Web (Epiphany) as arguments." (repeat (string :tag "Argument")) browse-url-epiphany-startup-arguments #[0 "\207" [browse-url-epiphany-arguments] 1 #1#] "A list of strings to pass to GNOME Web (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"))] 8)
(defvar browse-url-gnome-moz-program "gnome-moz-remote")
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\300\305\302\303#\210\304\316\306\307\317DD\320\314\321%\210\304\322\306\307\323DD\324\314\321%\210\304\325\306\307\326DD\327\312\303\314\321&\210\300\325\302\330#\210\304\331\306\307\332DD\333\314\321%\210\300\331\302\303#\210\304\334\306\307\335DD\336\314\321%\210\304\337\306\307\340DD\341\314\321%\210\300\337\302\303#\210\304\342\306\307\343DD\344\314\321%\210\304\345\306\307\346DD\347\314\350\312\303&\210\300\345\302\330#\210\304\351\306\307\352DD\353\312\303\314\354&\210\300\351\302\330#\210\304\355\306\307\356DD\357\314\360\312\303&\210\304\361\306\307\362DD\363\314\321%\210\304\364\306\307\365DD\366\314\367%\207" [make-obsolete-variable browse-url-gnome-moz-program nil "25.1" custom-declare-variable browse-url-gnome-moz-arguments funcall function #[0 "\300\207" [nil] 1 #1=""] "A list of strings passed to the GNOME mozilla viewer as arguments." :version "21.1" :type (repeat (string :tag "Argument")) browse-url-mozilla-new-window-is-tab #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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." "28.1" browse-url-galeon-new-window-is-tab #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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-conkeror-program #[0 "\300\207" ["conkeror"] 1 #1#] "The name by which to invoke Conkeror." string browse-url-conkeror-arguments #[0 "\300\207" [nil] 1 #1#] "A list of strings to pass to Conkeror as arguments." (repeat (string :tag "Argument")) browse-url-filename-alist #[0 "\301\302\303\304>\205\n\305\306\"BB\207" [system-type ("^/\\(ftp@\\|anonymous@\\)?\\([^:/]+\\):/*" . "ftp://\\2/") ("^/\\([^:@/]+@\\)?\\([^:/]+\\):/*" . "ftp://\\1\\2/") append (windows-nt ms-dos) (("^\\([a-zA-Z]:\\)[\\/]" . "file:///\\1/") ("^[\\/][\\/]+" . "file://")) (("^/+" . "file:///"))] 5 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "If non-nil, save the buffer before displaying its file.\nUsed by the `browse-url-of-file' command." browse-url-of-file-hook #[0 "\300\207" [nil] 1 #1#] "Hook run after `browse-url-of-file' has asked a browser to load a file." hook] 8)
(defvar browse-url-temp-file-name nil nil)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311%\210\302\312\304\305\313DD\314\310\315%\210\302\316\304\305\317DD\320\310\311%\210\302\321\304\305\322DD\323\310\324%\210\302\325\304\305\326DD\327\310\330%\210\302\331\304\305\332DD\333\310\334%\210\302\335\304\305\336DD\337\310\311%\210\302\340\304\305\341DD\342\310\343%\210\344\340\345\346#\210\302\347\304\305\350DD\351\310\311\352\353&\210\302\354\304\305\355DD\356\310\357\352\353&\210\302\360\304\305\361DD\362\310\363\352\353&\210\302\364\304\305\365DD\366\310\367\352\353&\210\302\370\304\305\371DD\372\310\343\352\353&\210\302\373\304\305\374DD\375\310\311\352\376&\210\302\377\304\305\201@DD\201A\310\201B%\210\302\201C\304\305\201DDD\201E\310\201F%\207" [make-variable-buffer-local browse-url-temp-file-name custom-declare-variable browse-url-xterm-program funcall function #[0 "\300\207" ["xterm"] 1 #1=""] "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 browse-url-xterm-args #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" ["gnudoit"] 1 #1#] "The name of the `gnudoit' program used by `browse-url-w3-gnudoit'." browse-url-gnudoit-args #[0 "\300\207" [("-q")] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "The name of the browser program used by `browse-url-generic'." (choice string (const :tag "None" nil)) browse-url-generic-args #[0 "\300\207" [nil] 1 #1#] "A list of strings defining options for `browse-url-generic-program'." (repeat (string :tag "Argument")) browse-url-temp-dir #[0 "\207" [temporary-file-directory] 1 #1#] "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 #[0 "\300\207" [3] 1 #1#] "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 nil "25.1" browse-url-text-browser #[0 "\300\207" ["lynx"] 1 #1#] "The name of the text browser to invoke." :version "23.1" browse-url-text-emacs-args #[0 "?\205\301\207" [window-system ("-show_cursor")] 1 #1#] "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 #[0 "\300\207" [avoid] 1 #1#] "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 #[0 "\300\207" [10] 1 #1#] "How many times to try to move down from a series of text browser input fields." integer browse-url-text-input-delay #[0 "\300\207" [0.2] 1 #1#] "Seconds to wait for a text browser between moves down from an input field." browse-url-kde-program #[0 "\300\207" ["kfmclient"] 1 #1#] "The name by which to invoke the KDE web browser." "21.1" browse-url-kde-args #[0 "\300\207" [("openURL")] 1 #1#] "A list of strings defining options for `browse-url-kde-program'." (repeat (string :tag "Argument")) browse-url-elinks-wrapper #[0 "\300\207" [("xterm" "-e")] 1 #1#] "Wrapper command prepended to the Elinks command-line." (repeat (string :tag "Wrapper"))] 8)
#@230 Return the browser kind of a browser FUNCTION for URL.
The browser kind is either `internal' (the browser runs inside
Emacs), `external' (the browser is spawned in an external
process), or nil (we don't know).

(fn FUNCTION URL)
(defalias 'browse-url--browser-kind #[514 "
9\205
\300N\301
!\203\211!\207\207" [browse-url-browser-kind functionp] 5 (#$ . 17835)])
#@75 Call `browse-url-mailto-function' with URL and ARGS.

(fn URL &rest ARGS)
(defalias 'browse-url--mailto #[385 "\"\207" [browse-url-mailto-function] 5 (#$ . 18208)])
#@12 

(fn URL)
(defalias 'browse-url--browser-kind-mailto #[257 "\301\"\207" [browse-url-mailto-function browse-url--browser-kind] 4 (#$ . 18382)])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url--mailto browse-url-browser-kind browse-url--browser-kind-mailto] 4)
#@72 Call `browse-url-man-function' with URL and ARGS.

(fn URL &rest ARGS)
(defalias 'browse-url--man #[385 "\"\207" [browse-url-man-function] 5 (#$ . 18666)])
#@12 

(fn URL)
(defalias 'browse-url--browser-kind-man #[257 "\301\"\207" [browse-url-man-function browse-url--browser-kind] 4 (#$ . 18831)])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url--man browse-url-browser-kind browse-url--browser-kind-man] 4)
#@76 Call `browse-url-browser-function' with URL and ARGS.

(fn URL &rest ARGS)
(defalias 'browse-url--browser #[385 "\"\207" [browse-url-browser-function] 5 (#$ . 19103)])
#@12 

(fn URL)
(defalias 'browse-url--browser-kind-browser #[257 "\301\"\207" [browse-url-browser-function browse-url--browser-kind] 4 (#$ . 19280)])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url--browser browse-url-browser-kind browse-url--browser-kind-browser] 4)
#@70 Return non-nil if URL is a file:// URL of a non-HTML file.

(fn URL)
(defalias 'browse-url--non-html-file-url-p #[257 "\301
\302\303\304#)\266\203\205\305
\302\303\304#)\266\203?\207" [inhibit-changing-match-data "\\`file://" nil t string-match "\\`file://.*\\.html?\\b"] 8 (#$ . 19568)])
#@234 Like `browse-url-handlers' but populated by Emacs and packages.

Emacs and external packages capable of browsing certain URLs
should place their entries in this alist rather than
`browse-url-handlers' which is reserved for the user.
(defvar browse-url-default-handlers '(("\\`mailto:" . browse-url--mailto) ("\\`man:" . browse-url--man) (browse-url--non-html-file-url-p . browse-url-emacs)) (#$ . 19874))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable browse-url-handlers funcall function #[0 "\300\207" [nil] 1 ""] "An alist with elements of the form (REGEXP-OR-PREDICATE . HANDLER).\nEach REGEXP-OR-PREDICATE is matched against the URL to be opened\nin turn and the first match's HANDLER is invoked with the URL.\n\nA HANDLER must be a function with the same arguments as\n`browse-url'.\n\nIf no REGEXP-OR-PREDICATE matches, the same procedure is\nperformed with the value of `browse-url-default-handlers'.  If\nthere is also no match, the URL is opened using the value of\n`browse-url-browser-function'." :type (alist :key-type (choice (regexp :tag "Regexp") (function :tag "Predicate")) :value-type (function :tag "Handler")) :version "28.1"] 8)
#@528 Return a handler of suitable for browsing URL.
This searches `browse-url-handlers', and
`browse-url-default-handlers' for a matching handler.  Return nil
if no handler is found.

If KIND is given, the search is restricted to handlers whose
function symbol has the symbol-property `browse-url-browser-kind'
set to KIND.

Currently, it also consults `browse-url-browser-function' first
if it is set to an alist, although this usage is deprecated since
Emacs 28.1 and will be removed in a future release.

(fn URL &optional KIND)
(defalias 'browse-url-select-handler #[513 "\3042b\305:\205\306!?\205\307\310\311\312#\210	\n#\211\205_\211@\211@
A\2033\313\"=\203V\306!\203@
!\202N
\314\315\316#)\266\203\203V\317\304\"\210\266
A\266\202\202\262
0\207" [browse-url-browser-function browse-url-handlers browse-url-default-handlers inhibit-changing-match-data custom-url-handler append functionp lwarn browse-url :warning "Having `browse-url-browser-function' set to an\nalist is deprecated.  Use `browse-url-handlers' instead." browse-url--browser-kind nil t string-match throw] 13 (#$ . 21071)])
#@109 URL-encode the chars in TEXT that match CHARS.
CHARS is a regexp that matches a character.

(fn TEXT CHARS)
(defalias 'browse-url-url-encode-chars #[514 "\300
\301#\207" [replace-regexp-in-string #[257 "\300\301\302!\"\207" [format "%%%X" string-to-char] 5 "\n\n(fn S)"]] 6 (#$ . 22201)])
#@146 Escape annoying characters in URL.
The annoying characters are those that can mislead a web browser
regarding its parameter treatment.

(fn URL)
(defalias 'browse-url-encode-url #[257 "\300
\301\"\207" [browse-url-url-encode-chars "[\"()$ ]"] 4 (#$ . 22499)])
(defalias 'browse-url-url-at-point #[0 "\300\301\302\"\206\300\303\302\"\211\205\304
P\262
\207" [thing-at-point url t filename "http://"] 3])
#@365 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'.

(fn PROMPT)
(defalias 'browse-url-interactive-arg #[257 "\304 \305\234\306
!\266\307
\203 	\203 \310\311\312\313\314 \315 \"#\206\"\316 \"\n??=?D\207" [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 (#$ . 22913)])
#@12 

(fn ARG)
(defalias 'browse-url-maybe-new-window '(macro . #[257 "\300\301\302BBB\207" [if (or noninteractive (not (called-interactively-p 'any))) (browse-url-new-window-flag)] 5 (#$ . 23697)]))
#@296 Use a web 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'.

(fn &optional FILE)
(defalias 'browse-url-of-file #[256 "\211\204\301 \211\262\204\302\303!\210\304
!\211\2030r\211q\210\305 \203/\203*\306 \210\202/\307\310\"\210)\210\311
!\203<\312
!\262
\313\314!!\210\315\316!\207" [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" file-remote-p file-local-copy browse-url browse-url-file-url run-hooks browse-url-of-file-hook] 5 (#$ . 23901) nil])
#@117 Return the URL corresponding to FILE.
Use variable `browse-url-filename-alist' to map filenames to URLs.

(fn FILE)
(defalias 'browse-url-file-url #[257 "\304=\203\n\305\202	\206\n\211\203\306\"\262\210\307
\310\"\262
\211\203D\211@\211\203=\311
@\"\203=\312
A\313\314$\262
A\266\202\202!\210\207" [system-type file-name-coding-system default-file-name-coding-system browse-url-filename-alist windows-nt utf-8 encode-coding-string browse-url-url-encode-chars "[*\"()',=;?% ]" string-match replace-match t nil] 8 (#$ . 24690)])
#@235 Use a web browser to display BUFFER.
See `browse-url' for details.

Display the current buffer if BUFFER is nil.  Display only the
currently visible part of BUFFER (from a temporary file) if buffer is
narrowed.

(fn &optional BUFFER)
(defalias 'browse-url-of-buffer #[256 "\212\211\203\211q\210deZ\304 U??\205\206\305\301!\205	\211\203(\306
!\204B\n\2047\307\310\311\312\"\313\314#!\n\262
\315ed\313\316%\210\317
!\262
)\207" [buffer-file-name dired-directory browse-url-temp-file-name browse-url-temp-dir buffer-size boundp file-exists-p convert-standard-filename make-temp-file expand-file-name "burl" nil ".html" write-region no-message browse-url-of-file] 8 (#$ . 25244) nil])
#@151 Delete `browse-url-temp-file-name' from the file system.
If optional arg TEMP-FILE-NAME is non-nil, delete it instead.

(fn &optional TEMP-FILE-NAME)
(defalias 'browse-url-delete-temp-file #[256 "\211\206\211\205\301
!\205\302
!\207" [browse-url-temp-file-name file-exists-p delete-file] 4 (#$ . 25947)])
(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 #[0 "\301\302\211\"\303\211\203\304\305!!\202\306\307!)\207" [browse-url-default-handlers dired-get-filename t nil browse-url-of-file expand-file-name error "No file on this line"] 4 (#$ . 26323) nil])
#@94 Use a web browser to display the current region.
See `browse-url' for details.

(fn MIN MAX)
(defalias 'browse-url-of-region #[514 "\212\214

}\210\300 *\207" [browse-url-of-buffer] 4 (#$ . 26641) "r"])
#@744 Open URL using a configurable method.
This will typically (by default) open URL with an external web
browser, but a wide variety of different methods can be used,
depending on the URL type.

The variables `browse-url-browser-function',
`browse-url-handlers', and `browse-url-default-handlers'
determine which browser function to use.

This command prompts for a URL, defaulting to the URL at or
before point.

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.

(fn URL &rest ARGS)
(defalias 'browse-url #[385 "\305\306!\204\211\206\fC\262
	\203$\307!\204$\310\311\"\204$\312!\262\313\n!\314!\206.\315\f!\2067\312\316!
\317\320\321\";\203J\322\323\317\320\321\"\"\210\324
!\203X\325
#\202\\\326\327\"*\207" [browse-url-new-window-flag url-handler-mode process-environment browse-url-browser-function default-directory called-interactively-p interactive file-name-absolute-p string-match "\\`[a-z]+:" expand-file-name copy-sequence browse-url-select-handler unhandled-file-name-directory "~/" frame-parameter nil display setenv "DISPLAY" functionp apply error "No suitable browser for URL %s"] 9 (#$ . 26851) (browse-url-interactive-arg "URL: ")])
#@197 Open URL at point using a configurable method.
See `browse-url' for details.
Optional prefix argument ARG non-nil inverts the value of the option
`browse-url-new-window-flag'.

(fn &optional ARG)
(defalias 'browse-url-at-point #[256 "\301 \211\203\302
\203?\202\"\207\303\304!\207" [browse-url-new-window-flag browse-url-url-at-point browse-url error "No URL found"] 5 (#$ . 28289) "P"])
#@247 Browse URL with a browser of the given browser KIND.
KIND is either `internal' or `external'.

When called interactively, the default browser kind is the
opposite of the browser kind of `browse-url-browser-function'.

(fn KIND URL &optional ARG)
(defalias 'browse-url-with-browser-kind #[770 "\300\"\211\204\301=\203\302\202\303\262
\211\"\207" [browse-url-select-handler external browse-url-default-browser eww] 7 (#$ . 28693) (byte-code "\301\302!\303@\"\304=\203\305\202\304\306\307\310\311\"\312\313\314\313\211&!\211B\207" [browse-url-browser-function browse-url-interactive-arg "URL: " browse-url--browser-kind internal external intern completing-read format-prompt "Browser kind" (internal external) nil t] 11)])
#@194 Use a web browser to load a URL clicked with the mouse.
See `browse-url' for details.

The URL is the one around or before the position of the mouse
click but point is not changed.

(fn EVENT)
(defalias 'browse-url-at-mouse #[257 "\212\300
!\210\301 )\207" [mouse-set-point browse-url-at-point] 3 (#$ . 29442) "e"])
#@130 Invoke the MS-Windows system's default Web browser.
The optional NEW-WINDOW argument is not used.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-default-windows-browser #[513 "\302!\262\303\267\202$	\203\304\305\306!P!\207\307\310!\207\311\312\313\211\211%\207\314\315\316\313\317\320\313\211&\321=\203:\322!\202;\"\207" [system-type dos-windows-version browse-url-encode-url #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ms-dos 11 cygwin 27)) 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] 11 (#$ . 29765) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-default-windows-browser browse-url-browser-kind external] 4)
#@125 Invoke the macOS system's default Web browser.
The optional NEW-WINDOW argument is not used.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-default-macosx-browser #[513 "\300!\262\301\302P\303\304$\207" [browse-url-encode-url start-process "open " nil "open"] 7 (#$ . 30656) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-default-macosx-browser browse-url-browser-kind external] 4)
#@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 #[0 "\206\302 \211\203\303
P	B\207	\207" [browse-url-browser-display process-environment browse-url-emacs-display "DISPLAY="] 3 (#$ . 31111)])
#@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 #[0 "\300\301 \236\243\211\302\303!\232?\205\211\207" [display frame-parameters getenv "DISPLAY"] 4 (#$ . 31572)])
#@482 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'.

(fn URL &rest ARGS)
(defalias 'browse-url-default-browser #[385 "\306\307>\203\310\202f\311=\203\312\202f\313 \203\314\202f\315	!\203(\316\202f\315\n!\2032\317\202f\315!\203<\320\202f\315\f!\203F\321\202f\315
!\203P\322\202f\315!\203[\323\202f\324\325!\203e\326\202f\327#\207" [system-type browse-url-mozilla-program browse-url-firefox-program browse-url-chromium-program browse-url-kde-program browse-url-chrome-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-chrome browse-url-text-xterm locate-library "w3" browse-url-w3 #[128 "\300\301!\207" [error "No usable browser found"] 3 "\n\n(fn &rest IGNORE)"] browse-url-xterm-program] 6 (#$ . 31953)])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-default-browser browse-url-browser-kind external] 4)
#@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 #[0 "\300\301!\204\f\300\302!\205\303\304!\207" [getenv "DISPLAY" "WAYLAND_DISPLAY" executable-find "xdg-open"] 2 (#$ . 33435)])
#@191 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.

(fn URL &optional IGNORED)
(defalias 'browse-url-xdg-open #[513 "\300\301\302\303\302%\207" [call-process "xdg-open" nil 0] 8 (#$ . 33736) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-xdg-open browse-url-browser-kind external] 4)
#@755 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-netscape #[513 "
C\211\306\242!\240\210\307 \310\311\312\242P\313	\314\n\315=\203#\242C\202P\314	\205*\316\317\320\242\f\2049\321\322!\204>
\202?
\205L\203K\323\202L\324\325RD\"\"%\326
\327\330\"\")\207" [process-environment browse-url-netscape-program browse-url-netscape-arguments window-system noninteractive browse-url-new-window-flag 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 make-closure #[514 "\301\300\242\"\207" [V0 browse-url-netscape-sentinel] 5 "\n\n(fn PROCESS CHANGE)"] browse-url-netscape-new-window-is-tab] 17 (#$ . 34196) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\210\304\301\305\306#\302\207" [make-obsolete browse-url-netscape nil "25.1" function-put browse-url-browser-kind external] 4)
#@79 Handle a change to the process communicating with Netscape.

(fn PROCESS URL)
(defalias 'browse-url-netscape-sentinel #[514 "\303!\304=\206\305 \306\307	\"\210\310\311\312P\313	\314\nC\"%)\207" [process-environment browse-url-netscape-program browse-url-netscape-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting %s..." apply start-process "netscape" nil append] 10 (#$ . 35904)])
(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 #[0 "\301\302Y\203\303\202\f\304!\207" [browse-url-netscape-version browse-url-netscape-send 4 "xfeDoCommand(reload)" "reload"] 3 (#$ . 36394) nil])
(make-obsolete 'browse-url-netscape-reload nil "25.1")
#@58 Send a remote control command to Netscape.

(fn COMMAND)
(defalias 'browse-url-netscape-send #[257 "\303 \304\305\306\307	\310\n\311D\"%)\207" [process-environment browse-url-netscape-program browse-url-netscape-arguments browse-url-process-environment apply start-process "netscape" nil append "-remote"] 10 (#$ . 36737)])
(make-obsolete 'browse-url-netscape-send nil "25.1")
#@750 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-mozilla #[513 "
C\211\306\242!\240\210\307 \310\311\312\242P\313	\314\n\315\316	\242\204%\317\320!\204*\202+\f\2057
\2036\321\2027\322\323RD\"%\324
\325\326\"\")\207" [process-environment browse-url-mozilla-program browse-url-mozilla-arguments noninteractive browse-url-new-window-flag browse-url-mozilla-new-window-is-tab 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 make-closure #[514 "\301\300\242\"\207" [V0 browse-url-mozilla-sentinel] 5 "\n\n(fn PROCESS CHANGE)"]] 15 (#$ . 37124) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-mozilla browse-url-browser-kind external] 4)
#@78 Handle a change to the process communicating with Mozilla.

(fn PROCESS URL)
(defalias 'browse-url-mozilla-sentinel #[514 "\303!\304=\206\305 \306\307	\"\210\310\311\312P\313	\314\nC\"%)\207" [process-environment browse-url-mozilla-program browse-url-mozilla-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting %s..." apply start-process "mozilla " nil append] 10 (#$ . 38699)])
#@684 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-firefox #[513 "\306!\262\307 \310\311\312P\313	\314\n\204\315\316!\204 \202!\f\205-
\203,\317\202-\320	C#%)\207" [process-environment browse-url-firefox-program browse-url-firefox-arguments noninteractive browse-url-new-window-flag browse-url-firefox-new-window-is-tab browse-url-encode-url browse-url-process-environment apply start-process "firefox " nil append called-interactively-p any ("-new-tab") ("-new-window")] 11 (#$ . 39129) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-firefox browse-url-browser-kind external] 4)
#@249 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.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-chromium #[513 "\303!\262\304 \305\306\307P\310	\311\nC\"%)\207" [process-environment browse-url-chromium-program browse-url-chromium-arguments browse-url-encode-url browse-url-process-environment apply start-process "chromium " nil append] 10 (#$ . 40441) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-chromium browse-url-browser-kind external] 4)
#@257 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.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-chrome #[513 "\303!\262\304 \305\306\307P\310	\311\nC\"%)\207" [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] 10 (#$ . 41130) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-chrome browse-url-browser-kind external] 4)
#@745 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-galeon #[513 "
C\211\306\242!\240\210\307 \310\311\312\242P\313	\314\n\204 \315\316!\204%\202&\f\2035
\2031\317\2026\320\2026\321\242C#%\322
\323\324\"\")\207" [process-environment browse-url-galeon-program browse-url-galeon-arguments noninteractive browse-url-new-window-flag browse-url-galeon-new-window-is-tab 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 make-closure #[514 "\301\300\242\"\207" [V0 browse-url-galeon-sentinel] 5 "\n\n(fn PROCESS CHANGE)"]] 12 (#$ . 41824) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\210\304\301\305\306#\302\207" [make-obsolete browse-url-galeon nil "25.1" function-put browse-url-browser-kind external] 4)
#@77 Handle a change to the process communicating with Galeon.

(fn PROCESS URL)
(defalias 'browse-url-galeon-sentinel #[514 "\303!\304=\206\305 \306\307	\"\210\310\311\312P\313	\314\nC\"%)\207" [process-environment browse-url-galeon-program browse-url-galeon-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting %s..." apply start-process "galeon " nil append] 10 (#$ . 43437)])
(make-obsolete 'browse-url-galeon-sentinel nil "25.1")
#@769 Ask the GNOME Web (Epiphany) WWW browser to load URL.
Default to the URL around or before point.  The strings in variable
`browse-url-epiphany-arguments' are also passed to GNOME Web.

When called interactively, if variable `browse-url-new-window-flag' is
non-nil, load the document in a new GNOME Web 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-epiphany #[513 "
C\211\306\242!\240\210\307 \310\311\312\242P\313	\314\n\204 \315\316!\204%\202&\f\2035
\2031\317\2026\320\2026\321\242C#%\322
\323\324\"\")\207" [process-environment browse-url-epiphany-program browse-url-epiphany-arguments noninteractive browse-url-new-window-flag browse-url-epiphany-new-window-is-tab 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 make-closure #[514 "\301\300\242\"\207" [V0 browse-url-epiphany-sentinel] 5 "\n\n(fn PROCESS CHANGE)"]] 12 (#$ . 43917) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-epiphany browse-url-browser-kind external] 4)
#@91 Handle a change to the process communicating with GNOME Web (Epiphany).

(fn PROCESS URL)
(defalias 'browse-url-epiphany-sentinel #[514 "\303!\304=\206\305 \306\307	\"\210\310\311\312P\313	\314\nC\"%)\207" [process-environment browse-url-epiphany-program browse-url-epiphany-startup-arguments process-exit-status 0 browse-url-process-environment message "Starting %s..." apply start-process "epiphany " nil append] 10 (#$ . 45522)])
#@199 Ask Emacs to load URL into a buffer and show it in another window.
Optional argument SAME-WINDOW non-nil means show the URL in the
currently selected window instead.

(fn URL &optional SAME-WINDOW)
(defalias 'browse-url-emacs #[513 "\303\304!\210\305!
\203\306\202\307\310!>\204\311\312\313D\"\210
\314H\315\232\203S\316\310!>\2047\311\312\313D\"\210\317H!\203S\211\310!>\204N\311\312\313D\"\210\317H!\207	\320B\nB\211!)\207" [cl-struct-url-tags url-handler-regexp file-name-handler-alist require url-handlers url-generic-parse-url find-file find-file-other-window type-of signal wrong-type-argument url 1 "file" file-directory-p 6 url-file-handler] 9 (#$ . 45969) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-emacs browse-url-browser-kind internal] 4)
#@589 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-gnome-moz #[513 "\304\305\306P\307\310	\n\204\311\312!\204\202\205\313\314\nD#%\207" [browse-url-gnome-moz-program browse-url-gnome-moz-arguments noninteractive browse-url-new-window-flag apply start-process "gnome-moz-remote " nil append called-interactively-p any ("--newwin") "--raise"] 12 (#$ . 46811) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\210\304\301\305\306#\302\207" [make-obsolete browse-url-gnome-moz nil "25.1" function-put browse-url-browser-kind external] 4)
#@759 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-conkeror #[513 "\306!\262\307 \310\311\312\313\"\314	\315\n\316\312\317\204\320\321!\204$\n\202%\f\2034
\2030\322\2025\323\2025\322\f#D\"%)\207" [process-environment browse-url-conkeror-program browse-url-conkeror-arguments noninteractive browse-url-new-window-flag browse-url-conkeror-new-window-is-buffer 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"] 14 (#$ . 47944) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\210\304\301\305\306#\302\207" [make-obsolete browse-url-conkeror nil "28.1" function-put browse-url-browser-kind external] 4)
#@436 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-w3 #[513 "\302\303!\210\204\304\305!\204\211\202	\203\306!\207\307!\207" [noninteractive browse-url-new-window-flag require w3 called-interactively-p any w3-fetch-other-window w3-fetch] 4 (#$ . 49447) (browse-url-interactive-arg "W3 URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-w3 browse-url-browser-kind internal] 4)
#@246 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.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-w3-gnudoit #[513 "\302\303\304P\305\306	\307	\310Q\311D\"%\207" [browse-url-gnudoit-program browse-url-gnudoit-args apply start-process "gnudoit:" nil append "(w3-fetch \"" "\")" "(raise-frame)"] 12 (#$ . 50269) (browse-url-interactive-arg "W3 URL: ")])
(byte-code "\300\301\302\303#\210\304\301\305\306#\302\207" [make-obsolete browse-url-w3-gnudoit nil "25.1" function-put browse-url-browser-kind internal] 4)
#@364 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.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-text-xterm #[513 "\303\304P\305	\306\n\307\nE\"BBB\"\207" [browse-url-text-browser browse-url-xterm-program browse-url-xterm-args apply start-process nil append "-e"] 12 (#$ . 50958) (browse-url-interactive-arg "Text browser URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-text-xterm browse-url-browser-kind external] 4)
#@637 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'.

(fn URL &optional NEW-BUFFER)
(defalias 'browse-url-text-emacs #[513 "\306\307\310!\211\205\f\311
!	\312\313!\210\n\204\314\315!\204\202 \203-\203-q\210\316 \210\n\2047\314\315!\204;\202<\204O\203O
\203O\317!\320>\204p\321\322\f\211\323\324
C\"BBB\"\262\325!\210\326 \210\327\311!\330\"\202\302\331\306\"\211\203\200\332
!\266\202\205\325!\266g\333=\203\272&\334\267\202\272\335\336!\210\202\272g\333=\203\260\211\337V\203\260\340 \210\341'!\210\202\231g\333=\203\272\335\342!\210\343\344\345Q\")\207" [system-uses-terminfo browse-url-text-input-attempts noninteractive browse-url-new-window-flag browse-url-text-browser browse-url-text-emacs-args 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 #[514 "\300!\301>?\205\302!\211\205\303
!\262
\207" [process-status (run stop) process-buffer kill-buffer] 5 "\n\n(fn PROCESS EVENT)"] 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 146 avoid 153)) 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" "
" browse-url-text-input-field browse-url-text-input-delay] 13 (#$ . 51701) (browse-url-interactive-arg "Text browser URL: ")])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put browse-url-text-emacs browse-url-browser-kind internal autoload rfc6068-parse-mailto-url "rfc6068"] 4)
#@661 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-mail #[513 "\212\304!\305\306\"\305\307\"\305\310\"\311\311\311	\"\"\"AAA\211?\205'	\2042\312\313!\2047\2028\n\203I\314\315\316pD%\210\202V\317\315\211\316pD&\210\211\205eb\210\320\321\321Q\315\322#\204on\204o\321c\210`\323\324\321#c\210n\204~\321c\210b)\266\210)\207" [mail-citation-hook noninteractive browse-url-new-window-flag mail-header-separator rfc6068-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 string-replace "
\n"] 18 (#$ . 53939) (browse-url-interactive-arg "Mailto URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-mail browse-url-browser-kind internal] 4)
#@49 Open a man page.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-man #[513 "\301\302!\210\303\304\305#\262\306!\203\302!\207\307\303\310\305#!\207" [manual-program require man replace-regexp-in-string "\\`man:" "" executable-find woman "([[:alnum:]]+)"] 7 (#$ . 55374) (browse-url-interactive-arg "Man page URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-man browse-url-browser-kind internal] 4)
#@348 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.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-generic #[513 "\204\302\303!\210\304\305\306\307\306\310		C\"&\207" [browse-url-generic-program browse-url-generic-args error "No browser defined (`browse-url-generic-program')" apply call-process nil 0 append] 11 (#$ . 55815) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-generic browse-url-browser-kind external] 4)
#@158 Ask the KDE WWW browser to load URL.
Default to the URL around or before point.
The optional argument NEW-WINDOW is not used.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-kde #[513 "\302\303!\210\304\305\306P\307\310	C\"%\207" [browse-url-kde-program browse-url-kde-args message "Sending URL to KDE..." apply start-process "KDE " nil append] 10 (#$ . 56572) (browse-url-interactive-arg "KDE URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-kde browse-url-browser-kind external] 4)
#@67 Ask the Elinks WWW browser to load URL in a new window.

(fn URL)
(defalias 'browse-url-elinks-new-window #[257 "\302 \303\304\305\306P\307D	\310D#\")\207" [process-environment browse-url-elinks-wrapper browse-url-process-environment apply start-process append "elinks:" nil "elinks"] 8 (#$ . 57096)])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-elinks-new-window browse-url-browser-kind external] 4)
#@314 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'.

(fn URL &optional NEW-WINDOW)
(defalias 'browse-url-elinks #[513 "
C\211\301\242!\240\210
\203\302
\242!\207\303 \304\305\306\307\310\311%
\312
\313\314\"\")\207" [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 make-closure #[514 "\301\300\242\"\207" [V0 browse-url-elinks-sentinel] 5 "\n\n(fn PROCESS CHANGE)"]] 10 (#$ . 57528) (browse-url-interactive-arg "URL: ")])
(byte-code "\300\301\302\303#\300\207" [function-put browse-url-elinks browse-url-browser-kind external] 4)
#@83 Determines if Elinks is running or a new one has to be started.

(fn PROCESS URL)
(defalias 'browse-url-elinks-sentinel #[514 "\301!\211\302\267\202\303!\207\304 \305\306P\307\310\311\312\313Q%)\207\314\315\"\207" [process-environment process-exit-status #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (5 9 0 13)) 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'"] 11 (#$ . 58436)])
#@43 The keymap used for `browse-url' buttons.
(defvar browse-url-button-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\301
\305\306#\210\207" [make-sparse-keymap define-key "
" browse-url-button-open [mouse-2] "w" browse-url-button-copy] 5) (#$ . 59010))
(custom-declare-face 'browse-url-button '((t :inherit link)) "Face for `browse-url' buttons (i.e., links)." :version "27.1")
#@204 Add clickable buttons to the text following point in the current buffer.
Everything that matches `browse-url-button-regexp' will be made
clickable and will use `browse-url' to open the URLs in question.
(defalias 'browse-url-add-buttons #[0 "\303\212\304	\305\303#\205%\306\307\224\307\225\310\311\312\n\313\314\315\303\316\317\320\321\307!\257\f#\210\202*\207" [inhibit-read-only browse-url-button-regexp browse-url-button-map t re-search-forward nil add-text-properties 0 help-echo "Open the URL under point" keymap face browse-url-button button category browse-url browse-url-data match-string] 16 (#$ . 59404)])
#@193 Follow the link under point using `browse-url'.
If EXTERNAL (the prefix if used interactively), open with the
external browser instead of the default one.

(fn &optional EXTERNAL MOUSE-EVENT)
(defalias 'browse-url-button-open #[512 "\301
!\210\302`\303\"\211\204\304\305!\210\203
!\207\306
!\207" [browse-url-secondary-browser-function mouse-set-point get-text-property browse-url-data error "No URL under point" browse-url] 5 (#$ . 60031) (list current-prefix-arg last-nonmenu-event)])
#@129 Open URL using `browse-url'.
If `current-prefix-arg' is non-nil, use
`browse-url-secondary-browser-function' instead.

(fn URL)
(defalias 'browse-url-button-open-url #[257 "\203	
!\207\302
!\207" [current-prefix-arg browse-url-secondary-browser-function browse-url] 3 (#$ . 60531)])
#@27 Copy the URL under point.
(defalias 'browse-url-button-copy #[0 "\300`\301\"\211\204\f\302\303!\210\304
!\210\305\306\"\207" [get-text-property browse-url-data error "No URL under point" kill-new message "Copied %s"] 4 (#$ . 60823) nil])
(provide 'browse-url)