diff options
| -rw-r--r-- | lisp/woman.el | 6 |
1 files 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. | |||
| 3810 | (insert " -- ") | 3810 | (insert " -- ") |
| 3811 | (woman-forward-arg 'unquote 'concat) | 3811 | (woman-forward-arg 'unquote 'concat) |
| 3812 | ;; Delete repeated arguments: | 3812 | ;; Delete repeated arguments: |
| 3813 | (if (string-match (buffer-substring here (point)) | 3813 | (if (string-match (regexp-quote |
| 3814 | (buffer-substring here (point))) | ||
| 3814 | (buffer-substring start here)) | 3815 | (buffer-substring start here)) |
| 3815 | (delete-region here (point))) | 3816 | (delete-region here (point))))) |
| 3816 | )) | ||
| 3817 | ;; Embolden heading (point is at end of heading): | 3817 | ;; Embolden heading (point is at end of heading): |
| 3818 | (woman-set-face | 3818 | (woman-set-face |
| 3819 | (save-excursion (beginning-of-line) (point)) (point) 'woman-bold) | 3819 | (save-excursion (beginning-of-line) (point)) (point) 'woman-bold) |