diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-11-21 22:58:38 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-11-21 22:58:38 +0100 |
| commit | 9c34a34446474b0f4bd864d96d95f1faee2e3686 (patch) | |
| tree | 25a2aa40d0ac697b1c9f235499fa47a184dafd5a /lisp/emacs-lisp | |
| parent | 16c1ad08dc0899e6d88971cb08ddc5d6c8fbccef (diff) | |
| download | emacs-9c34a34446474b0f4bd864d96d95f1faee2e3686.tar.gz emacs-9c34a34446474b0f4bd864d96d95f1faee2e3686.tar.bz2 emacs-9c34a34446474b0f4bd864d96d95f1faee2e3686.zip | |
Tell the caller that the next line needs recomputation, even though it doesn't start a sexp.
Fixes: debbugs:10094
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index 287bb531538..81af2030ebe 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -159,12 +159,16 @@ is set to `defun'.") (current-column)))) (goto-char indent-point) (beginning-of-line) - (cond ((not (extended-loop-p (elt state 1))) - (+ loop-indentation lisp-simple-loop-indentation)) - ((looking-at "^\\s-*\\(:?\\sw+\\|;\\)") - (+ loop-indentation lisp-loop-keyword-indentation)) - (t - (+ loop-indentation lisp-loop-forms-indentation))))) + (list + (cond ((not (extended-loop-p (elt state 1))) + (+ loop-indentation lisp-simple-loop-indentation)) + ((looking-at "^\\s-*\\(:?\\sw+\\|;\\)") + (+ loop-indentation lisp-loop-keyword-indentation)) + (t + (+ loop-indentation lisp-loop-forms-indentation))) + ;; Tell the caller that the next line needs recomputation, even + ;; though it doesn't start a sexp. + loop-indentation))) ;; Cf (info "(elisp)Specification List") |