branch: externals/posframe
commit cf2391b9d62ebdcad225c1b22410003565ec4229
Author: Feng Shu <[email protected]>
Commit: Feng Shu <[email protected]>
Update posframe-benchmark.el
---
posframe-benchmark.el | 51 ++++++++++++++++++++++++++-------------------------
1 file changed, 26 insertions(+), 25 deletions(-)
diff --git a/posframe-benchmark.el b/posframe-benchmark.el
index aae6692..5be2141 100644
--- a/posframe-benchmark.el
+++ b/posframe-benchmark.el
@@ -30,34 +30,35 @@
(require 'cl-lib)
(require 'posframe)
-(defun posframe-benchmark ()
- "Benchmark tool for posframe."
- (interactive)
+(defvar posframe-benchmark-alist
(let ((str (with-temp-buffer
(insert-file-contents (locate-library "posframe.el"))
- (buffer-string)))
- (n 10000))
-
- (message "\n* Benchmark `font-at' %s times ..." n)
- (benchmark n '(font-at (point-min)))
-
- (message "\n* Benchmark `redraw-display' %s times ..." n)
- (benchmark n '(redraw-display))
-
- (message "\n* Benchmark `remove-text-properties' %s times ..." n)
- (benchmark n `(remove-text-properties
- 0 (length str) '(read-only t)
- ,str))
-
- (message "\n* Benchmark `posframe--mouse-banish' %s times ..." n)
- (benchmark n `(posframe--mouse-banish (window-frame)))
-
- (message "\n* Benchmark `mouse-position' %s times ..." n)
- (benchmark n '(mouse-position))
-
- (message "\n* Benchmark `default-font-width' %s times ..." n)
- (benchmark n '(default-font-width))
+ (buffer-string))))
+ `((font-at
+ (font-at (point-min)))
+ (redraw-display
+ (redraw-display))
+ (remove-text-properties
+ (let ((string ,str)))
+ (remove-text-properties
+ 0 (length string) '(read-only t)
+ string))
+ (mouse-position
+ (mouse-position))
+ (default-font-width
+ (default-font-width))
+ (posframe--get-font-height
+ (posframe--get-font-height (point-min)))
+ (posframe--mouse-banish
+ (posframe--mouse-banish (window-frame))))))
+(defun posframe-benchmark ()
+ "Benchmark tool for posframe."
+ (interactive)
+ (let ((n 10000))
+ (dolist (x posframe-benchmark-alist)
+ (message "\n* Benchmark `%S' %s times ..." (car x) n)
+ (benchmark n (car (cdr x))))
(message "\n Finished.")))
