From: Reiner Steib Date: Tue, 25 Oct 2005 13:18:52 +0000 (+0000) Subject: (browse-url-of-buffer): Add ".html" to filename. X-Git-Tag: emacs-pretest-22.0.90~6295 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e167dc4e36e9045be1c92be959e3a94f2c0978d;p=emacs.git (browse-url-of-buffer): Add ".html" to filename. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c38eb58672c..1c342460f41 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-10-25 Reiner Steib + + * net/browse-url.el (browse-url-of-buffer): Add ".html" to + filename. + 2005-10-25 Masatake YAMATO * 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 74bace58958..54fddf9261c 100644 --- 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))))