Properly indenting a defun (sexp tips)

[Tim Johnson]

I have a piece of code that looks like this:
;; code:
(defun mu-modifier-char ()
  "Create colorized modifier symbol"
  (interactive)
  (let (my-char)
        (save-excursion
          (backward-char 1)
          (setq my-char (char-at))
          (cond ((member my-char mu-modifiers)
                         (upcase my-char)
                         )
                        )
        )))
;; And I want it to look like this
(defun mu-modifier-char ()
  "Create colorized modifier symbol"
  (interactive)
  (let (my-char)
        (save-excursion
          (backward-char 1)
          (setq my-char (char-at))
          (cond ((member my-char mu-modifiers)
                         (upcase my-char))))))
;; that is, properly indented per emacs-lisp-mode

Is there a single command to do this?
If not, being pointed to pertinent documentation
and URLs to discussions on this topic would be
most welcome.

Thanks
tim

-- 
Tim Johnson <tim@johnsons-web.com>
      http://www.alaska-internet-solutions.com