Subject: bug#17183: can't insert a quote pair before another

From: Stefan Monnier <[email-masked]>
Date: Sun, 06 Apr 2014 08:39:26 -0400

> +             (unwind-protect
> +                 (progn
> +                   (delete-char -1)
> +                   (not (nth 3 (syntax-ppss))))
> +               (insert-char char)))

Yuck!  Why not (save-excursion (not (nth 3 (syntax-ppss (-1 (point))))))?

        Stefan