[elpa] externals/posframe 936e9aa9cf: * posframe.el (posframe--create-posframe): Test the value of param 'tab-bar-lines before set.

[ELPA Syncer]

branch: externals/posframe
commit 936e9aa9cf87be52793d78d302ad822054dc50b4
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    * posframe.el (posframe--create-posframe): Test the value of param 
'tab-bar-lines before set.
---
 posframe.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/posframe.el b/posframe.el
index c0b028794e..153a207ff0 100644
--- a/posframe.el
+++ b/posframe.el
@@ -288,7 +288,11 @@ ACCEPT-FOCUS."
           (set-window-dedicated-p posframe-window t)))
 
       ;; Remove tab-bar always.
-      (set-frame-parameter posframe--frame 'tab-bar-lines 0)
+      ;; NOTE: if we do not test the value of frame parameter
+      ;; 'tab-bar-lines before set it, posframe will flicker when
+      ;; scroll.
+      (unless (equal (frame-parameter posframe--frame 'tab-bar-lines) 0)
+        (set-frame-parameter posframe--frame 'tab-bar-lines 0))
       (when (version< "27.0" emacs-version)
         (setq-local tab-line-format nil))