Mercurial > emacs
changeset 19006:8a0265f609ff
(mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 27 Jul 1997 01:54:56 +0000 |
| parents | b07745668138 |
| children | 1606d5205bbc |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el Sun Jul 27 00:07:08 1997 +0000 +++ b/lisp/mail/mail-extr.el Sun Jul 27 01:54:56 1997 +0000 @@ -1456,7 +1456,7 @@ (let ((cbeg (point))) (set-syntax-table mail-extr-address-text-comment-syntax-table) (cond ((memq (following-char) '(?\' ?\`)) - (search-forward "'" nil t + (search-forward "'" nil 'move (if (eq ?\' (following-char)) 2 1))) (t (or (mail-extr-safe-move-sexp 1)