(lisp-indent-function): Fix bug:

When delegating, order args in the funcall correctly.
This commit is contained in:
Thien-Thi Nguyen 2005-02-01 15:50:46 +00:00
parent b961eb0e98
commit cc08f5b253
2 changed files with 8 additions and 3 deletions

View file

@ -884,8 +884,8 @@ that specifies how to do the indentation. The property value can be
like ordinary function arguments and then indent any further
arguments like a body;
* a function to call just as this function was called.
If that function returns nil, that means it doesn't specify
the indentation.
If that function returns nil, that means it doesn't specify
the indentation.
This function also returns nil meaning don't specify the indentation."
(let ((normal-indent (current-column)))
@ -921,7 +921,7 @@ This function also returns nil meaning don't specify the indentation."
(lisp-indent-specform method state
indent-point normal-indent))
(method
(funcall method state indent-point)))))))
(funcall method indent-point state)))))))
(defvar lisp-body-indent 2
"Number of columns to indent the second line of a `(def...)' form.")