[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 528485d: * lisp/tab-bar.el (tab-bar-history-old): Rename from tab
From: |
Juri Linkov |
Subject: |
master 528485d: * lisp/tab-bar.el (tab-bar-history-old): Rename from tab-bar-history-current. |
Date: |
Wed, 6 Nov 2019 18:01:20 -0500 (EST) |
branch: master
commit 528485d0172f00e5f0c8ea548013a49964be501b
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* 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 8777e20..e915930 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 528485d: * lisp/tab-bar.el (tab-bar-history-old): Rename from tab-bar-history-current.,
Juri Linkov <=