Mercurial > emacs
changeset 19579:bbb59d8bca28
Change the custom group to `hypermedia'.
(browse-url-netscape-version): New variable.
(browse-url-netscape-reload): Use it to account for reported
backwards incompatibility.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Aug 1997 18:43:39 +0000 |
| parents | 53f502cfd081 |
| children | a81fbc76f500 |
| files | lisp/browse-url.el |
| diffstat | 1 files changed, 14 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/browse-url.el Wed Aug 27 17:39:44 1997 +0000 +++ b/lisp/browse-url.el Wed Aug 27 18:43:39 1997 +0000 @@ -218,7 +218,7 @@ ;;;###autoload (defgroup browse-url nil "Use a web browser to look at a URL." - :group 'applications) + :group 'hypermedia) ;;;###autoload (defcustom browse-url-browser-function @@ -381,6 +381,14 @@ :type 'string :group 'browse-url) +(defcustom browse-url-netscape-version + 3 + "*The version of Netscape you are using. +This affects how URL reloading is done; the mechanism changed +incompatibly at version 4." + :type 'number + :group 'browse-url) + (defvar browse-url-temp-file-list '()) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -660,7 +668,11 @@ (defun browse-url-netscape-reload () "Ask Netscape to reload its current document." (interactive) - (browse-url-netscape-send "reload")) + ;; Backwards incompatibility reported by + ;; <peter.kruse@psychologie.uni-regensburg.de>. + (browse-url-netscape-send (if (>= browse-url-netscape-version 4) + "xfeDoCommand(reload)" + "reload"))) (defun browse-url-netscape-send (command) "Send a remote control command to Netscape."