From f8bf24c8fb45bf0b9919be61ee9b30caae53d782 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 9 Jul 2013 19:19:58 +0000 Subject: Allow slurping while in a character. --- paredit.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'paredit.el') diff --git a/paredit.el b/paredit.el index cfde830..6f88eef 100644 --- a/paredit.el +++ b/paredit.el @@ -2230,8 +2230,7 @@ If in a string, move the opening double-quote forward by one without altering any indentation or formatting." (interactive) (save-excursion - (cond ((or (paredit-in-comment-p) - (paredit-in-char-p)) + (cond ((paredit-in-comment-p) (error "Invalid context for slurping S-expressions.")) ((paredit-in-string-p) (paredit-forward-slurp-into-string)) @@ -2316,8 +2315,7 @@ If in a string, move the opening double-quote backward by one without altering any indentation or formatting." (interactive) (save-excursion - (cond ((or (paredit-in-comment-p) - (paredit-in-char-p)) + (cond ((paredit-in-comment-p) (error "Invalid context for slurping S-expressions.")) ((paredit-in-string-p) (paredit-backward-slurp-into-string)) -- cgit v1.2.1