diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2023-01-14 11:48:55 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-01-14 11:48:55 +0200 |
| commit | 9a1dbb7f088c95a46a3be6334572ebece83d2dde (patch) | |
| tree | 5a71a1d46f8c598ffe3826f9eff333dfe73c428f /lisp/net/eww.el | |
| parent | ac2a6fc83fac6390892b068a830ebe0f22364e05 (diff) | |
| download | emacs-9a1dbb7f088c95a46a3be6334572ebece83d2dde.tar.gz | |
Teach 'eww-open-file' about prefix argument
* lisp/net/eww.el (eww-open-file): Accept a new optional argument
NEW-BUFFER to show FILE in a new buffer. (Bug#60809)
* etc/NEWS:
* doc/misc/eww.texi (Basics): Document the new feature.
Diffstat (limited to 'lisp/net/eww.el')
| -rw-r--r-- | lisp/net/eww.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 763b2f07a5c..73d11c0ef52 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -488,14 +488,17 @@ For more information, see Info node `(eww) Top'." ;;;###autoload (defalias 'browse-web 'eww) ;;;###autoload -(defun eww-open-file (file) - "Render FILE using EWW." - (interactive "fFile: ") +(defun eww-open-file (file &optional new-buffer) + "Render FILE using EWW. +If NEW-BUFFER is non-nil (interactively, the prefix arg), use a +new buffer instead of reusing the default EWW buffer." + (interactive "fFile: \nP") (let ((url-allow-non-local-files t)) (eww (concat "file://" (and (memq system-type '(windows-nt ms-dos)) "/") - (expand-file-name file))))) + (expand-file-name file)) + new-buffer))) (defun eww--file-buffer (file) (with-current-buffer (generate-new-buffer " *eww file*") |