From: Gerd Moellmann Date: Fri, 15 Mar 2002 08:57:55 +0000 (+0000) Subject: (common-lisp-loop-part-indentation): X-Git-Tag: ttn-vms-21-2-B4~16163 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93097873576ec630784db76386e4edc2a7307d9a;p=emacs.git (common-lisp-loop-part-indentation): Fix simple loop indentation. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fe6b959481f..fef8cc68bc9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-03-15 Gerd Moellmann + + * emacs-lisp/cl-indent.el (common-lisp-loop-part-indentation): + Fix simple loop indentation. + 2002-03-14 Miles Bader * net/rlogin.el (rlogin-mode): Use `define-derived-mode'. diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index 6b40051193e..18149901a01 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -127,7 +127,7 @@ If nil, indent backquoted lists as data, i.e., like quoted lists." (goto-char indent-point) (beginning-of-line) (cond ((not (extended-loop-p (elt state 1))) - lisp-simple-loop-indentation) + (+ loop-indentation lisp-simple-loop-indentation)) ((looking-at "^\\s-*\\(:?\\sw+\\|;\\)") (+ loop-indentation lisp-loop-keyword-indentation)) (t