diff options
| -rw-r--r-- | lisp/woman.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index e46240884f8..9f47329fd3b 100644 --- a/lisp/woman.el +++ b/lisp/woman.el | |||
| @@ -3846,10 +3846,9 @@ v alters page foot left; m alters page head center. | |||
| 3846 | (insert " -- ") | 3846 | (insert " -- ") |
| 3847 | (woman-forward-arg 'unquote 'concat) | 3847 | (woman-forward-arg 'unquote 'concat) |
| 3848 | ;; Delete repeated arguments: | 3848 | ;; Delete repeated arguments: |
| 3849 | (if (string-match (buffer-substring here (point)) | 3849 | (if (string-match (regexp-quote (buffer-substring here (point))) |
| 3850 | (buffer-substring start here)) | 3850 | (buffer-substring start here)) |
| 3851 | (delete-region here (point))) | 3851 | (delete-region here (point))))) |
| 3852 | )) | ||
| 3853 | ;; Embolden heading (point is at end of heading): | 3852 | ;; Embolden heading (point is at end of heading): |
| 3854 | (woman-set-face | 3853 | (woman-set-face |
| 3855 | (save-excursion (beginning-of-line) (point)) (point) 'woman-bold) | 3854 | (save-excursion (beginning-of-line) (point)) (point) 'woman-bold) |