diff options
| -rw-r--r-- | lisp/net/browse-url.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 135f11f03c7..3151dae0aa2 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -714,16 +714,18 @@ narrowed." | |||
| 714 | (and (not (buffer-narrowed-p)) | 714 | (and (not (buffer-narrowed-p)) |
| 715 | (or buffer-file-name | 715 | (or buffer-file-name |
| 716 | (and (boundp 'dired-directory) dired-directory))))) | 716 | (and (boundp 'dired-directory) dired-directory))))) |
| 717 | (or file-name | 717 | (when (or (not file-name) |
| 718 | (progn | 718 | ;; This can happen when we're looking at a file from a |
| 719 | (or browse-url-temp-file-name | 719 | ;; zip file buffer, for instance. |
| 720 | (setq browse-url-temp-file-name | 720 | (not (file-exists-p file-name))) |
| 721 | (convert-standard-filename | 721 | (unless browse-url-temp-file-name |
| 722 | (make-temp-file | 722 | (setq browse-url-temp-file-name |
| 723 | (expand-file-name "burl" browse-url-temp-dir) | 723 | (convert-standard-filename |
| 724 | nil ".html")))) | 724 | (make-temp-file |
| 725 | (setq file-name browse-url-temp-file-name) | 725 | (expand-file-name "burl" browse-url-temp-dir) |
| 726 | (write-region (point-min) (point-max) file-name nil 'no-message))) | 726 | nil ".html")))) |
| 727 | (setq file-name browse-url-temp-file-name) | ||
| 728 | (write-region (point-min) (point-max) file-name nil 'no-message)) | ||
| 727 | (browse-url-of-file file-name)))) | 729 | (browse-url-of-file file-name)))) |
| 728 | 730 | ||
| 729 | (defun browse-url-delete-temp-file (&optional temp-file-name) | 731 | (defun browse-url-delete-temp-file (&optional temp-file-name) |