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

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

[elpa] externals/posframe 2c2db29: * posframe.el (posframe-poshandler-ar


From: ELPA Syncer
Subject: [elpa] externals/posframe 2c2db29: * posframe.el (posframe-poshandler-argbuilder): Simplify parent-frame and parent-window.
Date: Mon, 25 Oct 2021 02:57:23 -0400 (EDT)

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

    * posframe.el (posframe-poshandler-argbuilder): Simplify parent-frame and 
parent-window.
---
 posframe.el | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/posframe.el b/posframe.el
index a27c671..60e1088 100644
--- a/posframe.el
+++ b/posframe.el
@@ -1035,15 +1035,10 @@ poshandler easily used for other purposes."
          (frame-width (or (and child-frame (frame-pixel-width child-frame)) 0))
          (frame-height (or (and child-frame (frame-pixel-height child-frame)) 
0))
          (frame-buffer (and child-frame (window-buffer (frame-root-window 
child-frame))))
-         (parent-frame (if child-frame
-                           (frame-parent child-frame)
-                         (selected-frame)))
+         (parent-frame (selected-frame))
          (parent-frame-width (frame-pixel-width parent-frame))
          (parent-frame-height (frame-pixel-height parent-frame))
-         (parent-window
-          (if child-frame
-              (frame-root-window parent-frame)
-            (selected-window)))
+         (parent-window (selected-window))
          (parent-window-top (window-pixel-top parent-window))
          (parent-window-left (window-pixel-left parent-window))
          (parent-window-width (window-pixel-width parent-window))



reply via email to

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