emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]