From 528485d0172f00e5f0c8ea548013a49964be501b Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 7 Nov 2019 01:01:12 +0200 Subject: [PATCH] * lisp/tab-bar.el (tab-bar-history-old): Rename from tab-bar-history-current. (tab-bar-history-old-minibuffer-depth): Rename from tab-bar-history--minibuffer-depth. --- lisp/tab-bar.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 8777e20807a..e915930c274 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -923,27 +923,27 @@ function `tab-bar-tab-name-function'." (defvar tab-bar-history-forward (make-hash-table) "History of forward changes in every tab per frame.") -(defvar tab-bar-history-current nil +(defvar tab-bar-history-old nil "Window configuration before the current command.") -(defvar tab-bar-history--minibuffer-depth 0 +(defvar tab-bar-history-old-minibuffer-depth 0 "Minibuffer depth before the current command.") (defun tab-bar-history--pre-change () - (setq tab-bar-history--minibuffer-depth (minibuffer-depth)) + (setq tab-bar-history-old-minibuffer-depth (minibuffer-depth)) ;; Store wc before possibly entering the minibuffer - (when (zerop tab-bar-history--minibuffer-depth) - (setq tab-bar-history-current + (when (zerop tab-bar-history-old-minibuffer-depth) + (setq tab-bar-history-old `((wc . ,(current-window-configuration)) (wc-point . ,(point-marker)))))) (defun tab-bar--history-change () (when (and (not tab-bar-history-omit) - tab-bar-history-current + tab-bar-history-old ;; Store wc before possibly entering the minibuffer - (zerop tab-bar-history--minibuffer-depth)) + (zerop tab-bar-history-old-minibuffer-depth)) (puthash (selected-frame) - (seq-take (cons tab-bar-history-current + (seq-take (cons tab-bar-history-old (gethash (selected-frame) tab-bar-history-back)) tab-bar-history-limit) tab-bar-history-back)) @@ -959,7 +959,7 @@ function `tab-bar-tab-name-function'." (if (window-configuration-p wc) (progn (puthash (selected-frame) - (cons tab-bar-history-current + (cons tab-bar-history-old (gethash (selected-frame) tab-bar-history-forward)) tab-bar-history-forward) (set-window-configuration wc) @@ -976,7 +976,7 @@ function `tab-bar-tab-name-function'." (if (window-configuration-p wc) (progn (puthash (selected-frame) - (cons tab-bar-history-current + (cons tab-bar-history-old (gethash (selected-frame) tab-bar-history-back)) tab-bar-history-back) (set-window-configuration wc) -- 2.39.5