(woman2-TH): Quote argument to string-match.

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/woman.el b/lisp/woman.el
index 595bb6cc9a1..01e4f223656 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -3810,10 +3810,10 @@ v alters page foot left; m alters page head center.
       (insert " -- ")
       (woman-forward-arg 'unquote 'concat)
       ;; Delete repeated arguments:
-      (if (string-match (buffer-substring here (point))
+      (if (string-match (regexp-quote
+                         (buffer-substring here (point)))
                         (buffer-substring start here))
-          (delete-region here (point)))
-      ))
+          (delete-region here (point)))))
   ;; Embolden heading (point is at end of heading):
   (woman-set-face
    (save-excursion (beginning-of-line) (point)) (point) 'woman-bold)