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 <james(a)xemacs.org&gt; + + * 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 <viteno(a)xemacs.org&gt; * 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/ _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches