[elpa] externals/posframe f89438b 4/4: * posframe-benchmark.el (posframe-benchmark-alist): Add posn-at-point benchmark.

[ELPA Syncer]

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

    * posframe-benchmark.el (posframe-benchmark-alist): Add posn-at-point 
benchmark.
---
 posframe-benchmark.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/posframe-benchmark.el b/posframe-benchmark.el
index faed81e..f772fce 100644
--- a/posframe-benchmark.el
+++ b/posframe-benchmark.el
@@ -34,9 +34,7 @@
   (let ((str (with-temp-buffer
                (insert-file-contents (locate-library "posframe.el"))
                (buffer-string))))
-    `((raise-frame
-       (raise-frame (window-frame)))
-      (font-at
+    `((font-at
        (font-at (point-min)))
       (redraw-display
        (redraw-display))
@@ -57,8 +55,12 @@
        (frame-parameter (window-frame) 'no-accept-focus))
       (set-mouse-position
        (set-mouse-position (window-frame) 0 0))
+      (posn-at-point
+       (posn-at-point))
       (set-frame-parameter
-       (set-frame-parameter (window-frame) 'test 1)))))
+       (set-frame-parameter (window-frame) 'test 1))
+      (raise-frame
+       (raise-frame (window-frame))))))
 
 (defun posframe-benchmark ()
   "Benchmark tool for posframe."