bug#3405: 23.0.91; indentation w/ comma in lisp-mode

[Joe Corneli]

Please run `indent-region' on the following form
in Lisp mode -- and observe that the nicely-lined-up
forms in the `:values' field get skewed.

        (insert-records :into [places]
                        :attributes '(code ref)
                        :values `(,(first data)
                                  ,(second data)))

In GNU Emacs 23.0.91.1 (i386-apple-darwin8.11.1, GTK+ Version 2.14.7)
 of 2009-03-31 on planet-maths-computer.local
Windowing system distributor `The XFree86 Project, Inc', version 11.0.40400000
configured using `configure  '--infodir=${prefix}/share/info'
'--mandir=${prefix}/share/man' '--libexecdir=${prefix}/lib''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  value of $XMODIFIERS: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Lisp

Minor modes in effect:
  shell-dirtrack-mode: t
  show-paren-mode: t
  slime-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: 1

Recent input:
r e SPC c h a n <backspace> c e <backspace> <backspace>
s e , SPC w e SPC s h o u l d SPC p r o v i d e <return>
s o m e SPC s o r t SPC o f SPC r e g r e s s i o n
SPC t e s t i n g SPC s u i t e C-a M-f M-f <C-left>
<C-backspace> a n d SPC m a i n t a i n SPC <C-delete>
<C-delete> a C-e . C-x C-s M-b M-e C-x C-s M-v M-v
M-v M-v M-v M-v M-v M-v M-v M-v M-v M-v M-v M-v M-v
M-v M-v M-v M-v C-p C-p C-p C-p C-p C-p C-p C-p C-p
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p
C-p C-p C-p C-p C-p C-p C-p C-n C-n C-n <C-right> <C-left>
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up>
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up>
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up>
<up> <up> <up> <up> M-v M-v M-v M-v M-v M-v M-v M-v
M-v M-v M-v M-v M-v M-v M-v M-v M-v M-v M-v M-v M-v
M-v M-v M-v M-v M-v M-v M-v M-v C-x C-s C-z <C-up>
<return> <C-up> <return> <switch-frame> C-s i n t o
SPC [ p l <down> <down> <down> <tab> <tab> <up> <tab>
<down> <tab> <backspace> C-e C-x C-s <tab> <up> <tab>
<down> C-a <tab> <backspace> C-x C-s <down> <down>
<down> C-e C-SPC <C-left> C-M-\ <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <delete>
C-x C-s <up> <up> <up> C-SPC <C-right> M-w <tab> C-/
C-x C-s M-x r e p o r <tab> m <backspace> b <tab>
<return>

Recent messages:
Saving file /Users/planetmath/arxana.tex...
Wrote /Users/planetmath/arxana.tex
Saving file /Users/planetmath/arxana.tex...
Wrote /Users/planetmath/arxana.tex
Mark set
Saving file /Users/planetmath/arxana.tex...
Wrote /Users/planetmath/arxana.tex
Mark set
Undo!
(No changes need to be saved)