Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 90100:72cf6261961e
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-11
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-69
- miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-71
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-72
src/dispextern.h (xassert): Enable unconditionally.
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-73
- miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-81
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-82
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-12
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-13
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 06 Feb 2005 12:06:02 +0000 |
parents | f8a7a9ba3d08 d992bb330d29 |
children | 7e3f621f1dd4 |
comparison
equal
deleted
inserted
replaced
90099:fa9654493afb | 90100:72cf6261961e |
---|---|
879 If the current line is in a call to a Lisp function | 879 If the current line is in a call to a Lisp function |
880 which has a non-nil property `lisp-indent-function', | 880 which has a non-nil property `lisp-indent-function', |
881 that specifies how to do the indentation. The property value can be | 881 that specifies how to do the indentation. The property value can be |
882 * `defun', meaning indent `defun'-style; | 882 * `defun', meaning indent `defun'-style; |
883 * an integer N, meaning indent the first N arguments specially | 883 * an integer N, meaning indent the first N arguments specially |
884 like ordinary function arguments and then indent any further | 884 like ordinary function arguments and then indent any further |
885 aruments like a body; | 885 arguments like a body; |
886 * a function to call just as this function was called. | 886 * a function to call just as this function was called. |
887 If that function returns nil, that means it doesn't specify | 887 If that function returns nil, that means it doesn't specify |
888 the indentation. | 888 the indentation. |
889 | 889 |
890 This function also returns nil meaning don't specify the indentation." | 890 This function also returns nil meaning don't specify the indentation." |
891 (let ((normal-indent (current-column))) | 891 (let ((normal-indent (current-column))) |
892 (goto-char (1+ (elt state 1))) | 892 (goto-char (1+ (elt state 1))) |
893 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) | 893 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) |
919 (lisp-indent-defform state indent-point)) | 919 (lisp-indent-defform state indent-point)) |
920 ((integerp method) | 920 ((integerp method) |
921 (lisp-indent-specform method state | 921 (lisp-indent-specform method state |
922 indent-point normal-indent)) | 922 indent-point normal-indent)) |
923 (method | 923 (method |
924 (funcall method state indent-point))))))) | 924 (funcall method indent-point state))))))) |
925 | 925 |
926 (defvar lisp-body-indent 2 | 926 (defvar lisp-body-indent 2 |
927 "Number of columns to indent the second line of a `(def...)' form.") | 927 "Number of columns to indent the second line of a `(def...)' form.") |
928 | 928 |
929 (defun lisp-indent-specform (count state indent-point normal-indent) | 929 (defun lisp-indent-specform (count state indent-point normal-indent) |