diff options
| author | Chong Yidong | 2008-04-11 02:31:43 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-04-11 02:31:43 +0000 |
| commit | 42e1d5879b823083eae5e3da4b8b41e6e6b95394 (patch) | |
| tree | 3b607813969c476b32b49b1db0bfde01ee9aed96 | |
| parent | 8d0f1197e9a145cbf674e9e410247dc53daef02c (diff) | |
| download | emacs-42e1d5879b823083eae5e3da4b8b41e6e6b95394.tar.gz emacs-42e1d5879b823083eae5e3da4b8b41e6e6b95394.zip | |
(woman2-TH): Undo last change. Use string-equal instead of
string-match.
| -rw-r--r-- | lisp/woman.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index 01e4f223656..eca447d07bb 100644 --- a/lisp/woman.el +++ b/lisp/woman.el | |||
| @@ -3810,8 +3810,7 @@ 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 (regexp-quote | 3813 | (if (string-equal (buffer-substring here (point)) |
| 3814 | (buffer-substring here (point))) | ||
| 3815 | (buffer-substring start here)) | 3814 | (buffer-substring start here)) |
| 3816 | (delete-region here (point))))) | 3815 | (delete-region here (point))))) |
| 3817 | ;; Embolden heading (point is at end of heading): | 3816 | ;; Embolden heading (point is at end of heading): |