diff options
| author | Lars Ingebrigtsen | 2016-02-02 15:53:39 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-02 15:53:39 +1100 |
| commit | ee0fbd854f452ef268de76892ed6b671c91f6d48 (patch) | |
| tree | 16cfa802275bd01c5aa26ce31f8e4b60b9acaa47 | |
| parent | 9c3142dcc09841a8bd2c25a2ddd3a9121a5015b6 (diff) | |
| download | emacs-ee0fbd854f452ef268de76892ed6b671c91f6d48.tar.gz emacs-ee0fbd854f452ef268de76892ed6b671c91f6d48.zip | |
Make eww-browse-url with new-window parameter work again
* eww.el (eww-browse-url): Stay in the same buffer if we're
already in a eww mode buffer so that eww-browse-url with a
new-window parameter works (bug#22244).
| -rw-r--r-- | lisp/net/eww.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 372b674ecd7..128752a62ef 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -274,6 +274,10 @@ word(s) will be searched for via `eww-search-prefix'." | |||
| 274 | (setq url (concat url "/")))) | 274 | (setq url (concat url "/")))) |
| 275 | (setq url (concat eww-search-prefix | 275 | (setq url (concat eww-search-prefix |
| 276 | (replace-regexp-in-string " " "+" url)))))) | 276 | (replace-regexp-in-string " " "+" url)))))) |
| 277 | (switch-to-buffer | ||
| 278 | (if (eq major-mode 'eww-mode) | ||
| 279 | (current-buffer) | ||
| 280 | (get-buffer-create "*eww*"))) | ||
| 277 | (eww-setup-buffer) | 281 | (eww-setup-buffer) |
| 278 | (plist-put eww-data :url url) | 282 | (plist-put eww-data :url url) |
| 279 | (plist-put eww-data :title "") | 283 | (plist-put eww-data :title "") |
| @@ -556,7 +560,6 @@ Currently this means either text/html or application/xhtml+xml." | |||
| 556 | (goto-char (point-min))) | 560 | (goto-char (point-min))) |
| 557 | 561 | ||
| 558 | (defun eww-setup-buffer () | 562 | (defun eww-setup-buffer () |
| 559 | (switch-to-buffer (get-buffer-create "*eww*")) | ||
| 560 | (when (or (plist-get eww-data :url) | 563 | (when (or (plist-get eww-data :url) |
| 561 | (plist-get eww-data :dom)) | 564 | (plist-get eww-data :dom)) |
| 562 | (eww-save-history)) | 565 | (eww-save-history)) |