diff options
| author | Juri Linkov <juri@linkov.net> | 2020-06-25 03:48:32 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2020-06-25 03:48:32 +0300 |
| commit | 7d6b860245acef3c546161169e34f24e93e8066e (patch) | |
| tree | e4f214e41f2aed58ef3be1a05795c015ba26b44c /lisp/window.el | |
| parent | b6ea0e0834fb63c977299f35701f17a1a3c6a044 (diff) | |
| download | emacs-7d6b860245acef3c546161169e34f24e93e8066e.tar.gz | |
Push action to list of functions in display-buffer-override-next-command
* lisp/window.el (display-buffer-override-next-command):
Push action to 'car' of 'display-buffer-overriding-action'
and in exitfun remove action from 'car'.
https://lists.gnu.org/archive/html/emacs-devel/2020-06/msg00803.html
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/window.el b/lisp/window.el index a84ca05daac..d499f9ab99a 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -8643,8 +8643,8 @@ window; the function takes two arguments: an old and new window." (command this-command) (exitfun (lambda () - (setq display-buffer-overriding-action - (delq action display-buffer-overriding-action)) + (setcar display-buffer-overriding-action + (delq action (car display-buffer-overriding-action))) (remove-hook 'post-command-hook clearfun) (when (functionp post-function) (funcall post-function old-window new-window))))) @@ -8661,7 +8661,7 @@ window; the function takes two arguments: an old and new window." ;; Reset display-buffer-overriding-action ;; after the next command finishes (add-hook 'post-command-hook clearfun) - (push action display-buffer-overriding-action))) + (push action (car display-buffer-overriding-action)))) (defun set-window-text-height (window height) |