(calculate-lisp-indent): In the

case of alignment under a constant symbol, find and consider
the sexp actually at indentation to be the "last sexp".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b6a9389a734b71c17528036502ec415aaed88b62..a37a2b0a6589662741edb3da68912db752124f38 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-21  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+       * emacs-lisp/lisp-mode.el (calculate-lisp-indent): In the
+       case of alignment under a constant symbol, find and consider
+       the sexp actually at indentation to be the "last sexp".
+
 2007-07-20  Eli Zaretskii  <eliz@gnu.org>
 
        * makefile.w32-in (install-lisp-SH, install-lisp-CMD): New targets.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 374d3ae2327e90ec06c00ad9f6a2d41a8bdf5b26..3160af5d80d42f311c8897caf3fd7450f6819bdf 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -932,6 +932,16 @@ is the buffer position of the start of the containing expression."
                        (goto-char indent-point)
                        (skip-chars-forward " \t")
                        (looking-at ":"))
+                     ;; The last sexp may not be at the indentation
+                     ;; where it begins, so find that one, instead.
+                     (save-excursion
+                       (goto-char calculate-lisp-indent-last-sexp)
+                       (while (and (not (looking-back "^[ \t]*"))
+                                   (or (not containing-sexp)
+                                       (< (1+ containing-sexp) (point))))
+                         (forward-sexp -1)
+                         (backward-prefix-chars))
+                       (setq calculate-lisp-indent-last-sexp (point)))
                      (> calculate-lisp-indent-last-sexp
                         (save-excursion
                           (goto-char (1+ containing-sexp))