# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872707419 0
# Node ID bbb59d8bca285655503518c2426da0d29b3253fb
# Parent  53f502cfd081830e6806ad36c400e153adf54238
Change the custom group to `hypermedia'.
(browse-url-netscape-version): New variable.
(browse-url-netscape-reload): Use it to account for reported
backwards incompatibility.

diff -r 53f502cfd081 -r bbb59d8bca28 lisp/browse-url.el
--- 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."