 ;;; -------------- -------------------------------------------------------
 ;;; C-c =          `bde-insert-define-class-header'
 ;;; C-c -          `bde-insert-declare-class-header'
-;;; C->            `bde-aligh-right-after-point': align text after cursor
-;;;                to the right (for // RETURN or // LOCK)
+;;; C->            `bde-aligh-right-after-point': align text after point
+;;;                to the right. If line ends with a comment such as // RETURN
+;;;                or // LOCK, align the comment.
 ;;; C-c i          `bde-insert-redundant-include-guard'
 ;;; C-c a          `bde-align-functions-arguments'
+;;; C-c f          `bde-align-funcall'
 ;;;
 ;;; Aligh right after point:
 ;;; Before (cursor anywhere after semi-colon):

                (return nil)))
         (setq erase-hint nil))))))

(defun bde-insert-define-class-header ()
  "Mini-mode for creating a BDE-style class definition
header (e.g. ===). Exit the mode with enter, or anything that is
not a character, backspace, delete, left or right."
  (interactive)
  (bde-insert-class-header ?=))

(defun bde-insert-declare-class-header ()
  "Mini-mode for creating a BDE-style class implementation header (e.g. ---).

;;; After:
;;;     return x;                                     // RETURN
;;;
;;; Insert redundant include guard (cursor must be on the line, or region with
;;; one or more includes must be selected):
;;; Before:
;;;     #include <bsl_iostream.h>
;;; After:
