emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/frame-tabs 95d20c9 2/3: Fix byte compile warning and so


From: Stefan Monnier
Subject: [elpa] externals/frame-tabs 95d20c9 2/3: Fix byte compile warning and some customizations
Date: Tue, 1 Dec 2020 15:59:55 -0500 (EST)

branch: externals/frame-tabs
commit 95d20c90f53402538c263fc780ea418adb3ebd9d
Author: Martin Rudalics <rudalics@gmx.at>
Commit: Martin Rudalics <rudalics@gmx.at>

    Fix byte compile warning and some customizations
    
    * packages/frame-tabs/frame-tabs.el (frame-tabs-mode): New
    variable to silence byte compiler.
    (frame-tabs--set-value): Don't turn on 'frame-tabs-mode' unless
    it's already on.
    (frame-tabs-min-size, frame-tabs-max-size, frame-tabs-delay): Set
    value via 'frame-tabs--set-value'.
---
 frame-tabs.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/frame-tabs.el b/frame-tabs.el
index 5b3471f..6f1e8ac 100644
--- a/frame-tabs.el
+++ b/frame-tabs.el
@@ -94,12 +94,14 @@ button."
   :group 'frame-tabs)
 
 ;; Options
+(defvar frame-tabs-mode)
+
 (defun frame-tabs--set-value (symbol value)
   "Helper function for customizing frame tabs."
   (set-default symbol value)
   (when frame-tabs-mode
-    (frame-tabs-mode -1))
-  (frame-tabs-mode 1))
+    (frame-tabs-mode -1)
+    (frame-tabs-mode 1)))
 
 (defcustom frame-tabs-side 'top
   "Side of frame where tabs windows are located.
@@ -132,6 +134,8 @@ of a frame this is their minimum number of columns.
 This value may be overridden when the major side window showing
 the frame tabs window contains other windows."
   :type 'integer
+  :initialize 'custom-initialize-default
+  :set 'frame-tabs--set-value
   :version "26.1"
   :group 'frame-tabs)
 
@@ -144,6 +148,8 @@ of a frame this is their maximum number of columns.
 This value may be overridden when the major side window showing
 the frame tabs window contains other windows."
   :type 'integer
+  :initialize 'custom-initialize-default
+  :set 'frame-tabs--set-value
   :version "26.1"
   :group 'frame-tabs)
 
@@ -151,6 +157,8 @@ the frame tabs window contains other windows."
   "Frame tabs update interval, in seconds.
 This is the time Emacs waits before updating frame tabs windows."
   :type 'float
+  :initialize 'custom-initialize-default
+  :set 'frame-tabs--set-value
   :version "26.1"
   :group 'frame-tabs)
 



reply via email to

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