branch: elpa/paredit
commit 05b2cad7dfa9481aef5a9097a2225849d7d5d078
Author: Taylor R Campbell <[email protected]>
Commit: Taylor R Campbell <[email protected]>
Generalize `paredit-kill' to work inside any string-like object.
Ignore-this: 16b21bd8bad54f6eeee9996665524b8a
Previously `paredit-kill-line-in-string' expected the string to end
with `"'; now it expects the string to end with any character whose
syntax is a string delimiter.
darcs-hash:20100918150630-00fcc-99d491db437f3395415c2456354e0c34273c2b0b
---
paredit.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/paredit.el b/paredit.el
index 4fa5c7d..550de92 100644
--- a/paredit.el
+++ b/paredit.el
@@ -1357,8 +1357,7 @@ With a numeric prefix argument N, do `kill-line' that
many times."
(if (paredit-in-string-escape-p)
(backward-char))
(let ((beginning (point)))
- (while (not (or (eolp)
- (eq (char-after) ?\" )))
+ (while (not (or (eolp) (eq ?\" (char-syntax (char-after)))))
(forward-char)
;; Skip past escaped characters.
(if (eq (char-before) ?\\ )
