Re: Properly indenting a defun (sexp tips)

[Dieter Wilhelm]

Tim Johnson <tim@johnsons-web.com> writes:

> 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?

Not exactly a single one but place your cursor in the last line of the
defun and type 3 times M-^.

-- 
    Best wishes

    H. Dieter Wilhelm
    Darmstadt, Germany