From 7d6b860245acef3c546161169e34f24e93e8066e Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 25 Jun 2020 03:48:32 +0300 Subject: [PATCH] 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 --- lisp/window.el | 6 +++--- 1 file 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) -- 2.39.5