branch: master
commit c048016c6d36091cdafe30397d5d0d8b276047b4
Author: Feng Shu <tuma...@163.com>
Commit: Feng Shu <tuma...@163.com>
Add posframe-poshandler-frame-top-left/right-corner
---
posframe.el | 39 +++++++++++++++++++++++++++++----------
1 file changed, 29 insertions(+), 10 deletions(-)
diff --git a/posframe.el b/posframe.el
index 9fa4d74..001abe4 100644
--- a/posframe.el
+++ b/posframe.el
@@ -282,16 +282,18 @@ by default, poshandler is auto selected based on
POSITION's type, but user can *force* set one with
the help of POSHANDLER argument. the below are buildin
poshandler functions:
-1. `posframe-poshandler-frame-center'
-2. `posframe-poshandler-frame-bottom-left-corner'
-3. `posframe-poshandler-frame-bottom-right-corner'
-4. `posframe-poshandler-window-center'
-5. `posframe-poshandler-window-top-left-corner'
-6. `posframe-poshandler-window-top-right-corner'
-7. `posframe-poshandler-window-bottom-left-corner'
-8. `posframe-poshandler-window-bottom-right-corner'
-9. `posframe-poshandler-point-top-left-corner'
-9. `posframe-poshandler-point-bottom-left-corner'
+1. `posframe-poshandler-frame-center'
+2. `posframe-poshandler-frame-top-left-corner'
+3. `posframe-poshandler-frame-top-right-corner'
+4. `posframe-poshandler-frame-bottom-left-corner'
+5. `posframe-poshandler-frame-bottom-right-corner'
+6. `posframe-poshandler-window-center'
+7. `posframe-poshandler-window-top-left-corner'
+8. `posframe-poshandler-window-top-right-corner'
+9. `posframe-poshandler-window-bottom-left-corner'
+10. `posframe-poshandler-window-bottom-right-corner'
+11. `posframe-poshandler-point-top-left-corner'
+12. `posframe-poshandler-point-bottom-left-corner'
This posframe's buffer is POSFRAME-BUFFER.
@@ -660,6 +662,23 @@ be found in docstring of `posframe-show'."
(frame-pixel-height posframe))
2))))
+(defun posframe-poshandler-frame-top-left-corner (_info)
+ "Posframe's position handler.
+
+Get a position which let posframe stay onto its parent-frame's
+top left corner. The structure of INFO can be found
+in docstring of `posframe-show'."
+ '(0 . 0))
+
+(defun posframe-poshandler-frame-top-right-corner (_info)
+ "Posframe's position handler.
+
+Get a position which let posframe stay onto its parent-frame's
+top right corner. The structure of INFO can be found
+in docstring of `posframe-show'."
+ '(-1 . 0))
+
+
(defun posframe-poshandler-frame-bottom-left-corner (_info)
"Posframe's position handler.
