Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ange-ftp.elc	126.4 KB	-rw-r--r--
browse-url.elc	54.35 KB	-rw-r--r--
dbus.elc	55.05 KB	-rw-r--r--
dig.elc	6.34 KB	-rw-r--r--
dns.elc	11.52 KB	-rw-r--r--
eudc-bob.elc	8.58 KB	-rw-r--r--
eudc-export.elc	5.97 KB	-rw-r--r--
eudc-hotlist.elc	6.69 KB	-rw-r--r--
eudc-vars.elc	14.68 KB	-rw-r--r--
eudc.elc	33.77 KB	-rw-r--r--
eudcb-bbdb.elc	5.97 KB	-rw-r--r--
eudcb-ldap.elc	5.5 KB	-rw-r--r--
eudcb-mab.elc	2.58 KB	-rw-r--r--
eww.elc	68.31 KB	-rw-r--r--
gnutls.elc	12.62 KB	-rw-r--r--
goto-addr.elc	10 KB	-rw-r--r--
hmac-def.elc	1.87 KB	-rw-r--r--
hmac-md5.elc	2.11 KB	-rw-r--r--
imap.elc	102.11 KB	-rw-r--r--
ldap.elc	16.8 KB	-rw-r--r--
mailcap.elc	27.34 KB	-rw-r--r--
mairix.elc	25.1 KB	-rw-r--r--
net-utils.elc	35.04 KB	-rw-r--r--
netrc.elc	4.95 KB	-rw-r--r--
network-stream.elc	12.02 KB	-rw-r--r--
newst-backend.elc	65.76 KB	-rw-r--r--
newst-plainview.elc	48.96 KB	-rw-r--r--
newst-reader.elc	9.66 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	76.37 KB	-rw-r--r--
newsticker.elc	769 B	-rw-r--r--
nsm.elc	34.82 KB	-rw-r--r--
ntlm.elc	13.79 KB	-rw-r--r--
pop3.elc	20.1 KB	-rw-r--r--
puny.elc	4.92 KB	-rw-r--r--
quickurl.elc	17.83 KB	-rw-r--r--
rcirc.elc	105.35 KB	-rw-r--r--
rfc2104.elc	1.2 KB	-rw-r--r--
rlogin.elc	10.97 KB	-rw-r--r--
sasl-cram.elc	1003 B	-rw-r--r--
sasl-digest.elc	3.33 KB	-rw-r--r--
sasl-ntlm.elc	1.62 KB	-rw-r--r--
sasl-scram-rfc.elc	3.6 KB	-rw-r--r--
sasl.elc	6.58 KB	-rw-r--r--
secrets.elc	23.55 KB	-rw-r--r--
shr-color.elc	8.82 KB	-rw-r--r--
shr.elc	69.72 KB	-rw-r--r--
sieve-manage.elc	15.31 KB	-rw-r--r--
sieve-mode.elc	6.94 KB	-rw-r--r--
sieve.elc	11.62 KB	-rw-r--r--
snmp-mode.elc	14.51 KB	-rw-r--r--
soap-client.elc	221.75 KB	-rw-r--r--
soap-inspect.elc	20.04 KB	-rw-r--r--
socks.elc	12.5 KB	-rw-r--r--
telnet.elc	9.65 KB	-rw-r--r--
tramp-adb.elc	107.17 KB	-rw-r--r--
tramp-archive.elc	25.39 KB	-rw-r--r--
tramp-cache.elc	23.77 KB	-rw-r--r--
tramp-cmds.elc	18.89 KB	-rw-r--r--
tramp-compat.elc	9.57 KB	-rw-r--r--
tramp-ftp.elc	4.38 KB	-rw-r--r--
tramp-gvfs.elc	107.3 KB	-rw-r--r--
tramp-integration.elc	7.03 KB	-rw-r--r--
tramp-loaddefs.el	60.78 KB	-rw-r--r--
tramp-rclone.elc	39.17 KB	-rw-r--r--
tramp-sh.elc	306.37 KB	-rw-r--r--
tramp-smb.elc	140 KB	-rw-r--r--
tramp-sudoedit.elc	76.86 KB	-rw-r--r--
tramp-uu.elc	1.91 KB	-rw-r--r--
tramp.elc	242.21 KB	-rw-r--r--
trampver.elc	2.15 KB	-rw-r--r--
webjump.elc	9.85 KB	-rw-r--r--
zeroconf.elc	18.4 KB	-rw-r--r--

Code Editor : browse-url.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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.

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

(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 :group 'comm)
(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 "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)))
(byte-code "\301\302\303\304\305\306\307&\210\301\310\311\312\306\313\305&\210\301\314\315\316\305\317\306\307&\210\301\320\321\322\305\323\306\324&\210\301\325\326\327\306\313\305\330&\210\301\331\332\333\305\334%\210\335\331\336\337#\210\301\340\336\341\305\342%\210\335\340\336\337#\210\301\343\340\344\305\345%\210\335\343\336\337#\210\301\346\336\347\305\350%\210\301\351\352\353\305\334%\210\301\354\336\355\305\356%\210\301\357\354\360\305\361%\210\301\362\363\364\305\334%\210\301\365\336\366\305\367%\210\301\370\365\371\305\372%\210\335\370\373\374#\210\301\375\376\377\305\334\306\337&\210\301\201@�\336\201A�\305\201B�\306\337&\210\301\201C�\201D�\201E�\305\334\306\307&\210\301\201F�\336\201G�\305\201H�\306\307&\210\301\201I�\201J�\201K�\305\334%\210\335\201I�\336\337#\210\301\201L�\336\201M�\305\201N�%\210\335\201L�\336\337#\210\301\201O�\201L�\201P�\305\201Q�%\210\335\201O�\336\337#\210\301\201R�\201S�\201T�\305\334%\210\301\201U�\336\201V�\305\201W�%\210\301\201X�\201U�\201Y�\305\201Z�%\207" [browse-url--browser-defcustom-type 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.\n\nAlso see `browse-url-secondary-browser-function'." :type :version "24.1" browse-url-secondary-browser-function 'browse-url-default-browser "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 '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-button-regexp (concat "\\b\$\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|" "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\$:\\)" "\$//[-a-z0-9_.]+:[0-9]*\$?" (let ((chars "-a-z0-9_=#$@~%&*+\\/[:word:]") (punct "!?:;.,")) (concat "\$?:" "[" chars punct "]+" "(" "[" chars punct "]+" "[" chars "]*)" "\\(?:" "[" chars punct "]+" "[" chars "]" "\$?" "\\|" "[" chars punct "]+" "[" chars "]" "\\)")) "\\)") "Regular expression that matches URLs." regexp 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 nil "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"))] 8)
(defvar browse-url-gnome-moz-program "gnome-moz-remote")
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\210\300\305\302\303#\210\304\314\302\315\312\316%\210\304\317\302\320\312\316%\210\304\321\302\322\310\303\312\316&\210\304\323\302\324\312\316%\210\300\323\302\303#\210\304\325\302\326\312\316%\210\304\327\302\330\312\316%\210\300\327\302\303#\210\304\331\302\332\312\316%\210\304\333\334\335\312\336\310\337&\210\300\333\302\303#\210\304\340\302\341\312\342%\210\300\340\302\303#\210\304\343\344\345\312\336%\210\300\343\302\303#\210\304\346\347\350\312\336\310\303&\210\304\351\302\352\310\303\312\353&\210\304\354\355\356\312\357\310\303&\210\304\360\302\361\312\316%\210\304\362\302\363\312\364%\210\304\365\366\367\312\370%\210\300\365\302\303#\210\304\371\372\373\312\336%\210\300\371\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")) 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'."] 8)
(defvar browse-url-temp-file-name nil)
(byte-code "\300\301!\210\302\303\304\305\306\307%\210\302\310\311\312\306\313%\210\302\314\315\316\306\307%\210\302\317\320\321\306\322%\210\302\323\311\324\306\325%\210\302\326\311\327\306\330%\210\302\331\332\333\306\307%\210\302\334\335\336\306\337%\210\340\334\311\341#\210\302\342\343\344\306\307\345\346&\210\302\347\350\351\306\352\345\346&\210\302\353\354\355\306\356\345\346&\210\302\357\360\361\306\362\345\346&\210\302\363\364\365\306\337\345\346&\210\302\366\367\370\306\307\345\371&\210\302\372\373\374\306\375%\210\302\376\377\201@�\306\201A�%\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 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"))] 8)
#@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 (#$ . 17269)])
#@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 (#$ . 17664)])
(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 (#$ . 18074)])
(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\2030�r	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 (#$ . 19055) 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=\203\n�\307\202�	\206�\n\211\203�\310\f\")\311\f\312\"
\313\211\203M�@\211\203D�\314@\f\"\203D�\315A\316\313\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 encode-coding-string browse-url-url-encode-chars "[*\"()',=;?% ]" nil string-match replace-match t map --dolist-tail--] 6 (#$ . 19781)])
#@181 Ask a WWW browser to display BUFFER.
Display the current buffer if BUFFER is nil.  Display only the
currently visible part of BUFFER (from a temporary file) if buffer is
narrowed.
(defalias 'browse-url-of-buffer #[(&optional buffer) "\212\203�q\210deZ\306 U??\205�	\206�\307\302!\205�\n\211\203)�\310!\204B�\f\2048�\311\312\313\314
\"\315\316#!\f\317ed\315\320%\210\321!*\207" [buffer buffer-file-name dired-directory file-name 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] 7 (#$ . 20356) 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 (#$ . 21279) 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 (#$ . 21567) "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\"\204\"�\313!\314\f!\311\315\"\2030�
\206>�\311\316\"\203<�\206>�\317!\206H�\313\320! \321\322\323\";\203]�\324\325\321\322\323\"\"\210 :\203\246�\326 !\204\246�\3272\254� \322!\211\"\203\235�\"@!\311!@\"\203\224�\330!A#\210\331\327\332\"\210\"A\211\"\204y�*\333\334\"0\202\254�\330 #+\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 string-match "\\`[a-z]+:" expand-file-name copy-sequence "\\`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 (#$ . 21747) (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 (#$ . 23366) "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 (#$ . 23819) "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 (#$ . 24175) (browse-url-interactive-arg "URL: ")])
#@94 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 (#$ . 24906) (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 (#$ . 25201)])
#@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 (#$ . 25678)])
#@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 (#$ . 26060)])
#@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 (#$ . 27487)])
#@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 (#$ . 27790) (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=\203�C\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 (#$ . 28135) (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 (#$ . 29679)])
(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 (#$ . 30173) 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 (#$ . 30518)])
(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 (#$ . 30903) (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 (#$ . 32319)])
#@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 (#$ . 32753) (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 (#$ . 33958) (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 (#$ . 34528) (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 (#$ . 35105) (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 (#$ . 36559)])
(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 (#$ . 37043) (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 (#$ . 38471)])
#@167 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.
(defalias 'browse-url-emacs #[(url &optional same-window) "\304\305!\210\306B	B\n\203�\307!\202�\310!)\207" [url-handler-regexp file-name-handler-alist same-window url require url-handlers url-file-handler find-file find-file-other-window] 2 (#$ . 38910) (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 (#$ . 39383) (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 (#$ . 40413) (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 (#$ . 42419) (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 (#$ . 43661) (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 (#$ . 45010) (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 (#$ . 45733) (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 (#$ . 46311) (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\314�\331	\306\"\211+\203\212�\332+!\210\202\216�\325	!\210)g\333=\203\304�,\334\267\202\304�\335\336!\210\202\304�g\333=\203\272�\f\337V\203\272�\340 \210\341-!\210\202\243�g\333=\203\304�\335\342!\210\343\n\344*\345Q\",\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 (#$ . 46937) (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\211�eb\210\322\323\323Q\317\324#\204y�n\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 (#$ . 49078) (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 (#$ . 50463) (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 (#$ . 50792) (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 (#$ . 51436) (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 (#$ . 51851)])
#@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 (#$ . 52160) (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 eql 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 (#$ . 52931)])
#@41 The keymap used for browse-url buttons.
(defvar browse-url-button-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210)\207" [map make-sparse-keymap define-key "
" browse-url-button-open [mouse-2] "w" browse-url-button-copy] 4) (#$ . 53543))
(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 #[nil "\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 (#$ . 53940)])
#@156 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.
(defalias 'browse-url-button-open #[(&optional external mouse-event) "\304!\210\305`\306\"\211\204�\307\310!\210\n\203�	!\202�\311	!)\207" [mouse-event url external browse-url-secondary-browser-function mouse-set-point get-text-property browse-url-data error "No URL under point" browse-url] 4 (#$ . 54569) (list current-prefix-arg last-nonmenu-event)])
#@119 Open URL using `browse-url'.
If `current-prefix-arg' is non-nil, use
`browse-url-secondary-browser-function' instead.
(defalias 'browse-url-button-open-url #[(url) "\203�	\n!\207\303\n!\207" [current-prefix-arg browse-url-secondary-browser-function url browse-url] 2 (#$ . 55091)])
#@27 Copy the URL under point.
(defalias 'browse-url-button-copy #[nil "\301`\302\"\211\204
�\303\304!\210\305!\210\306\307\")\207" [url get-text-property browse-url-data error "No URL under point" kill-new message "Copied %s"] 4 (#$ . 55381) nil])
(provide 'browse-url)

${this.title}

Code Editor : browse-url.elc