[elpa] externals/posframe 093b29a 16/16: posframe-show: Add respect-tab-line argument #61

[Feng Shu]

branch: externals/posframe
commit 093b29a53cbeda6d637ccc9ef4dfc47123e79b9e
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    posframe-show: Add respect-tab-line argument #61
---
 posframe.el | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/posframe.el b/posframe.el
index 2608e99..f7ed211 100644
--- a/posframe.el
+++ b/posframe.el
@@ -247,7 +247,8 @@ effect.")
                                      keep-ratio
                                      override-parameters
                                      respect-header-line
-                                     respect-mode-line)
+                                     respect-mode-line
+                                     respect-tab-line)
   "Create and return a posframe child frame.
 This posframe's buffer is BUFFER-OR-NAME."
   (let ((left-fringe (or left-fringe 0))
@@ -266,7 +267,8 @@ This posframe's buffer is BUFFER-OR-NAME."
                     keep-ratio
                     override-parameters
                     respect-header-line
-                    respect-mode-line)))
+                    respect-mode-line
+                    respect-tab-line)))
     (with-current-buffer buffer
       ;; Many variables take effect after call `set-window-buffer'
       (setq-local display-line-numbers nil)
@@ -284,6 +286,8 @@ This posframe's buffer is BUFFER-OR-NAME."
         (setq-local mode-line-format nil))
       (unless respect-header-line
         (setq-local header-line-format nil))
+      (unless respect-tab-line
+        (setq-local tab-line-format nil))
 
       (add-hook 'kill-buffer-hook #'posframe-auto-delete nil t)
 
@@ -345,6 +349,8 @@ This posframe's buffer is BUFFER-OR-NAME."
             (set-window-parameter posframe-window 'mode-line-format 'none))
           (unless respect-header-line
             (set-window-parameter posframe-window 'header-line-format 'none))
+          (unless respect-tab-line
+            (set-window-parameter posframe-window 'tab-line-format 'none))
           (set-window-buffer posframe-window buffer)
           (set-window-dedicated-p posframe-window t)))
       posframe--frame)))
@@ -374,6 +380,7 @@ This posframe's buffer is BUFFER-OR-NAME."
                          background-color
                          respect-header-line
                          respect-mode-line
+                         respect-tab-line
                          initialize
                          no-properties
                          keep-ratio
@@ -462,9 +469,10 @@ derived from the current frame by default, but can be 
overridden
 using the FONT, FOREGROUND-COLOR and BACKGROUND-COLOR arguments,
 respectively.
 
-By default, posframe will display no header-line or mode-line.
-In case a header-line or mode-line is desired, users can set
-RESPECT-HEADER-LINE or RESPECT-MODE-LINE to t.
+By default, posframe will display no header-line, mode-line and
+tab-line.  In case a header-line, mode-line or tab-line is
+desired, users can set RESPECT-HEADER-LINE, RESPECT-MODE-LINE or
+RESPECT-TAB-LINE to t.
 
 INITIALIZE is a function with no argument.  It will run when
 posframe buffer is first selected with `with-current-buffer'
@@ -500,6 +508,7 @@ You can use `posframe-delete-all' to delete all posframes."
          (background-color (funcall posframe-arghandler buffer-or-name 
:background-color background-color))
          (respect-header-line (funcall posframe-arghandler buffer-or-name 
:respect-header-line respect-header-line))
          (respect-mode-line (funcall posframe-arghandler buffer-or-name 
:respect-mode-line respect-mode-line))
+         (respect-tab-line (funcall posframe-arghandler buffer-or-name 
:respect-tab-line respect-tab-line))
          (initialize (funcall posframe-arghandler buffer-or-name :initialize 
initialize))
          (no-properties (funcall posframe-arghandler buffer-or-name 
:no-properties no-properties))
          (keep-ratio (funcall posframe-arghandler buffer-or-name :keep-ratio 
keep-ratio))
@@ -559,6 +568,7 @@ You can use `posframe-delete-all' to delete all posframes."
              :keep-ratio keep-ratio
              :respect-header-line respect-header-line
              :respect-mode-line respect-mode-line
+             :respect-tab-line respect-tab-line
              :override-parameters override-parameters))
 
       ;; Insert string into the posframe buffer