# HG changeset patch # User Chong Yidong # Date 1161910326 0 # Node ID c1427878fdcf987340f095d56bccb1c355558b55 # Parent f93751296dc3b6e9ecf7edcc5affc3765b268492 * emacs-lisp/cl-indent.el (lisp-indent-259): Fix last fix. diff -r f93751296dc3 -r c1427878fdcf lisp/emacs-lisp/cl-indent.el --- 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)