From 95579c3e1d752a2bed7cfda4c3c783b07bacf574 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 11 Apr 2008 02:27:28 +0000 Subject: [PATCH] (woman2-TH): Quote argument to string-match. --- lisp/woman.el | 6 +++--- 1 file 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) -- 2.11.4.GIT