diff options
| author | Simen Heggestøyl | 2017-10-01 20:24:55 +0200 |
|---|---|---|
| committer | Simen Heggestøyl | 2017-10-01 20:27:07 +0200 |
| commit | 60b7668b89ff00213dd8f66b54698b6ddecb427b (patch) | |
| tree | b2578af5286a9b0b33c04818aca44f7b3935805a | |
| parent | bd49b6f1b39cffeaf6098bc7b0182552683b1c07 (diff) | |
| download | emacs-60b7668b89ff00213dd8f66b54698b6ddecb427b.tar.gz emacs-60b7668b89ff00213dd8f66b54698b6ddecb427b.zip | |
Keep eww buffer current when looking up CSS on MDN
* lisp/textmodes/css-mode.el (css-lookup-symbol): Keep the eww buffer
current when looking up CSS documentation on MDN. This fixes a bug
where the eww buffer's content sometimes get mangled when switching
buffers mid-render.
| -rw-r--r-- | lisp/textmodes/css-mode.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index ce9bbf47e77..9022ab7c3fb 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el | |||
| @@ -1659,14 +1659,13 @@ on what is seen near point." | |||
| 1659 | (setq symbol (concat ":" symbol))) | 1659 | (setq symbol (concat ":" symbol))) |
| 1660 | (let ((url (format css-lookup-url-format symbol)) | 1660 | (let ((url (format css-lookup-url-format symbol)) |
| 1661 | (buffer (get-buffer-create "*MDN CSS*"))) | 1661 | (buffer (get-buffer-create "*MDN CSS*"))) |
| 1662 | (save-selected-window | 1662 | ;; Make sure to display the buffer before calling `eww', as that |
| 1663 | ;; Make sure to display the buffer before calling `eww', as | 1663 | ;; calls `pop-to-buffer-same-window'. |
| 1664 | ;; that calls `pop-to-buffer-same-window'. | 1664 | (switch-to-buffer-other-window buffer) |
| 1665 | (switch-to-buffer-other-window buffer) | 1665 | (with-current-buffer buffer |
| 1666 | (with-current-buffer buffer | 1666 | (eww-mode) |
| 1667 | (eww-mode) | 1667 | (add-hook 'eww-after-render-hook #'css--mdn-after-render nil t) |
| 1668 | (add-hook 'eww-after-render-hook #'css--mdn-after-render nil t) | 1668 | (eww url))))) |
| 1669 | (eww url)))))) | ||
| 1670 | 1669 | ||
| 1671 | (provide 'css-mode) | 1670 | (provide 'css-mode) |
| 1672 | ;;; css-mode.el ends here | 1671 | ;;; css-mode.el ends here |