[PATCH psgml] Update list of web browsers

PATCH psgml

This is a patch we've been carrying in Fedora for several years.  I
think it is time to apply it to our repository.

diff -r 6cb9f2b8abd9 ChangeLog
--- a/ChangeLog Thu May 15 21:11:14 2014 +0200
+++ b/ChangeLog Wed Jun 11 09:41:01 2014 -0600
@@ -1,3 +1,10 @@
+2014-06-11  Jerry James  <[email protected]>
+
+ * psgml-html.el (sgml-html-menu): Modernize list of browsers.
+ Allow use of the default browser.
+ (sgml-html-netscape-file): Use firefox instead of netscape.
+ (sgml-html-kfm-file): Use konqueror instead of kfm.
+
 2014-05-15  Norbert Koch  <[email protected]>

  * Makefile (VERSION): XEmacs package 1.47 released.
diff -r 6cb9f2b8abd9 psgml-html.el
--- a/psgml-html.el Thu May 15 21:11:14 2014 +0200
+++ b/psgml-html.el Wed Jun 11 09:41:01 2014 -0600
@@ -931,25 +931,25 @@

 (defvar sgml-html-menu
   (cons "HTML"
- (append '(["View in Netscape" sgml-html-netscape-file
-   (buffer-file-name
-    (current-buffer))]
+ (append '(["View in default browser" browse-url-of-buffer t]
+  ["View in Firefox" sgml-html-netscape-file
+   (buffer-file-name (current-buffer))]
+  ["View in Konqueror" sgml-html-kfm-file
+   (buffer-file-name (current-buffer))]
   ["View in W3" w3-preview-this-buffer t]
-  ["View in kfm" sgml-html-kfm-file
-   (buffer-file-name (current-buffer))]
   "---"
   ["HTML-Quote Region" html-quote-region t]
   "---")
  (cdr sgml-main-menu))))

 (defun sgml-html-netscape-file ()
-  "Preview the file for the current buffer in Netscape."
+  "Preview the file for the current buffer in Firefox."
   (interactive)
-  (browse-url-netscape
+  (browse-url-firefox
    (concat "file:" (buffer-file-name (current-buffer)))))

 (defun sgml-html-kfm-file ()
-  "Preview the file for the current buffer in kfm."
+  "Preview the file for the current buffer in Konqueror."
   (interactive)
   (browse-url-kde
    (concat "file:" (buffer-file-name (current-buffer)))))


-- 
Jerry James
http://www.jamezone.org/