92 |
;; <URL:http://www.unlv.edu/chimera/>, Arena |
;; <URL:http://www.unlv.edu/chimera/>, Arena |
93 |
;; <URL:ftp://ftp.yggdrasil.com/pub/dist/web/arena> and Amaya |
;; <URL:ftp://ftp.yggdrasil.com/pub/dist/web/arena> and Amaya |
94 |
;; <URL:ftp://ftp.w3.org/pub/amaya>. mMosaic |
;; <URL:ftp://ftp.w3.org/pub/amaya>. mMosaic |
95 |
;; <URL:ftp://sig.enst.fr/pub/multicast/mMosaic/>, |
;; <URL:ftp://ftp.enst.fr/pub/mbone/mMosaic/>, |
96 |
;; <URL:http://sig.enst.fr/~dauphin/mMosaic/> (with development |
;; <URL:http://www.enst.fr/~dauphin/mMosaic/> (with development |
97 |
;; support for Java applets and multicast) can be used like Mosaic by |
;; support for Java applets and multicast) can be used like Mosaic by |
98 |
;; setting `browse-url-mosaic-program' appropriately. |
;; setting `browse-url-mosaic-program' appropriately. |
99 |
|
|
227 |
|
|
228 |
;;;###autoload |
;;;###autoload |
229 |
(defcustom browse-url-browser-function |
(defcustom browse-url-browser-function |
230 |
(if (memq system-type '(windows-nt ms-dos)) |
(if (memq system-type '(windows-nt ms-dos cygwin)) |
231 |
'browse-url-default-windows-browser |
'browse-url-default-windows-browser |
232 |
'browse-url-default-browser) |
'browse-url-default-browser) |
233 |
"*Function to display the current buffer in a WWW browser. |
"*Function to display the current buffer in a WWW browser. |
335 |
:type '(repeat (string :tag "Argument")) |
:type '(repeat (string :tag "Argument")) |
336 |
:group 'browse-url) |
:group 'browse-url) |
337 |
|
|
338 |
|
(defcustom browse-url-mozilla-new-window-is-tab nil |
339 |
|
"*Whether to open up new windows in a tab or a new window. |
340 |
|
If non-nil, then open the URL in a new tab rather than a new window if |
341 |
|
`browse-url-mozilla' is asked to open it in a new window." |
342 |
|
:type 'boolean |
343 |
|
:group 'browse-url) |
344 |
|
|
345 |
(defcustom browse-url-galeon-new-window-is-tab nil |
(defcustom browse-url-galeon-new-window-is-tab nil |
346 |
"*Whether to open up new windows in a tab or a new window. |
"*Whether to open up new windows in a tab or a new window. |
347 |
If non-nil, then open the URL in a new tab rather than a new window if |
If non-nil, then open the URL in a new tab rather than a new window if |
381 |
;; it in anonymous cases. If it's not anonymous the next regexp |
;; it in anonymous cases. If it's not anonymous the next regexp |
382 |
;; applies. |
;; applies. |
383 |
("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") |
("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") |
384 |
(,@ (if (memq system-type '(windows-nt ms-dos)) |
(,@ (if (memq system-type '(windows-nt ms-dos cygwin)) |
385 |
'(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") |
'(("^\\([a-zA-Z]:\\)[\\/]" . "file:\\1/") |
386 |
("^[\\/][\\/]+" . "file://")))) |
("^[\\/][\\/]+" . "file://")))) |
387 |
("^/+" . "file:/"))) |
("^/+" . "file:/"))) |
389 |
Any substring of a filename matching one of the REGEXPs is replaced by |
Any substring of a filename matching one of the REGEXPs is replaced by |
390 |
the corresponding STRING using `replace-match', not treating STRING |
the corresponding STRING using `replace-match', not treating STRING |
391 |
literally. All pairs are applied in the order given. The default |
literally. All pairs are applied in the order given. The default |
392 |
value converts ange-ftp/EFS-style paths into ftp URLs and prepends |
value converts ange-ftp/EFS-style file names into ftp URLs and prepends |
393 |
`file:' to any path beginning with `/'. |
`file:' to any file name beginning with `/'. |
394 |
|
|
395 |
For example, adding to the default a specific translation of an ange-ftp |
For example, adding to the default a specific translation of an ange-ftp |
396 |
address to an HTTP URL: |
address to an HTTP URL: |
525 |
:version "20.3" |
:version "20.3" |
526 |
:group 'browse-url) |
:group 'browse-url) |
527 |
|
|
528 |
(defvar browse-url-lynx-input-attempts 10 |
(defcustom browse-url-lynx-input-attempts 10 |
529 |
"*How many times to try to move down from a series of lynx input fields.") |
"*How many times to try to move down from a series of lynx input fields." |
530 |
|
:type 'integer |
531 |
|
:group 'browse-url) |
532 |
|
|
533 |
(defcustom browse-url-lynx-input-delay 0.2 |
(defcustom browse-url-lynx-input-delay 0.2 |
534 |
"*How many seconds to wait for lynx between moves down from an input field.") |
"*How many seconds to wait for lynx between moves down from an input field." |
535 |
|
:type 'number |
536 |
|
:group 'browse-url) |
537 |
|
|
538 |
(defcustom browse-url-kde-program "kfmclient" |
(defcustom browse-url-kde-program "kfmclient" |
539 |
"*The name by which to invoke the KDE web browser." |
"*The name by which to invoke the KDE web browser." |
714 |
(interactive "e") |
(interactive "e") |
715 |
(save-excursion |
(save-excursion |
716 |
(mouse-set-point event) |
(mouse-set-point event) |
717 |
(browse-url-at-point browse-url-new-window-flag))) |
;; This handles browse-url-new-window-flag properly |
718 |
|
;; when it gets no arg. |
719 |
|
(browse-url-at-point))) |
720 |
|
|
721 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
722 |
;; Browser-specific commands |
;; Browser-specific commands |
860 |
random existing one. A non-nil interactive prefix argument reverses |
random existing one. A non-nil interactive prefix argument reverses |
861 |
the effect of `browse-url-new-window-flag'. |
the effect of `browse-url-new-window-flag'. |
862 |
|
|
863 |
|
If `browse-url-mozilla-new-window-is-tab' is non-nil, then whenever a |
864 |
|
document would otherwise be loaded in a new window, it is loaded in a |
865 |
|
new tab in an existing window instead. |
866 |
|
|
867 |
When called non-interactively, optional second argument NEW-WINDOW is |
When called non-interactively, optional second argument NEW-WINDOW is |
868 |
used instead of `browse-url-new-window-flag'." |
used instead of `browse-url-new-window-flag'." |
869 |
(interactive (browse-url-interactive-arg "URL: ")) |
(interactive (browse-url-interactive-arg "URL: ")) |
873 |
(setq url (replace-match |
(setq url (replace-match |
874 |
(format "%%%x" (string-to-char (match-string 0 url))) t t url))) |
(format "%%%x" (string-to-char (match-string 0 url))) t t url))) |
875 |
(let* ((process-environment (browse-url-process-environment)) |
(let* ((process-environment (browse-url-process-environment)) |
876 |
(process (apply 'start-process |
(process |
877 |
(concat "mozilla " url) nil |
(apply 'start-process |
878 |
browse-url-mozilla-program |
(concat "mozilla " url) nil |
879 |
(append |
browse-url-mozilla-program |
880 |
browse-url-mozilla-arguments |
(append |
881 |
(list "-remote" |
browse-url-mozilla-arguments |
882 |
(concat "openURL(" |
(list "-remote" |
883 |
url |
(concat "openURL(" |
884 |
(if new-window ",new-window") |
url |
885 |
")")))))) |
(if (browse-url-maybe-new-window |
886 |
|
new-window) |
887 |
|
(if browse-url-mozilla-new-window-is-tab |
888 |
|
",new-tab") |
889 |
|
",new-window") |
890 |
|
")")))))) |
891 |
(set-process-sentinel process |
(set-process-sentinel process |
892 |
`(lambda (process change) |
`(lambda (process change) |
893 |
(browse-url-mozilla-sentinel process ,url))))) |
(browse-url-mozilla-sentinel process ,url))))) |
972 |
|
|
973 |
When called non-interactively, optional second argument NEW-WINDOW is |
When called non-interactively, optional second argument NEW-WINDOW is |
974 |
used instead of `browse-url-new-window-flag'." |
used instead of `browse-url-new-window-flag'." |
975 |
(interactive (browse-url-interactive-arg "URL: ")) |
(interactive (browse-url-interactive-arg "URL: ")) |
976 |
(apply 'start-process (concat "gnome-moz-remote " url) |
(apply 'start-process (concat "gnome-moz-remote " url) |
977 |
nil |
nil |
978 |
"gnome-moz-remote" |
"gnome-moz-remote" |