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

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

[elpa] master 0e031b3 02/33: posframe: posframe--last-position -> posfra


From: Feng Shu
Subject: [elpa] master 0e031b3 02/33: posframe: posframe--last-position -> posframe--last-posframe-pixel-position
Date: Fri, 14 Dec 2018 06:21:13 -0500 (EST)

branch: master
commit 0e031b3543ea7afabdbe84111a110eccb3eb3fc7
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    posframe: posframe--last-position -> posframe--last-posframe-pixel-position
    
    * posframe.el (posframe--last-posframe-pixel-position): rename 
posframe--last-position.
    (posframe--create-posframe): Use posframe--last-posframe-pixel-position 
instead.
    (posframe--set-frame-position): Use posframe--last-posframe-pixel-position 
instead.
---
 posframe.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/posframe.el b/posframe.el
index 9a7a73f..628aa9a 100644
--- a/posframe.el
+++ b/posframe.el
@@ -111,7 +111,7 @@
 (defvar-local posframe--frame nil
   "Record posframe's frame.")
 
-(defvar-local posframe--last-position nil
+(defvar-local posframe--last-posframe-pixel-position nil
   "Record the last pixel position of posframe's frame.")
 
 (defvar-local posframe--last-posframe-size nil
@@ -184,7 +184,7 @@ This posframe's buffer is POSFRAME-BUFFER."
                    (equal posframe--last-args args))
         (posframe-delete-frame posframe-buffer)
         (setq-local posframe--last-args args)
-        (setq-local posframe--last-position nil)
+        (setq-local posframe--last-posframe-pixel-position nil)
         (setq-local posframe--last-posframe-size nil)
         (setq-local posframe--frame
                     (make-frame
@@ -442,13 +442,13 @@ WIDTH and MIN-WIDTH."
                                               parent-frame-height)
   "Move POSFRAME to POSITION.
 This need PARENT-FRAME-WIDTH and PARENT-FRAME-HEIGHT"
-  (unless (and (equal position posframe--last-position)
+  (unless (and (equal position posframe--last-posframe-pixel-position)
                ;; When working frame's size change, re-posit
                ;; the posframe.
                (equal posframe--last-parent-frame-size
                       (cons parent-frame-width parent-frame-height)))
     (set-frame-position posframe (car position) (cdr position))
-    (setq-local posframe--last-position position)
+    (setq-local posframe--last-posframe-pixel-position position)
     (setq-local posframe--last-parent-frame-size
                 (cons parent-frame-width parent-frame-height)))
   ;; Make posframe's posframe--frame visible



reply via email to

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