diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-27 18:43:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-27 18:43:39 +0000 |
| commit | 57790a92bb3798af0a2c0c83cf9b92ba49a5a139 (patch) | |
| tree | 3607d3ad1cd881a7a0913e77e5c6ccddaea8565e /lisp/browse-url.el | |
| parent | 559d95e3accf98684a1b4caecae297229e50f983 (diff) | |
| download | emacs-57790a92bb3798af0a2c0c83cf9b92ba49a5a139.tar.gz | |
Change the custom group to `hypermedia'.
(browse-url-netscape-version): New variable.
(browse-url-netscape-reload): Use it to account for reported
backwards incompatibility.
Diffstat (limited to 'lisp/browse-url.el')
| -rw-r--r-- | lisp/browse-url.el | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el index 8296d14d705..df5a04a0f25 100644 --- a/lisp/browse-url.el +++ b/lisp/browse-url.el @@ -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 @@ set this to somewhere with restricted read permissions for privacy's sake." :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 @@ used instead of `browse-url-new-window-p'." (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." |