Mercurial > emacs

changeset 93986:e20062ee80fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(woman2-TH): Quote search string argument to string-match.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 11 Apr 2008 02:24:15 +0000
parents f2451ba59af5
children 01a6307d740c
files lisp/woman.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/woman.el	Fri Apr 11 02:23:57 2008 +0000
+++ b/lisp/woman.el	Fri Apr 11 02:24:15 2008 +0000
@@ -3846,10 +3846,9 @@
       (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)