diff options
| author | Reiner Steib <Reiner.Steib@gmx.de> | 2005-10-25 13:18:52 +0000 |
|---|---|---|
| committer | Reiner Steib <Reiner.Steib@gmx.de> | 2005-10-25 13:18:52 +0000 |
| commit | 2e167dc4e36e9045be1c92be959e3a94f2c0978d (patch) | |
| tree | f13e807712734e2835e664231801a67fb047a9ad /lisp/net | |
| parent | fc50a3be61dca43ffe9a855b4679a42d91c33ead (diff) | |
| download | emacs-2e167dc4e36e9045be1c92be959e3a94f2c0978d.tar.gz | |
(browse-url-of-buffer): Add ".html" to filename.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/browse-url.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |