[nongnu] elpa/org-superstar bd36b34d93 066/162: further minimized test slomode.el

[Stefan Kangas]

branch: elpa/org-superstar
commit bd36b34d934da21b7101e2c989be815f012580b8
Author: D. Williams <d.williams@posteo.net>
Commit: D. Williams <d.williams@posteo.net>

    further minimized test slomode.el
---
 tests/slomode.el | 35 +++++++++--------------------------
 1 file changed, 9 insertions(+), 26 deletions(-)

diff --git a/tests/slomode.el b/tests/slomode.el
index 3dd8c3af02..0bbb3730a5 100644
--- a/tests/slomode.el
+++ b/tests/slomode.el
@@ -1,32 +1,23 @@
 ;; this is a temporary file for testing slowdown issues.
-;; edit the variable test-case to 1,2 or 3, then run:
-;; emacs -Q -l slomode-redux-1.el <your sample file>
+;; edit the variable test-case to 1 or 2, then run:
+;; emacs -Q -l slomode.el <your sample file>
 ;; start the test with ‘M-x slo-mode’.
 (require 'org)
 
-(defvar test-case 1
+(defvar test-case 2
   "Check one of several plausible test cases.")
 
-(setq inhibit-compacting-font-caches nil)
+(if (= test-case 1)
+    (setq how-kw 'prepend)
+  (setq how-kw nil))
 
-(cond ((= test-case 1)
-       ;; same as 2 and 3 combined
-       (defun slo-compose ()
-         (compose-region (match-beginning 1) (match-end 1) ?◉)
-         'slo-face))
-      ((= test-case 2)
-       (defun slo-compose ()
-         'slo-face))
-      ((= test-case 3)
-       (defun slo-compose ()
-         (compose-region (match-beginning 1) (match-end 1) ?◉)
-         nil)))
+(setq inhibit-compacting-font-caches nil)
 
 (defface slo-face '((default . nil)) "Sloface")
 
 (defvar slo-keywords
-  '(("^\\**\\(?1:\\*\\) "
-     (1 (slo-compose) prepend))))
+  `(("^\\**\\(?1:\\*\\) "
+     (1 slo-face ,how-kw))))
 
 (defun slo-fontify-buffer ()
   "Fontify the buffer."
@@ -36,13 +27,6 @@
       (font-lock-ensure)
       (font-lock-flush))))
 
-(defun un-slo ()
-  (save-excursion
-    (goto-char (point-min))
-    (while (re-search-forward "^\\*+ " nil t)
-      (decompose-region (match-beginning 0) (match-end 0)))))
-
-
 ;;; Mode commands
 ;;;###autoload
 (define-minor-mode slo-mode
@@ -55,5 +39,4 @@
     (slo-fontify-buffer))
    (t
     (font-lock-remove-keywords nil slo-keywords)
-    (un-slo)
     (slo-fontify-buffer))))