Mercurial > emacs

changeset 73497:c1427878fdcf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* emacs-lisp/cl-indent.el (lisp-indent-259): Fix last fix.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 27 Oct 2006 00:52:06 +0000
parents f93751296dc3
children 7e38ba4d2476
files lisp/emacs-lisp/cl-indent.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-indent.el	Thu Oct 26 20:39:53 2006 +0000
+++ b/lisp/emacs-lisp/cl-indent.el	Fri Oct 27 00:52:06 2006 +0000
@@ -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)