[elpa] externals/posframe cca585a 1/6: Rename all poshandler functions.

[ELPA Syncer]

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

    Rename all poshandler functions.
    
        * posframe.el (posframe-poshandler-p0p0-to-p0p1)
        (posframe-poshandler-p0.5p0.5-to-p0p0)
        (posframe-poshandler-p0p1-to-p0p1)
        (posframe-poshandler-p0p0-to-p0p0)
        (posframe-poshandler-p0.5p0.5-to-f0.5f0.5)
        (posframe-poshandler-p0.5p0-to-f0.5f0)
        (posframe-poshandler-p0p0-to-f0f0)
        (posframe-poshandler-p1p0-to-f1f0)
        (posframe-poshandler-p0p1-to-f0f1)
        (posframe-poshandler-p1p1-to-f1f1)
        (posframe-poshandler-p0.5p1-to-f0.5f1)
        (posframe-poshandler-p0.5p0.5-to-w0.5w0.5)
        (posframe-poshandler-p0p0-to-w0w0)
        (posframe-poshandler-p1p0-to-w1w0)
        (posframe-poshandler-p0.5p0-to-w0.5w0)
        (posframe-poshandler-p0p1-to-w0w1)
        (posframe-poshandler-p1p1-to-w1w1)
        (posframe-poshandler-p0.5p1-to-w0.5w1): New functions.
        (posframe-poshandler-point-bottom-left-corner)
        (posframe-poshandler-point-window-center)
        (posframe-poshandler-point-bottom-left-corner-upward)
        (posframe-poshandler-point-top-left-corner)
        (posframe-poshandler-frame-center)
        (posframe-poshandler-frame-top-center)
        (posframe-poshandler-frame-top-left-corner)
        (posframe-poshandler-frame-top-right-corner)
        (posframe-poshandler-frame-bottom-left-corner)
        (posframe-poshandler-frame-bottom-right-corner)
        (posframe-poshandler-frame-bottom-center)
        (posframe-poshandler-window-center)
        (posframe-poshandler-window-top-left-corner)
        (posframe-poshandler-window-top-right-corner)
        (posframe-poshandler-window-top-center)
        (posframe-poshandler-window-bottom-left-corner)
        (posframe-poshandler-window-bottom-right-corner)
        (posframe-poshandler-window-bottom-center): Alias to new names.
---
 posframe.el | 165 ++++++++++++++++++++++++++++++++----------------------------
 1 file changed, 89 insertions(+), 76 deletions(-)

diff --git a/posframe.el b/posframe.el
index 6199422..9233b69 100644
--- a/posframe.el
+++ b/posframe.el
@@ -1073,14 +1073,14 @@ of `posframe-show'."
     (cons (+ (car position) x-pixel-offset)
           (+ (cdr position) y-pixel-offset))))
 
-(defun posframe-poshandler-point-bottom-left-corner (info &optional 
font-height upward centering)
+(defalias 'posframe-poshandler-point-bottom-left-corner 
#'posframe-poshandler-p0p0-to-p0p1)
+(defun posframe-poshandler-p0p0-to-p0p1 (info &optional font-height upward 
centering)
   "Posframe's position hanlder.
 
-Get bottom-left-corner pixel position of a point,
-the structure of INFO can be found in docstring
-of `posframe-show'.
-
-Optional argument FONT-HEIGHT, UPWARD, CENTERING ."
+Get a posframe position, which let posframe(0, 0) align to
+point(0, 1). The structure of INFO can be found in docstring of
+`posframe-show'. Optional argument FONT-HEIGHT, UPWARD, CENTERING
+."
   (let* ((x-pixel-offset (plist-get info :x-pixel-offset))
          (y-pixel-offset (plist-get info :y-pixel-offset))
          (posframe-width (plist-get info :posframe-width))
@@ -1125,40 +1125,41 @@ Optional argument FONT-HEIGHT, UPWARD, CENTERING ."
                      (- y-top (or posframe-height 0))
                    y-bottom)))))
 
-(defun posframe-poshandler-point-window-center (info)
+(defalias 'posframe-poshandler-point-window-center 
#'posframe-poshandler-p0.5p0.5-to-p0p0)
+(defun posframe-poshandler-p0.5p0.5-to-p0p0 (info)
   "Posframe's position hanlder.
 
-Get a position of a point, by which a window-centered posframe
-can be put below it, the structure of INFO can be found in
-docstring of `posframe-show'. "
-
+Get a posframe position, which let posframe(0.5, 0.5) align to
+point(0, 0). The structure of INFO can be found in docstring of
+`posframe-show'. "
   (posframe-poshandler-point-bottom-left-corner info nil nil t))
 
-(defun posframe-poshandler-point-bottom-left-corner-upward (info)
+(defalias 'posframe-poshandler-point-bottom-left-corner-upward 
#'posframe-poshandler-p0p1-to-p0p1)
+(defun posframe-poshandler-p0p1-to-p0p1 (info)
   "Posframe's position hanlder.
 
-Get a position of a point, by which posframe can put above it,
-the structure of INFO can be found in docstring
-of `posframe-show'.
-
-Optional argument FONT-HEIGHT ."
+Get a posframe position, which let posframe(0, 1) align to
+point(0, 1). The structure of INFO can be found in docstring of
+`posframe-show'."
   (posframe-poshandler-point-bottom-left-corner info nil t))
 
-(defun posframe-poshandler-point-top-left-corner (info)
+(defalias 'posframe-poshandler-point-top-left-corner 
#'posframe-poshandler-p0p0-to-p0p0)
+(defun posframe-poshandler-p0p0-to-p0p0 (info)
   "Posframe's position hanlder.
 
-Get top-left-corner pixel position of a point,
-the structure of INFO can be found in docstring
-of `posframe-show'."
+Get a posframe position, which let posframe(0, 0) align to
+point(0, 0). The structure of INFO can be found in docstring of
+`posframe-show'."
   (let ((font-height 0))
     (posframe-poshandler-point-bottom-left-corner info font-height)))
 
-(defun posframe-poshandler-frame-center (info)
+(defalias 'posframe-poshandler-frame-center 
#'posframe-poshandler-p0.5p0.5-to-f0.5f0.5)
+(defun posframe-poshandler-p0.5p0.5-to-f0.5f0.5 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto its
-parent-frame's center.  The structure of INFO can
-be found in docstring of `posframe-show'."
+Get a posframe position, which let posframe(0.5, 0.5) align to
+frame(0.5, 0.5). The structure of INFO can be found in docstring
+of `posframe-show'."
   (cons (/ (- (plist-get info :parent-frame-width)
               (plist-get info :posframe-width))
            2)
@@ -1166,59 +1167,64 @@ be found in docstring of `posframe-show'."
               (plist-get info :posframe-height))
            2)))
 
-(defun posframe-poshandler-frame-top-center (info)
+(defalias 'posframe-poshandler-frame-top-center 
#'posframe-poshandler-p0.5p0-to-f0.5f0)
+(defun posframe-poshandler-p0.5p0-to-f0.5f0 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto its
-parent-frame's top center.  The structure of INFO can
-be found in docstring of `posframe-show'."
+Get a posframe position, which let posframe(0.5, 0) align to
+frame(0.5, 0). The structure of INFO can be found in docstring of
+`posframe-show'."
   (cons (/ (- (plist-get info :parent-frame-width)
               (plist-get info :posframe-width))
            2)
         0))
 
-(defun posframe-poshandler-frame-top-left-corner (_info)
+(defalias 'posframe-poshandler-frame-top-left-corner 
#'posframe-poshandler-p0p0-to-f0f0)
+(defun posframe-poshandler-p0p0-to-f0f0 (_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'."
+Get a posframe position, which let posframe(0, 0) align to
+frame(0, 0). The structure of INFO can be found in docstring of
+`posframe-show'."
   '(0 . 0))
 
-(defun posframe-poshandler-frame-top-right-corner (_info)
+(defalias 'posframe-poshandler-frame-top-right-corner 
#'posframe-poshandler-p1p0-to-f1f0)
+(defun posframe-poshandler-p1p0-to-f1f0 (_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'."
+Get a posframe position, which let posframe(1, 0) align to
+frame(1, 0). The structure of INFO can be found in docstring of
+`posframe-show'."
   '(-1 . 0))
 
-
-(defun posframe-poshandler-frame-bottom-left-corner (info)
+(defalias 'posframe-poshandler-frame-bottom-left-corner 
#'posframe-poshandler-p0p1-to-f0f1)
+(defun posframe-poshandler-p0p1-to-f0f1 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto its parent-frame's
-bottom left corner.  The structure of INFO can be found
-in docstring of `posframe-show'."
+Get a posframe position, which let posframe(0, 1) align to
+frame(0, 1). The structure of INFO can be found in docstring of
+`posframe-show'."
   (cons 0 (- 0
              (plist-get info :mode-line-height)
              (plist-get info :minibuffer-height))))
 
-(defun posframe-poshandler-frame-bottom-right-corner (info)
+(defalias 'posframe-poshandler-frame-bottom-right-corner 
#'posframe-poshandler-p1p1-to-f1f1)
+(defun posframe-poshandler-p1p1-to-f1f1 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto its parent-frame's
-bottom right corner.  The structure of INFO can be found
-in docstring of `posframe-show'."
+Get a posframe position, which let posframe(1, 1) align to
+frame(1, 1). The structure of INFO can be found in docstring of
+`posframe-show'."
   (cons -1 (- 0
               (plist-get info :mode-line-height)
               (plist-get info :minibuffer-height))))
 
-(defun posframe-poshandler-frame-bottom-center (info)
+(defalias 'posframe-poshandler-frame-bottom-center 
#'posframe-poshandler-p0.5p1-to-f0.5f1)
+(defun posframe-poshandler-p0.5p1-to-f0.5f1 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto its parent-frame's
-bottom center.  The structure of INFO can be found in docstring of
+Get a posframe position, which let posframe(0.5, 1) align to
+frame(0.5, 1). The structure of INFO can be found in docstring of
 `posframe-show'."
   (cons (/ (- (plist-get info :parent-frame-width)
               (plist-get info :posframe-width))
@@ -1228,11 +1234,12 @@ bottom center.  The structure of INFO can be found in 
docstring of
            (plist-get info :mode-line-height)
            (plist-get info :minibuffer-height))))
 
-(defun posframe-poshandler-window-center (info)
+(defalias 'posframe-poshandler-window-center 
#'posframe-poshandler-p0.5p0.5-to-w0.5w0.5)
+(defun posframe-poshandler-p0.5p0.5-to-w0.5w0.5 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto current window's
-center.  The structure of INFO can be found in docstring
+Get a posframe position, which let posframe(0.5, 0.5) align to
+window(0.5, 0.5). The structure of INFO can be found in docstring
 of `posframe-show'."
   (let* ((window-left (plist-get info :parent-window-left))
          (window-top (plist-get info :parent-window-top))
@@ -1243,23 +1250,25 @@ of `posframe-show'."
     (cons (+ window-left (/ (- window-width posframe-width) 2))
           (+ window-top (/ (- window-height posframe-height) 2)))))
 
-(defun posframe-poshandler-window-top-left-corner (info)
+(defalias 'posframe-poshandler-window-top-left-corner 
#'posframe-poshandler-p0p0-to-w0w0)
+(defun posframe-poshandler-p0p0-to-w0w0 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto current window's
-top left corner.  The structure of INFO can be found in
-docstring of `posframe-show'."
+Get a posframe position, which let posframe(0, 0) align to
+window(0, 0). The structure of INFO can be found in docstring of
+`posframe-show'."
   (let* ((window-left (plist-get info :parent-window-left))
          (window-top (plist-get info :parent-window-top)))
     (cons window-left
           window-top)))
 
-(defun posframe-poshandler-window-top-right-corner (info)
+(defalias 'posframe-poshandler-window-top-right-corner 
#'posframe-poshandler-p1p0-to-w1w0)
+(defun posframe-poshandler-p1p0-to-w1w0 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto current window's
-top right corner.  The structure of INFO can be found in
-docstring of `posframe-show'."
+Get a posframe position, which let posframe(1, 0) align to
+window(1, 0). The structure of INFO can be found in docstring of
+`posframe-show'."
   (let* ((window-left (plist-get info :parent-window-left))
          (window-top (plist-get info :parent-window-top))
          (window-width (plist-get info :parent-window-width))
@@ -1268,12 +1277,13 @@ docstring of `posframe-show'."
              (- 0 posframe-width))
           window-top)))
 
-(defun posframe-poshandler-window-top-center (info)
+(defalias 'posframe-poshandler-window-top-center 
#'posframe-poshandler-p0.5p0-to-w0.5w0)
+(defun posframe-poshandler-p0.5p0-to-w0.5w0 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto current window's
-top center.  The structure of INFO can be found in docstring of
-`posframe-show'."
+Get a posframe position, which let posframe(0.5, 0) align to
+window(0.5, 0). The structure of INFO can be found in docstring
+of `posframe-show'."
   (let* ((window-left (plist-get info :parent-window-left))
          (window-top (plist-get info :parent-window-top))
          (window-width (plist-get info :parent-window-width))
@@ -1281,12 +1291,13 @@ top center.  The structure of INFO can be found in 
docstring of
     (cons (+ window-left (/ (- window-width posframe-width) 2))
           window-top)))
 
-(defun posframe-poshandler-window-bottom-left-corner (info)
+(defalias 'posframe-poshandler-window-bottom-left-corner 
#'posframe-poshandler-p0p1-to-w0w1)
+(defun posframe-poshandler-p0p1-to-w0w1 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto current window's
-bottom left corner.  The structure of INFO can be found in
-docstring of `posframe-show'."
+Get a posframe position, which let posframe(0, 1) align to
+window(0, 1). The structure of INFO can be found in docstring of
+`posframe-show'."
   (let* ((window-left (plist-get info :parent-window-left))
          (window-top (plist-get info :parent-window-top))
          (window-height (plist-get info :parent-window-height))
@@ -1296,12 +1307,13 @@ docstring of `posframe-show'."
           (+ window-top window-height
              (- 0 mode-line-height posframe-height)))))
 
-(defun posframe-poshandler-window-bottom-right-corner (info)
+(defalias 'posframe-poshandler-window-bottom-right-corner 
#'posframe-poshandler-p1p1-to-w1w1)
+(defun posframe-poshandler-p1p1-to-w1w1 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto current window's
-bottom right corner.  The structure of INFO can be found in
-docstring of `posframe-show'."
+Get a posframe position, which let posframe(1, 1) align to
+window(1, 1). The structure of INFO can be found in docstring of
+`posframe-show'."
   (let* ((window-left (plist-get info :parent-window-left))
          (window-top (plist-get info :parent-window-top))
          (window-width (plist-get info :parent-window-width))
@@ -1314,12 +1326,13 @@ docstring of `posframe-show'."
           (+ window-top window-height
              (- 0 mode-line-height posframe-height)))))
 
-(defun posframe-poshandler-window-bottom-center (info)
+(defalias 'posframe-poshandler-window-bottom-center 
#'posframe-poshandler-p0.5p1-to-w0.5w1)
+(defun posframe-poshandler-p0.5p1-to-w0.5w1 (info)
   "Posframe's position handler.
 
-Get a position which let posframe stay onto current window's
-bottom center.  The structure of INFO can be found in docstring of
-`posframe-show'."
+Get a posframe position, which let posframe(0.5, 1) align to
+window(0.5, 1). The structure of INFO can be found in docstring
+of `posframe-show'."
   (let* ((window-left (plist-get info :parent-window-left))
          (window-top (plist-get info :parent-window-top))
          (window-width (plist-get info :parent-window-width))