popwin.el でバッファ切り替えをポップアップに変更したい Emacs `switch-to-buffer` eww (defadvice eww (around ad-eww activate) (let ((switch-to-buffer 'display-buffer)) ad-do-it)) eww `switch-to-buffer` `display-buffer` * * * (defadvice switch-to-buffer (around eww-popwin activate) (let ((name (typecase buffer-or-name (string buffer-or-name) (buffer (buffer-name buffer-or-name))))) (if (string-equal name "*eww*") (display-buffer buffer-or-name) ad-do-it)))

Emacs Lisp Common Lisp Lisp-2 Lisp `let`




(fset 'switch-to-buffer (symbol-function 'display-buffer))




`cl.el` `flet``cl-flet`


(flet ((switch-to-buffer (&rest args) (apply 'display-buffer args)))
...)




`switch-to-buffer` `defadvice` `eww` `display-buffer`


(defadvice switch-to-buffer (around eww-popwin ...)
(if (eww-buffer? buffer)
(display-buffer buffer)
ad-do-it))


`eww` `eww-setup-buffer`

:

`eww-render` `defadvice`


(defadvice eww-render (around eww-render-popwin activate)
(save-window-excursion ad-do-it)
(unless (get-buffer-window "*eww*")
(pop-to-buffer "*eww*")))




<