From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 11 Apr 2008 02:24:15 +0000 (+0000)
Subject: (woman2-TH): Quote search string argument to string-match.
X-Git-Tag: emacs-pretest-23.0.90~6344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1cd9b5b4ad0777c88337fe5abb37e5e4bb0adcc;p=emacs.git

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

diff --git a/lisp/woman.el b/lisp/woman.el
index e46240884f8..9f47329fd3b 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -3846,10 +3846,9 @@ 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)