From 460254d20624057f8ededfeb822891492c908c66 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 7 Apr 2013 16:32:19 +0000 Subject: Fix paredit-doublequote inside a string escape. --- paredit.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'paredit.el') diff --git a/paredit.el b/paredit.el index 3ad7f72..fcf50b7 100644 --- a/paredit.el +++ b/paredit.el @@ -875,10 +875,11 @@ If in a character literal, do nothing. This prevents accidentally delimiter unintentionally." (interactive "P") (cond ((paredit-in-string-p) - (if (eq (cdr (paredit-string-start+end-points)) - (point)) - (forward-char) ; We're on the closing quote. - (insert ?\\ ?\" ))) + (if (eq (point) (- (paredit-enclosing-string-end) 1)) + (forward-char) ; Just move past the closing quote. + ;; Don't split a \x into an escaped backslash and a string end. + (if (paredit-in-string-escape-p) (forward-char)) + (insert ?\\ ?\" ))) ((paredit-in-comment-p) (insert ?\" )) ((not (paredit-in-char-p)) -- cgit v1.2.1