(lisp-indent-259): Indentation fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e57e434a901c2a62284ab499469e1d16e6658cd3..a05a68d50906337c3faa8a44d35d25578be5f2a4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-02-17  Gerd Moellmann  <gerd@gnu.org>
 
+       * emacs-lisp/cl-indent.el (lisp-indent-259): Indentation fix.
+
        * progmodes/pascal.el (pascal-mode-syntax-table): Change syntax
        of `*' to handle `(* ... *)' comments.
 

diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index 11416ae532eb98846444db82e286e5ba95476c8d..2b5ef3420c400f6b3142edcc9d0f056bbf0b3e84 100644 (file)
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -241,15 +241,16 @@ by `lisp-body-indent'."
           (setq tem (car method))
 
           (or (eq tem 'nil)             ;default indentation
-          (eq tem '&lambda)     ;lambda list
+             (eq tem '&lambda)         ;lambda list
               (and (eq tem '&body) (null (cdr method)))
               (and (eq tem '&rest)
-               (consp (cdr method)) (null (cddr method)))
+                  (consp (cdr method))
+                  (null (cddr method)))
               (integerp tem)            ;explicit indentation specified
               (and (consp tem)          ;destructuring
                    (eq (car tem) '&whole)
-               (or (symbolp (cadr tem))
-                   (integerp (cadr tem))))
+                  (or (symbolp (cadr tem))
+                      (integerp (cadr tem))))
               (and (symbolp tem)        ;a function to call to do the work.
                    (null (cdr method)))
               (lisp-indent-report-bad-format method))