# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1207881024 0
# Node ID 564007cfcf46b438b6dc3f0dcd5c050c4b84f46e
# Parent  01a6307d740cfcf3cc75d35bc974ea332804e02a
(woman2-TH): Undo last change.  Use string-equal instead of
string-match.

diff -r 01a6307d740c -r 564007cfcf46 lisp/woman.el
--- a/lisp/woman.el	Fri Apr 11 02:30:06 2008 +0000
+++ b/lisp/woman.el	Fri Apr 11 02:30:24 2008 +0000
@@ -3846,7 +3846,7 @@
       (insert " -- ")
       (woman-forward-arg 'unquote 'concat)
       ;; Delete repeated arguments:
-      (if (string-match (regexp-quote (buffer-substring here (point)))
+      (if (string-equal (buffer-substring here (point))
 			(buffer-substring start here))
 	  (delete-region here (point)))))
   ;; Embolden heading (point is at end of heading):