Mercurial > emacs

comparison lisp/mail/mail-extr.el @ 19006:8a0265f609ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 92913b38a478
children 5458685d9a67
comparison
equal deleted inserted replaced
19005:b07745668138 19006:8a0265f609ff
1454 ;; Initialize for this iteration of the loop. 1454 ;; Initialize for this iteration of the loop.
1455 (skip-chars-forward "^({[\"'`") 1455 (skip-chars-forward "^({[\"'`")
1456 (let ((cbeg (point))) 1456 (let ((cbeg (point)))
1457 (set-syntax-table mail-extr-address-text-comment-syntax-table) 1457 (set-syntax-table mail-extr-address-text-comment-syntax-table)
1458 (cond ((memq (following-char) '(?\' ?\`)) 1458 (cond ((memq (following-char) '(?\' ?\`))
1459 (search-forward "'" nil t 1459 (search-forward "'" nil 'move
1460 (if (eq ?\' (following-char)) 2 1))) 1460 (if (eq ?\' (following-char)) 2 1)))
1461 (t 1461 (t
1462 (or (mail-extr-safe-move-sexp 1) 1462 (or (mail-extr-safe-move-sexp 1)
1463 (goto-char (point-max))))) 1463 (goto-char (point-max)))))
1464 (set-syntax-table mail-extr-address-text-syntax-table) 1464 (set-syntax-table mail-extr-address-text-syntax-table)