Mercurial > emacs
diff lisp/emacs-lisp/lisp-mode.el @ 90984:a1be62cbd32a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 814-815)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-232
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 18 Jul 2007 22:15:15 +0000 |
parents | a66921565bcb d330cbad60ac |
children | f55f9811f5d7 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Mon Jul 16 19:26:14 2007 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Wed Jul 18 22:15:15 2007 +0000 @@ -932,6 +932,16 @@ (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))