Commit e1cd9b5b authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 0159b08c
...@@ -3846,10 +3846,9 @@ v alters page foot left; m alters page head center. ...@@ -3846,10 +3846,9 @@ v alters page foot left; m alters page head center.
(insert " -- ") (insert " -- ")
(woman-forward-arg 'unquote 'concat) (woman-forward-arg 'unquote 'concat)
;; Delete repeated arguments: ;; Delete repeated arguments:
(if (string-match (buffer-substring here (point)) (if (string-match (regexp-quote (buffer-substring here (point)))
(buffer-substring start here)) (buffer-substring start here))
(delete-region here (point))) (delete-region here (point)))))
))
;; Embolden heading (point is at end of heading): ;; Embolden heading (point is at end of heading):
(woman-set-face (woman-set-face
(save-excursion (beginning-of-line) (point)) (point) 'woman-bold) (save-excursion (beginning-of-line) (point)) (point) 'woman-bold)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment