(browse-url-of-buffer): Add ".html" to filename.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c38eb58672cffe4366d885aacbbc8c22bb1b6aa6..1c342460f416d6754f907a4b9bab43e4e916d667 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-25  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * net/browse-url.el (browse-url-of-buffer): Add ".html" to
+       filename.
+
 2005-10-25  Masatake YAMATO  <jet@gyve.org>
 
        * dired-x.el (dired-virtual): Don't use `dired-insert-headerline'.

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 74bace5895840a00af5692d9b6266ec9ca5cd8a5..54fddf9261cf618fcd09f9a61854d7b0e7b8da75 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -713,7 +713,8 @@ narrowed."
                (setq browse-url-temp-file-name
                      (convert-standard-filename
                       (make-temp-file
-                       (expand-file-name "burl" browse-url-temp-dir)))))
+                       (expand-file-name "burl" browse-url-temp-dir)
+                       nil ".html"))))
            (setq file-name browse-url-temp-file-name)
            (write-region (point-min) (point-max) file-name nil 'no-message)))
       (browse-url-of-file file-name))))