master 7d6b860: Push action to list of functions in display-buffer-override-next-command

[Juri Linkov]

branch: master
commit 7d6b860245acef3c546161169e34f24e93e8066e
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    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 a84ca05..d499f9a 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)