branch: externals/elisp-benchmarks
commit ce92b922cb86f9db549fdfc3add0f5e6050a8d93
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* benchmarks/elb-smie.el (elb-font-lock-entry): New benchmark
---
benchmarks/elb-smie.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/benchmarks/elb-smie.el b/benchmarks/elb-smie.el
index 259c9ea0d3..b423e7af08 100644
--- a/benchmarks/elb-smie.el
+++ b/benchmarks/elb-smie.el
@@ -1,6 +1,6 @@
;;; elb-smie.el --- C major mode based on SMIE -*- lexical-binding: t; -*-
-;; Copyright (C) 2015-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2023 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monn...@iro.umontreal.ca>
;; Version: 1.1
@@ -897,5 +897,14 @@ Past this column, we do not try to align the backslashes."
(dotimes (_ 5)
(indent-region (point-min) (point-max)))))
+(defun elb-font-lock-entry ()
+ (with-temp-buffer
+ (insert-file-contents (expand-file-name
+ "../resources/xmenu.c" elb-bench-directory))
+ (elb-smie-mode)
+ (dotimes (_ 50)
+ (font-lock-flush)
+ (font-lock-ensure))))
+
(provide 'elb-smie)
;;; elb-smie.el ends here
