ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/browse-url.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307\310\311\310\312& \210\313\314\315\316\317\320\321\322\310\301& \210\313\323\324\325\317\326\321\322\310\301& \210\313\327\330\331\317\332\310\301&\210\333\327\302\334#\210\313\335\302\336\317\337\310\301&\210\333\335\302\334#\210\313\340\335\341\317\342\310\301&\210\333\340\302\334#\210\313\343\302\344\317\345\310\301&\210\313\346\347\350\317\332\310\301&\210\313\351\302\352\317\353\310\301&\210\313\354\351\355\317\356\310\301&\210\313\357\360\361\317\332\310\301&\210\313\362\302\363\317\364\310\301&\210\313\365\362\366\317\367\310\301&\210\333\365\370\371#\210\313\372\373\374\317\332\321\334\310\301& \210\313\375\302\376\317\377\321\334\310\301& \210\313\201@ \201A \201B \317\332\321\322\310\301& \210\313\201C \302\201D \317\201E \321\322\310\301& \210\313\201F \201G \201H \317\332\310\301&\210\333\201F \302\334#\210\313\201I \302\201J \317\201K \310\301&\210\333\201I \302\334#\210\313\201L \201I \201M \317\201N \310\301&\210\333\201L \302\334#\210\313\201O \201P \201Q \317\332\310\301&\210\313\201R \302\201S \317\201T \310\301&\210\313\201U \201R \201V \317\201W \310\301&\207" [custom-declare-group browse-url nil "Use a web browser to look at a URL." :prefix "browse-url-" :link (emacs-commentary-link "browse-url") :group external comm custom-declare-variable browse-url-browser-function 'browse-url-default-browser "Function to display the current buffer in a WWW browser.\nThis is used by the `browse-url-at-point', `browse-url-at-mouse', and\n`browse-url-of-file' commands.\n\nIf the value is not a function it should be a list of pairs\n(REGEXP . FUNCTION). In this case the function called will be the one\nassociated with the first REGEXP which matches the current URL. The\nfunction is passed the URL and any other args of `browse-url'. The last\nregexp should probably be \".\" to specify a default browser." :type (choice (function-item :tag "Emacs W3" :value browse-url-w3) (function-item :tag "eww" :value eww-browse-url) (function-item :tag "Mozilla" :value browse-url-mozilla) (function-item :tag "Firefox" :value browse-url-firefox) (function-item :tag "Google Chrome" :value browse-url-chrome) (function-item :tag "Chromium" :value browse-url-chromium) (function-item :tag "Epiphany" :value browse-url-epiphany) (function-item :tag "Conkeror" :value browse-url-conkeror) (function-item :tag "Text browser in an xterm window" :value browse-url-text-xterm) (function-item :tag "Text browser in an Emacs window" :value browse-url-text-emacs) (function-item :tag "KDE" :value browse-url-kde) (function-item :tag "Elinks" :value browse-url-elinks) (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) (function-item :tag "Default Windows browser" :value browse-url-default-windows-browser) (function-item :tag "Default macOS browser" :value browse-url-default-macosx-browser) (function-item :tag "Default browser" :value browse-url-default-browser) (function :tag "Your own function") (alist :tag "Regexp/function association list" :key-type regexp :value-type function)) :version "24.1" browse-url-mailto-function 'browse-url-mail "Function to display mailto: links.\nThis variable uses the same syntax as the\n`browse-url-browser-function' variable. If the\n`browse-url-mailto-function' variable is nil, that variable will\nbe used instead." (choice (function-item :tag "Emacs Mail" :value browse-url-mail) (function-item :tag "None" nil)) browse-url-netscape-program "netscape" "The name by which to invoke Netscape.\n\nThe free program `netscape-remote' from\n<URL:http://home.netscape.com/newsref/std/remote.c> is said to start\nup very much quicker than `netscape'. Reported to compile on a GNU\nsystem, given vroot.h from the same directory, with cc flags\n -DSTANDALONE -L/usr/X11R6/lib -lXmu -lX11." string make-obsolete-variable "25.1" browse-url-netscape-arguments "A list of strings to pass to Netscape as arguments." (repeat (string :tag "Argument")) browse-url-netscape-startup-arguments "A list of strings to pass to Netscape when it starts up.\nDefaults to the value of `browse-url-netscape-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument")) browse-url-browser-display "The X display for running the browser, if not same as Emacs's." (choice string (const :tag "Default" nil)) browse-url-mozilla-program "mozilla" "The name by which to invoke Mozilla." browse-url-mozilla-arguments "A list of strings to pass to Mozilla as arguments." (repeat (string :tag "Argument")) browse-url-mozilla-startup-arguments "A list of strings to pass to Mozilla when it starts up.\nDefaults to the value of `browse-url-mozilla-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument")) browse-url-firefox-program (let ((candidates '("icecat" "iceweasel" "firefox"))) (while (and candidates (not (executable-find (car candidates)))) (setq candidates (cdr candidates))) (or (car candidates) "firefox")) "The name by which to invoke Firefox or a variant of it." browse-url-firefox-arguments "A list of strings to pass to Firefox (or variant) as arguments." (repeat (string :tag "Argument")) browse-url-firefox-startup-arguments "A list of strings to pass to Firefox (or variant) when it starts up.\nDefaults to the value of `browse-url-firefox-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument")) "it no longer has any effect." "24.5" browse-url-chrome-program (let ((candidates '("google-chrome-stable" "google-chrome"))) (while (and candidates (not (executable-find (car candidates)))) (setq candidates (cdr candidates))) (or (car candidates) "chromium")) "The name by which to invoke the Chrome browser." browse-url-chrome-arguments "A list of strings to pass to Google Chrome as arguments." (repeat (string :tag "Argument")) browse-url-chromium-program (let ((candidates '("chromium" "chromium-browser"))) (while (and candidates (not (executable-find (car candidates)))) (setq candidates (cdr candidates))) (or (car candidates) "chromium")) "The name by which to invoke Chromium." browse-url-chromium-arguments "A list of strings to pass to Chromium as arguments." (repeat (string :tag "Argument")) browse-url-galeon-program "galeon" "The name by which to invoke Galeon." browse-url-galeon-arguments "A list of strings to pass to Galeon as arguments." (repeat (string :tag "Argument")) browse-url-galeon-startup-arguments "A list of strings to pass to Galeon when it starts up.\nDefaults to the value of `browse-url-galeon-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument")) browse-url-epiphany-program "epiphany" "The name by which to invoke Epiphany." browse-url-epiphany-arguments "A list of strings to pass to Epiphany as arguments." (repeat (string :tag "Argument")) browse-url-epiphany-startup-arguments "A list of strings to pass to Epiphany when it starts up.\nDefaults to the value of `browse-url-epiphany-arguments' at the time\n`browse-url' is loaded." (repeat (string :tag "Argument"))] 12)
(defvar browse-url-gnome-moz-program "gnome-moz-remote")
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315& \210\300\305\302\303#\210\304\316\302\317\312\320\314\315&\210\304\321\302\322\312\320\314\315&\210\304\323\302\324\310\303\312\320\314\315& \210\304\325\302\326\312\320\314\315&\210\300\325\302\303#\210\304\327\302\330\312\320\314\315&\210\304\331\302\332\312\320\314\315&\210\300\331\302\303#\210\304\333\302\334\312\320\314\315&\210\304\335\336\337\312\340\310\341\314\315& \210\300\335\302\303#\210\304\342\302\343\312\344\314\315&\210\300\342\302\303#\210\304\345\346\347\312\340\314\315&\210\300\345\302\303#\210\304\350\351\352\312\340\310\303\314\315& \210\304\353\302\354\310\303\312\355\314\315& \210\304\356\357\360\312\361\310\303\314\315& \210\304\362\302\363\312\320\314\315&\210\304\364\302\365\312\366\314\315&\210\304\367\370\371\312\372\314\315&\210\300\367\302\303#\210\304\373\374\375\312\340\314\315&\210\300\373\302\303#\207" [make-obsolete-variable browse-url-gnome-moz-program nil "25.1" custom-declare-variable browse-url-gnome-moz-arguments 'nil "A list of strings passed to the GNOME mozilla viewer as arguments." :version "21.1" :type (repeat (string :tag "Argument")) :group browse-url browse-url-mozilla-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new window if\n`browse-url-mozilla' is asked to open it in a new window." boolean browse-url-firefox-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new window if\n`browse-url-firefox' is asked to open it in a new window." browse-url-conkeror-new-window-is-buffer "Whether to open up new windows in a buffer or a new window.\nIf non-nil, then open the URL in a new buffer rather than a new window if\n`browse-url-conkeror' is asked to open it in a new window." browse-url-galeon-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new window if\n`browse-url-galeon' is asked to open it in a new window." browse-url-epiphany-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new window if\n`browse-url-epiphany' is asked to open it in a new window." browse-url-netscape-new-window-is-tab "Whether to open up new windows in a tab or a new window.\nIf non-nil, then open the URL in a new tab rather than a new\nwindow if `browse-url-netscape' is asked to open it in a new\nwindow." browse-url-new-window-flag "Non-nil means always open a new browser window with appropriate browsers.\nPassing an interactive argument to \\[browse-url], or specific browser\ncommands reverses the effect of this variable." browse-url-mosaic-program "xmosaic" "The name by which to invoke Mosaic (or mMosaic)." string "20.3" browse-url-mosaic-arguments "A list of strings to pass to Mosaic as arguments." (repeat (string :tag "Argument")) browse-url-mosaic-pidfile "~/.mosaicpid" "The name of the pidfile created by Mosaic." browse-url-conkeror-program "conkeror" "The name by which to invoke Conkeror." browse-url-conkeror-arguments "A list of strings to pass to Conkeror as arguments." (repeat (string :tag "Argument")) browse-url-filename-alist `(("^/\\(ftp@\\|anonymous@\\)?\\([^:/]+\\):/*" . "ftp://\\2/") ("^/\\([^:@/]+@\\)?\\([^:/]+\\):/*" . "ftp://\\1\\2/") ,@(if (memq system-type '(windows-nt ms-dos)) '(("^\\([a-zA-Z]:\\)[\\/]" . "file:///\\1/") ("^[\\/][\\/]+" . "file://"))) ("^/+" . "file:///")) "An alist of (REGEXP . STRING) pairs used by `browse-url-of-file'.\nAny substring of a filename matching one of the REGEXPs is replaced by\nthe corresponding STRING using `replace-match', not treating STRING\nliterally. All pairs are applied in the order given. The default\nvalue converts ange-ftp/EFS-style file names into ftp URLs and prepends\n`file:' to any file name beginning with `/'.\n\nFor example, adding to the default a specific translation of an ange-ftp\naddress to an HTTP URL:\n\n (setq browse-url-filename-alist\n \\='((\"/webmaster@webserver:/home/www/html/\" .\n \"http://www.acme.co.uk/\")\n (\"^/\\(ftp@\\|anonymous@\\)?\\([^:/]+\\):/*\" . \"ftp://\\2/\")\n (\"^/\\([^:@/]+@\\)?\\([^:/]+\\):/*\" . \"ftp://\\1\\2/\")\n (\"^/+\" . \"file:/\")))" (repeat (cons :format "%v" (regexp :tag "Regexp") (string :tag "Replacement"))) browse-url-save-file "If non-nil, save the buffer before displaying its file.\nUsed by the `browse-url-of-file' command." browse-url-of-file-hook "Hook run after `browse-url-of-file' has asked a browser to load a file." hook browse-url-CCI-port 3003 "Port to access XMosaic via CCI.\nThis can be any number between 1024 and 65535 but must correspond to\nthe value set in the browser." integer browse-url-CCI-host "localhost" "Host to access XMosaic via CCI.\nThis should be the host name of the machine running XMosaic with CCI\nenabled. The port number should be set in `browse-url-CCI-port'."] 10)
(defvar browse-url-temp-file-name nil)
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\315\310\311&\210\302\316\317\320\306\307\310\311&\210\302\321\322\323\306\324\310\311&\210\302\325\313\326\306\327\310\311&\210\302\330\313\331\306\332\310\311&\210\302\333\334\335\306\307\310\311&\210\302\336\337\340\306\341\310\311&\210\342\336\313\343#\210\302\344\345\346\306\307\310\311\347\350& \210\302\351\352\353\306\354\347\350\310\311& \210\302\355\356\357\306\360\347\350\310\311& \210\302\361\362\363\306\364\347\350\310\311& \210\302\365\366\367\306\341\347\350\310\311& \210\302\370\371\372\306\307\347\373\310\311& \210\302\374\375\376\306\377\310\311&\210\302\201@ \201A \201B \306\201C \310\311&\207" [make-variable-buffer-local browse-url-temp-file-name custom-declare-variable browse-url-xterm-program "xterm" "The name of the terminal emulator used by `browse-url-text-xterm'.\nThis might, for instance, be a separate color version of xterm." :type string :group browse-url browse-url-xterm-args nil "A list of strings defining options for `browse-url-xterm-program'.\nThese might set its size, for instance." (repeat (string :tag "Argument")) browse-url-gnudoit-program "gnudoit" "The name of the `gnudoit' program used by `browse-url-w3-gnudoit'." browse-url-gnudoit-args '("-q") "A list of strings defining options for `browse-url-gnudoit-program'.\nThese might set the port, for instance." (repeat (string :tag "Argument")) browse-url-generic-program "The name of the browser program used by `browse-url-generic'." (choice string (const :tag "None" nil)) browse-url-generic-args "A list of strings defining options for `browse-url-generic-program'." (repeat (string :tag "Argument")) browse-url-temp-dir temporary-file-directory "The name of a directory for browse-url's temporary files.\nSuch files are generated by functions like `browse-url-of-region'.\nYou might want to set this to somewhere with restricted read permissions\nfor privacy's sake." browse-url-netscape-version 3 "The version of Netscape you are using.\nThis affects how URL reloading is done; the mechanism changed\nincompatibly at version 4." number make-obsolete-variable "25.1" browse-url-text-browser "lynx" "The name of the text browser to invoke." :version "23.1" browse-url-text-emacs-args (and (not window-system) '("-show_cursor")) "A list of strings defining options for a text browser in an Emacs buffer.\n\nThe default is none in a window system, otherwise `-show_cursor' to\nindicate the position of the current link in the absence of\nhighlighting, assuming the normal default for showing the cursor." (repeat (string :tag "Argument")) browse-url-text-input-field 'avoid "Action on selecting an existing text browser buffer at an input field.\nWhat to do when sending a new URL to an existing text browser buffer in Emacs\nif the browser cursor is on an input field (in which case the `g' command\nwould be entered as data). Such fields are recognized by the\nunderlines ____. Allowed values: nil: disregard it, `warn': warn the\nuser and don't emit the URL, `avoid': try to avoid the field by moving\ndown (this *won't* always work)." (choice (const :tag "Move to try to avoid field" :value avoid) (const :tag "Disregard" :value nil) (const :tag "Warn, don't emit URL" :value warn)) browse-url-text-input-attempts 10 "How many times to try to move down from a series of text browser input fields." integer browse-url-text-input-delay 0.2 "Seconds to wait for a text browser between moves down from an input field." browse-url-kde-program "kfmclient" "The name by which to invoke the KDE web browser." "21.1" browse-url-kde-args '("openURL") "A list of strings defining options for `browse-url-kde-program'." (repeat (string :tag "Argument")) browse-url-elinks-wrapper '("xterm" "-e") "Wrapper command prepended to the Elinks command-line." (repeat (string :tag "Wrapper"))] 10)
#@109 URL-encode the chars in TEXT that match CHARS.
CHARS is a regexp-like character alternative (e.g., "[)$]").
(defalias 'browse-url-url-encode-chars #[(text chars) "\304!\305\306 \n #\211\203% \307\310\311\312\313\305\n\"!\"\314\211\n$ T\202 \n*\207" [text s encoded-text chars copy-sequence 0 string-match replace-match format "%%%X" string-to-char match-string t] 7 (#$ . 16525)])
#@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 (#$ . 16920)])
(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 (#$ . 17330)])
(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 (#$ . 18311) nil])
#@106 Return the URL corresponding to FILE.
Use variable `browse-url-filename-alist' to map filenames to URLs.
(defalias 'browse-url-file-url #[(file) "\306\232\203\n \307\202 \310\311!\205 \206 \n\211\203 \312\f \")\313\f\314\"
\315 \211 \203S @\211\203J \316@\f\"\203J \317A\320\315\f$A\211\204/ *\f\207" [system-type file-name-coding-system default-file-name-coding-system coding file browse-url-filename-alist windows-nt utf-8 default-value enable-multibyte-characters encode-coding-string browse-url-url-encode-chars "[*\"()',=;?% ]" nil string-match replace-match t map --dolist-tail--] 6 (#$ . 19037)])
#@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\204< \f\2042 \310\311\312\313
\"\314\315#!\f\316ed \314\317%\210\320 !*\207" [buffer buffer-file-name dired-directory file-name browse-url-temp-file-name browse-url-temp-dir buffer-size boundp convert-standard-filename make-temp-file expand-file-name "burl" nil ".html" write-region no-message browse-url-of-file] 7 (#$ . 19672) 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 (#$ . 20569) 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 (#$ . 20857) "r"])
#@636 Ask a WWW browser to load URL.
Prompt for a URL, defaulting to the URL at or before point.
Invokes a suitable browser function which does the actual job.
The variable `browse-url-browser-function' says which browser function to
use. If the URL is a mailto: URL, consult `browse-url-mailto-function'
first, if that exists.
The additional ARGS are passed to the browser function. See the doc
strings of the actual functions, starting with `browse-url-browser-function',
for information about the significance of ARGS (most of the functions
ignore it).
If ARGS are omitted, the default is to pass `browse-url-new-window-flag'
as ARGS.
(defalias 'browse-url #[(url &rest args) "\306\307!\204
\206\f C\n\203 \310 !\204 \311 !\312\f!\313\314 \"\203)
\206+ \315 !\2065 \311\316! \317\320\321\";\203J \322\323\317\320\321\"\"\210 :\203\223 \324 !\204\223 \3252\231 \320 \211 \203\212 @ \313 @ \"\203\201 \326 A #\210\327\325\330\"\210 A\211 \204f *\331\332 \"0\202\231 \326 #+\207" [args browse-url-new-window-flag url-handler-mode url process-environment browse-url-mailto-function called-interactively-p interactive file-name-absolute-p expand-file-name copy-sequence string-match "\\`mailto:" 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-browser-function default-directory function bf --dolist-tail--] 6 (#$ . 21037) (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 (#$ . 22560) "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 (#$ . 23013) "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=\203 \203 \304\305\306\n!P!\207\307\310!\207\311=\203$ \312\313\314\211\211\n%\207\315\316\n\"\207" [system-type dos-windows-version url ms-dos shell-command "start " shell-quote-argument error "Browsing URLs is not supported on this system" cygwin call-process "cygstart" nil w32-shell-execute "open"] 6 (#$ . 23369) (browse-url-interactive-arg "URL: ")])
#@93 Invoke the macOS system's default Web browser.
The optional NEW-WINDOW argument is not used
(defalias 'browse-url-default-macosx-browser #[(url &optional _new-window) "\301\302P\303\304$\207" [url start-process "open " nil "open"] 5 (#$ . 23917) (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 (#$ . 24211)])
#@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 (#$ . 24688)])
#@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 (#$ . 25070)])
#@190 Return non-nil if the "xdg-open" program can be used.
xdg-open is a desktop utility that calls your preferred web browser.
This requires you to be running either Gnome, KDE, Xfce4 or LXDE.
(defalias 'browse-url-can-use-xdg-open #[nil "\300\301!\205c \302\303!\205c \302\304!\205c \300\305!\206c \3061- \307\310\311\211\211\312\313\314\315&\316=0\2021 \210\2024 \206c \300\317!\320\232\206c \3211O \307\322\311\211\211\323\324&\316=0\202S \210\202V \206c \300\325!\326\235\206c \300\327!\330\232\207" [getenv "DISPLAY" executable-find "xdg-open" "nohup" "GNOME_DESKTOP_SESSION_ID" (error) call-process "dbus-send" nil "--dest=org.gnome.SessionManager" "--print-reply" "/org/gnome/SessionManager" "org.gnome.SessionManager.CanShutdown" 0 "KDE_FULL_SESSION" "true" (error) "/bin/sh" "-c" "xprop -root _DT_SAVE_MODE|grep xfce4" "DESKTOP_SESSION" ("LXDE" "Lubuntu") "XDG_CURRENT_DESKTOP" "LXDE"] 9 (#$ . 26499)])
#@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 (#$ . 27416) (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 (#$ . 27761) (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 (#$ . 29305)])
(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 (#$ . 29799) 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 (#$ . 30144)])
(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 (#$ . 30529) (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 (#$ . 31945)])
#@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 (#$ . 32379) (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 (#$ . 33584) (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 (#$ . 34154) (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 (#$ . 34731) (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 (#$ . 36185)])
(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 (#$ . 36669) (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 (#$ . 38097)])
#@68 Ask Emacs to load URL into a buffer and show it in another window.
(defalias 'browse-url-emacs #[(url &optional _new-window) "\303\304!\210\305B B\306\n!)\207" [url-handler-regexp file-name-handler-alist url require url-handlers url-file-handler find-file-other-window] 2 (#$ . 38535) (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 (#$ . 38868) (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 (#$ . 39898) (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 (#$ . 41904) (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 (#$ . 43146) (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 (#$ . 44495) (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 (#$ . 45218) (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 (#$ . 45796) (browse-url-interactive-arg "Text browser URL: ")])
#@606 Ask a text browser to load URL.
URL defaults to the URL around or before point.
This runs the text browser specified by `browse-url-text-browser'.
With a prefix argument, it runs a new browser process in a new buffer.
When called interactively, if variable `browse-url-new-window-flag' is
non-nil, load the document in a new browser process in a new term window,
otherwise use any existing one. A non-nil interactive prefix argument
reverses the effect of `browse-url-new-window-flag'.
When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'.
(defalias 'browse-url-text-emacs #[(url &optional new-buffer) "\306\307\310!\211\205
\311 ! \312\313!\210
\204 \314\315!\204# (\202% )\2032 \2032 q\210\316 \210
\204< \314\315!\204A (\202C )\204V \203V \n\203V \317\n!\320>\204x \321\322*\211\323\324+,C\"BBB\"\325 !\210\326 \210\327\311 !\330\"\202\324 \331 \306\"\211 -\203\212 \332-!\210\202\216 \325 !\210)g\333=\203\313 .\334=\203\243 \335\336!\210\202\313 .\337=\203\313 g\333=\203\301 \f\340V\203\301 \341 \210\342/!\210\202\252 g\333=\203\313 \335\343!\210\344\n\345\346,\347R\",\207" [system-uses-terminfo buf proc browse-url-text-input-attempts n noninteractive t get-buffer "*text browser*" get-buffer-process require term called-interactively-p any rename-uniquely process-status (run stop) apply make-term nil append switch-to-buffer term-char-mode set-process-sentinel #[(process _event) "\302!\303>?\205 \304!\211\205 \305 !)\207" [process buf process-status (run stop) process-buffer kill-buffer] 3] get-buffer-window select-window 95 warn error "Please move out of the input field first" avoid 0 term-send-down sit-for "Cannot move out of the input field, sorry" term-send-string "g" "" "
" new-buffer browse-url-new-window-flag browse-url-text-browser browse-url-text-emacs-args url win browse-url-text-input-field browse-url-text-input-delay] 9 (#$ . 46422) (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 (#$ . 48487) (browse-url-interactive-arg "Mailto URL: ")])
#@317 Ask the WWW browser defined by `browse-url-generic-program' to load URL.
Default to the URL around or before point. A fresh copy of the
browser is started up in a new process with possible additional arguments
`browse-url-generic-args'. This is appropriate for browsers which
don't offer a form of remote control.
(defalias 'browse-url-generic #[(url &optional _new-window) "\204 \303\304!\210\305\306\307\310\307\311 \nC\"&\207" [browse-url-generic-program browse-url-generic-args url error "No browser defined (`browse-url-generic-program')" apply call-process nil 0 append] 9 (#$ . 49873) (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 (#$ . 50517) (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 (#$ . 50932)])
#@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 (#$ . 51241) (browse-url-interactive-arg "URL: ")])
#@65 Determines if Elinks is running or a new one has to be started.
(defalias 'browse-url-elinks-sentinel #[(process url) "\305!\211\306=\203 \307\n!\2020 \310=\203) \311 \312\313\nP\314\315\316\317\n\320Q%)\2020 \321\322\f\"))\207" [process #1=#:val url process-environment exit-status process-exit-status 5 browse-url-elinks-new-window 0 browse-url-process-environment start-process "elinks:" nil "elinks" "-remote" "openURL(\"" "\",new-tab)" error "Unrecognized exit-code %d of process `elinks'"] 9 (#$ . 52012)])
(provide 'browse-url)
Kontol Shell Bypass