# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1207880848 0
# Node ID 52eeccd048ad722d527fc595c2851c5129530cbe
# Parent  4601f7347791f36433ffc2ef8b5f40a6b0027d9c
(woman2-TH): Quote argument to string-match.

diff -r 4601f7347791 -r 52eeccd048ad lisp/woman.el
--- a/lisp/woman.el	Fri Apr 11 02:27:09 2008 +0000
+++ b/lisp/woman.el	Fri Apr 11 02:27:28 2008 +0000
@@ -3810,10 +3810,10 @@
       (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)