Current File : //usr/local/share/emacs/27.2/lisp/net/browse-url.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\314 P\315\n\316\f C\"%)\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\312 D\"%)\207" [process-environment browse-url-netscape-program browse-url-netscape-arguments command browse-url-process-environment apply start-process "netscape" nil append "-remote"] 9 (#$ . 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\314 P\315\n\316\f C\"%)\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\312 C\"%)\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\312 C\"%)\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\314 P\315\n\316\f C\"%)\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\314 P\315\n\316\f C\"%)\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!r q\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 \"\"\" \nA A\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)
Mini Shell