 
 (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"
+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) ","))

    (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)))
