mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 13:10:57 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Chong Yidong 2008-04-11 02:27:28 +00:00
parent d86c6d7dcd
commit 95579c3e1d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/woman.el
View file

@ -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)