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

      (indent-according-to-mode)
      (setq n (current-indentation))
      (beginning-of-line)
      (delete-region (point) (line-end-position)))
    n))

(defun bde-align-class-members ()
