       (indent-according-to-mode)
       (setq n (current-indentation))
       (beginning-of-line)
-      (kill-line))
+      (delete-region (point) (line-end-position)))
     n))
 
 (defun bde-align-class-members ()

    (backward-up-list)
    (push-mark)
    (forward-list)
    (kill-region (region-beginning) (region-end))
    (insert
     (with-temp-buffer
       (insert "(")


(defun bde-align-funcall ()
  "Assuming the cursor is within the list of arguments of a
  function call, align the arguments according the the BDE
  style. It puts one argument per line and aligns to the right."
  (interactive)
  ;; Get the argument string (remove the external parentheses)
  (let ((arglist (thing-at-point 'list)))
