                 (if (string= (match-string 1) "<")
                     (setq level (+ level 1))
                   (setq level (- level 1)))
-              (setq level 0))
-            (message (format "TODO: debug only - delete: point %s level %s" (point) level))))
+              (setq level 0))))
         (forward-line))
       (when (re-search-forward "^\\(class\\|struct\\) " (point-at-eol) t)
         (concat (match-string 1) " " (current-word))))))


;;; BDE's right style comments such as // RETURN or // LOCK

(defun bde-aligh-right ()
  "Set the right amount of spaces around the point so the text
  after point is right-aligned (for things such as // RETURN). It
  works even if point is in a C++ comment."

  (move-end-of-line nil))

;;; Ctrl-> to right-aligh the text after point
(global-set-key [(control >)] 'bde-align-right)


