[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-indent.el,v

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/10/27 00:52:06

Index: cl-indent.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/cl-indent.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- cl-indent.el        26 Oct 2006 20:39:53 -0000      1.48
+++ cl-indent.el        27 Oct 2006 00:52:06 -0000      1.49
@@ -373,7 +373,9 @@
                      ;; Too few elements in pattern.
                      (throw 'exit normal-indent)))
                 ((eq tem 'nil)
-                 (throw 'exit normal-indent))
+                (throw 'exit (if (consp normal-indent)
+                                 normal-indent
+                               (list normal-indent containing-form-start))))
                ((eq tem '&lambda)
                 (throw 'exit
                        (cond ((null p)