     (backward-up-list)
     (push-mark)
     (forward-list)
-    (kill-region (region-beginning) (region-end))
+    (delete-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. 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)))


(defun bde-align-functions-arguments ()
  "Assuming the cursor is within the argument list of a function
declaration or definition, align the type and variable names
according to the BDE style."
  (interactive)
  ;; Get a list of the arguments. Note that the external parentheses are included
  (let ((args (split-string (thing-at-point 'list) ","))
