Properly indenting a defun (sexp tips)

[Tim Johnson <tim@johnsons-web.com>]

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