summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTaylor R Campbell <campbell@mumble.net>2010-09-18 15:06:30 +0000
committerTaylor R Campbell <campbell@mumble.net>2010-09-18 15:06:30 +0000
commit05b2cad7dfa9481aef5a9097a2225849d7d5d078 (patch)
tree3bbac79e22c2a8e2f0633578c66f12a7ddd32cf2
parent90c7eda317d3633b3c59ac45ac926f5b4a6fe363 (diff)
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
-rw-r--r--paredit.el3
1 files changed, 1 insertions, 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) ?\\ )