mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop.

Browse source
This commit is contained in:
Richard M. Stallman 1997-07-27 01:54:56 +00:00
parent 9f993a1044
commit b9c22adf8a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/mail/mail-extr.el
View file

@ -1456,7 +1456,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
(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)