(lisp-indent-function): Fix bug:

When delegating, order args in the funcall correctly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e444165..625e33d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-01  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * emacs-lisp/lisp-mode.el (lisp-indent-function): Fix bug:
+       When delegating, order args in the funcall correctly.
+
 2005-02-01  Thien-Thi Nguyen  <ttn@gnu.org>
 
        * emacs-lisp/lisp-mode.el (lisp-indent-function): Doc fix.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 6548a70..6b5c0b1 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -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.")