X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmenubar-items.el;h=1c410a35923f0623168c95c69906ed97816de6ff;hb=79d1d604a18d84c18d64a6d0d851c286e410017f;hp=5f2767f613ecd845a1da7bfab8beaa3d0707ea43;hpb=dbf2768f7b146e97e37a27316f70bb313f1acf15;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/menubar-items.el b/lisp/menubar-items.el
index 5f2767f..1c410a3 100644
--- a/lisp/menubar-items.el
+++ b/lisp/menubar-items.el
@@ -897,6 +897,14 @@ which will not be used as accelerators."
 	 :active (and (boundp 'browse-url-browser-function)
 		      (fboundp 'browse-url-w3)
 		      (fboundp 'w3-fetch))]
+        ["Emacs-%_W3 (gnudoit)"
+         (customize-set-variable 'browse-url-browser-function 'browse-url-w3-gnudoit)
+         :style radio
+         :selected (and (boundp 'browse-url-browser-function)
+                        (eq browse-url-browser-function
+                            'browse-url-w3-gnudoit))
+	 :active (and (boundp 'browse-url-browser-function)
+		      (fboundp 'browse-url-w3-gnudoit))]
 	["%_Netscape"
 	 (customize-set-variable 'browse-url-browser-function
 				 'browse-url-netscape)
@@ -952,14 +960,66 @@ which will not be used as accelerators."
 			(eq browse-url-browser-function 'browse-url-grail))
 	 :active (and (boundp 'browse-url-browser-function)
 		      (fboundp 'browse-url-grail))]
-	["%_Kfm"
+	["%_KDE"
+	 (customize-set-variable 'browse-url-browser-function
+				 'browse-url-kde)
+	 :style radio
+	 :selected (and (boundp 'browse-url-browser-function)
+			(eq browse-url-browser-function 'browse-url-kde))
+	 :active (and (boundp 'browse-url-browser-function)
+		      (fboundp 'browse-url-kde))]
+	["Mo%_zilla"
+	 (customize-set-variable 'browse-url-browser-function
+				 'browse-url-mozilla)
+	 :style radio
+	 :selected (and (boundp 'browse-url-browser-function)
+			(eq browse-url-browser-function 'browse-url-mozilla))
+	 :active (and (boundp 'browse-url-browser-function)
+		      (fboundp 'browse-url-mozilla))]
+	["G%_aleon"
+	 (customize-set-variable 'browse-url-browser-function
+				 'browse-url-galeon)
+	 :style radio
+	 :selected (and (boundp 'browse-url-browser-function)
+			(eq browse-url-browser-function 'browse-url-galeon))
+	 :active (and (boundp 'browse-url-browser-function)
+		      (fboundp 'browse-url-galeon))]
+	["%_Opera"
+	 (customize-set-variable 'browse-url-browser-function
+				 'browse-url-opera)
+	 :style radio
+	 :selected (and (boundp 'browse-url-browser-function)
+			(eq browse-url-browser-function 'browse-url-opera))
+	 :active (and (boundp 'browse-url-browser-function)
+		      (fboundp 'browse-url-opera))]
+	["%_MMM"
+	 (customize-set-variable 'browse-url-browser-function
+				 'browse-url-mmm)
+	 :style radio
+	 :selected (and (boundp 'browse-url-browser-function)
+			(eq browse-url-browser-function 'browse-url-mmm))
+	 :active (and (boundp 'browse-url-browser-function)
+		      (fboundp 'browse-url-mmm))]
+	["MS-Windows Default %_Browser"
+	 (customize-set-variable 'browse-url-browser-function
+				 'browse-url-default-windows-browser)
+	 :style radio
+	 :selected (and (boundp 'browse-url-browser-function)
+			(eq browse-url-browser-function
+                            'browse-url-default-windows-browser))
+	 :active (and (boundp 'browse-url-browser-function)
+		      (fboundp 'mswindows-shell-execute)
+		      (fboundp 'browse-url-default-windows-browser))]
+	["G%_eneric Browser"
 	 (customize-set-variable 'browse-url-browser-function
-				 'browse-url-kfm)
+				 'browse-url-generic)
 	 :style radio
 	 :selected (and (boundp 'browse-url-browser-function)
-			(eq browse-url-browser-function 'browse-url-kfm))
+			(eq browse-url-browser-function 'browse-url-generic))
 	 :active (and (boundp 'browse-url-browser-function)
-		      (fboundp 'browse-url-kfm))]
+		      (boundp 'browse-url-generic-program)
+		      browse-url-generic-program
+		      (fboundp 'browse-url-generic))]
 	))
       ("%_Troubleshooting"
        ["%_Debug on Error"