[O] C-k in visual line mode

[François Pinard]

Hi, Org people.

Let me suggest this tiny patch, so C-k does the proper thing in visual
line mode.

diff --git a/lisp/org.el b/lisp/org.el
index a8ac17d..2d0db0c 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -20491,7 +20491,8 @@ depending on context."
        (if (or (eq org-ctrl-k-protect-subtree 'error)
                (not (y-or-n-p "Kill hidden subtree along with headline? ")))
            (error "C-k aborted - would kill hidden subtree")))
-    (call-interactively 'kill-line))
+    (call-interactively
+     (if visual-line-mode 'kill-visual-line 'kill-line)))
    ((looking-at (org-re ".*?\\S-\\([ 
\t]+\\(:[[:alnum:address@hidden:]+:\\)\\)[ \t]*$"))
     (kill-region (point) (match-beginning 1))
     (org-set-tags nil t))


François