;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'browse-url nil "Use a web browser to look at a URL." :prefix "browse-url-" :link '(emacs-commentary-link "browse-url") :group 'external :group 'comm) (defvar browse-url--browser-defcustom-type '(choice (function-item :tag "Emacs W3" :value browse-url-w3) (function-item :tag "eww" :value eww-browse-url) (function-item :tag "Mozilla" :value browse-url-mozilla) (function-item :tag "Firefox" :value browse-url-firefox) (function-item :tag "Google Chrome" :value browse-url-chrome) (function-item :tag "Chromium" :value browse-url-chromium) (function-item :tag "Epiphany" :value browse-url-epiphany) (function-item :tag "Conkeror" :value browse-url-conkeror) (function-item :tag "Text browser in an xterm window" :value browse-url-text-xterm) (function-item :tag "Text browser in an Emacs window" :value browse-url-text-emacs) (function-item :tag "KDE" :value browse-url-kde) (function-item :tag "Elinks" :value browse-url-elinks) (function-item :tag "Specified by `Browse Url Generic Program'" :value browse-url-generic) (function-item :tag "Default Windows browser" :value browse-url-default-windows-browser) (function-item :tag "Default macOS browser" :value browse-url-default-macosx-browser) (function-item :tag "Default browser" :value browse-url-default-browser) (function :tag "Your own function") (alist :tag "Regexp/function association list" :key-type regexp :value-type function))) (byte-code "\301\302\303\304\305\306\307&\210\301\310\311\312\306\313\305&\210\301\314\315\316\305\317\306\307&\210\301\320\321\322\305\323\306\324&\210\301\325\326\327\306\313\305\330&\210\301\331\332\333\305\334%\210\335\331\336\337#\210\301\340\336\341\305\342%\210\335\340\336\337#\210\301\343\340\344\305\345%\210\335\343\336\337#\210\301\346\336\347\305\350%\210\301\351\352\353\305\334%\210\301\354\336\355\305\356%\210\301\357\354\360\305\361%\210\301\362\363\364\305\334%\210\301\365\336\366\305\367%\210\301\370\365\371\305\372%\210\335\370\373\374#\210\301\375\376\377\305\334\306\337&\210\301\201@\336\201A\305\201B\306\337&\210\301\201C\201D\201E\305\334\306\307&\210\301\201F\336\201G\305\201H\306\307&\210\301\201I\201J\201K\305\334%\210\335\201I\336\337#\210\301\201L\336\201M\305\201N%\210\335\201L\336\337#\210\301\201O\201L\201P\305\201Q%\210\335\201O\336\337#\210\301\201R\201S\201T\305\334%\210\301\201U\336\201V\305\201W%\210\301\201X\201U\201Y\305\201Z%\207" [browse-url--browser-defcustom-type custom-declare-variable browse-url-browser-function 'browse-url-default-browser "Function to display the current buffer in a WWW browser.\nThis is used by the `browse-url-at-point', `browse-url-at-mouse', and\n`browse-url-of-file' commands.\n\nIf the value is not a function it should be a list of pairs\n(REGEXP . FUNCTION). In this case the function called will be the one\nassociated with the first REGEXP which matches the current URL. The\nfunction is passed the URL and any other args of `browse-url'. The last\nregexp should probably be \".\" to specify a default browser.\n\nAlso see `browse-url-secondary-browser-function'." :type :version "24.1" browse-url-secondary-browser-function 'browse-url-default-browser "Function used to launch an alternative browser.\nThis is usually an external browser (that is, not eww or w3m),\nused as the secondary browser choice, typically when a prefix\nargument is given to a URL-opening command in those modes that\nsupport this (for instance, eww/shr).\n\nAlso see `browse-url-browser-function'." "27.1" browse-url-mailto-function 'browse-url-mail "Function to display mailto: links.\nThis variable uses the same syntax as the\n`browse-url-browser-function' variable. If the\n`browse-url-mailto-function' variable is nil, that variable will\nbe used instead." (choice (function-item :tag "Emacs Mail" :value browse-url-mail) (function-item :tag "None" nil)) browse-url-man-function 'browse-url-man "Function to display man: links." (radio (function-item :tag "Emacs Man" :value browse-url-man) (const :tag "None" nil) (function :tag "Other function")) "26.1" browse-url-button-regexp (concat "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|" "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)" "\\(//[-a-z0-9_.]+:[0-9]*\\)?" (let ((chars "-a-z0-9_=#$@~%&*+\\/[:word:]") (punct "!?:;.,")) (concat "\\(?:" "[" chars punct "]+" "(" "[" chars punct "]+" "[" chars "]*)" "\\(?:" "[" chars punct "]+" "[" chars "]" "\\)?" "\\|" "[" chars punct "]+" "[" chars "]" "\\)")) "\\)") "Regular expression that matches URLs." regexp browse-url-netscape-program "netscape" "The name by which to invoke Netscape.\n\nThe free program `netscape-remote' from\n 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\2030r q\210\307 \203/\n\203*\310 \210\202/\311\312\"\210))\313\314!!\210\315\316!\207" [file buf browse-url-save-file buffer-file-name error "Current buffer has no file" get-file-buffer buffer-modified-p save-buffer message "%s modified since last save" browse-url browse-url-file-url run-hooks browse-url-of-file-hook] 4 (#$ . 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\203q\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=\203C\202F\314 \205!\316\317\320\204/\321\322!\2043 \2025\205B\203A\323\202B\324\325RD\"\"%\326\327\330\331\332EE\"*\207" [url process-environment browse-url-netscape-program browse-url-netscape-arguments window-system new-window browse-url-encode-url browse-url-process-environment apply start-process "netscape " nil append w32 ("-noraise") "-remote" "openURL(" called-interactively-p any ",new-tab" ",new-window" ")" set-process-sentinel lambda (process change) browse-url-netscape-sentinel process noninteractive browse-url-new-window-flag browse-url-netscape-new-window-is-tab] 14 (#$ . 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\304g\333=\203\272\f\337V\203\272\340 \210\341-!\210\202\243g\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\211eb\210\322\323\323Q\317\324#\204yn\204y\323c\210`\325\326\323\f#c\210n\204\210\323c\210b.\n\207" [url alist to subject body rest rfc2368-parse-mailto-url assoc "To" "Subject" "Body" delq called-interactively-p any compose-mail-other-window nil insert-buffer compose-mail search-forward "\n" move replace-regexp-in-string " \n" mail-citation-hook noninteractive new-window browse-url-new-window-flag mail-header-separator] 9 (#$ . 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)