mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Chong Yidong 2008-04-11 02:24:15 +00:00
parent 0159b08c4e
commit e1cd9b5b4a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/woman.el
View File

@ -3846,10 +3846,9 @@ 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)