[nongnu] elpa/paredit d265584 045/224: Fix `paredit-kill' on whitespace character literal with margin comment.

[ELPA Syncer]

branch: elpa/paredit
commit d265584f55daf7f0a5ad7e8b866a2d1e8ecd60c5
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    Fix `paredit-kill' on whitespace character literal with margin comment.
    
    Ignore-this: 83cd857a1c3155fc0f9c30e8dc680d9a
    
    Before (| is point, not character literal):
    
      #\|      ;foo
    =C-k=>
      #\|
    
    Note the dangling backslash: deleting it also deletes the line break.
    
    After:
    
      #\|      ;foo
    =C-k=>
      #|
    
    darcs-hash:20100918151900-00fcc-d375fe5ced8edfb3fce71e189acd9166800ec0d5
---
 paredit.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/paredit.el b/paredit.el
index c4e19f3..55c5eef 100644
--- a/paredit.el
+++ b/paredit.el
@@ -1339,12 +1339,15 @@ With a numeric prefix argument N, do `kill-line' that 
many times."
          (kill-line (if (integerp argument) argument 1)))
         ((paredit-in-string-p)
          (paredit-kill-line-in-string))
-        ((or (paredit-in-comment-p)
-             (save-excursion
-               (paredit-skip-whitespace t (point-at-eol))
-               (or (eq (char-after) ?\; )
-                   (eolp))))
+        ((paredit-in-comment-p)
+         (kill-line))
+        ((save-excursion
+           (paredit-skip-whitespace t (point-at-eol))
+           (or (eq (char-after) ?\; )
+               (eolp)))
          ;** Be careful about trailing backslashes.
+         (if (paredit-in-char-p)
+             (backward-char))
          (kill-line))
         (t (paredit-kill-sexps-on-line))))