From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 Aug 1997 18:43:39 +0000 (+0000)
Subject: Change the custom group to `hypermedia'.
X-Git-Tag: emacs-20.1~369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6680f0b605a7628bb282a365e661165b107749a;p=emacs.git

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 --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."