/[emacs]/emacs/lisp/net/browse-url.el
ViewVC logotype

Diff of /emacs/lisp/net/browse-url.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by rms, Mon Mar 18 04:24:09 2002 UTC revision 1.21.2.1 by miles, Fri Apr 4 06:20:30 2003 UTC
# Line 92  Line 92 
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    
# Line 227  Line 227 
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.
# Line 335  Defaults to the value of `browse-url-gal Line 335  Defaults to the value of `browse-url-gal
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
# Line 374  commands reverses the effect of this var Line 381  commands reverses the effect of this var
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:/")))
# Line 382  commands reverses the effect of this var Line 389  commands reverses the effect of this var
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:
# Line 518  down (this *won't* always work)." Line 525  down (this *won't* always work)."
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."
# Line 703  to use." Line 714  to use."
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
# Line 847  non-nil, load the document in a new Mozi Line 860  non-nil, load the document in a new Mozi
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: "))
# Line 856  used instead of `browse-url-new-window-f Line 873  used instead of `browse-url-new-window-f
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)))))
# Line 950  effect of `browse-url-new-window-flag'. Line 972  effect of `browse-url-new-window-flag'.
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"

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.21.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26