[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/posframe 4673c7c 1/2: * posframe.el (posframe-run-posha
From: |
ELPA Syncer |
Subject: |
[elpa] externals/posframe 4673c7c 1/2: * posframe.el (posframe-run-poshandler): Fix typo. |
Date: |
Wed, 27 Oct 2021 02:57:40 -0400 (EDT) |
branch: externals/posframe
commit 4673c7c6ad205d4127bac5a062fb3acc1594cfc5
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>
* posframe.el (posframe-run-poshandler): Fix typo.
---
posframe.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/posframe.el b/posframe.el
index 60f1f0c..da67c48 100644
--- a/posframe.el
+++ b/posframe.el
@@ -1031,13 +1031,13 @@ of `posframe-show'."
(let* ((parent-frame-width (plist-get info :parent-frame-width))
(parent-frame-height (plist-get info :parent-frame-height))
(posframe-width (plist-get info :posframe-width))
- (posframe--height (plist-get info :posframe-height))
+ (posframe-height (plist-get info :posframe-height))
(ref-x (or (car ref-position) 0))
(ref-y (or (cdr ref-position) 0)))
(when (< x 0)
(setq x (- (+ x parent-frame-width) posframe-width)))
(when (< y 0)
- (setq y (- (+ y parent-frame-height) posframe--height)))
+ (setq y (- (+ y parent-frame-height) posframe-height)))
(cons (+ ref-x x)
(+ ref-y y)))))))