Mercurial > hg > xemacs-beta

comparison lisp/modes/cl-indent.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents ac2d302a0011
children 489f57a838ef
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
48 ;; baz) 48 ;; baz)
49 ;; Need something better than &rest for such cases 49 ;; Need something better than &rest for such cases
50 50
51 ;;; Code: 51 ;;; Code:
52 52
53 (defvar lisp-indent-maximum-backtracking 3 53 (defgroup lisp-indent nil
54 "Indentation in Lisp"
55 :group 'lisp)
56
57
58 (defcustom lisp-indent-maximum-backtracking 3
54 "*Maximum depth to backtrack out from a sublist for structured indentation. 59 "*Maximum depth to backtrack out from a sublist for structured indentation.
55 If this variable is 0, no backtracking will occur and forms such as flet 60 If this variable is 0, no backtracking will occur and forms such as flet
56 may not be correctly indented.") 61 may not be correctly indented."
57 62 :type 'integer
58 (defvar lisp-tag-indentation 1 63 :group 'lisp-indent)
64
65 (defcustom lisp-tag-indentation 1
59 "*Indentation of tags relative to containing list. 66 "*Indentation of tags relative to containing list.
60 This variable is used by the function `lisp-indent-tagbody'.") 67 This variable is used by the function `lisp-indent-tagbody'."
61 68 :type 'integer
62 (defvar lisp-tag-body-indentation 3 69 :group 'lisp-indent)
70
71 (defcustom lisp-tag-body-indentation 3
63 "*Indentation of non-tagged lines relative to containing list. 72 "*Indentation of non-tagged lines relative to containing list.
64 This variable is used by the function `lisp-indent-tagbody' to indent normal 73 This variable is used by the function `lisp-indent-tagbody' to indent normal
65 lines (lines without tags). 74 lines (lines without tags).
66 The indentation is relative to the indentation of the parenthesis enclosing 75 The indentation is relative to the indentation of the parenthesis enclosing
67 the special form. If the value is t, the body of tags will be indented 76 the special form. If the value is t, the body of tags will be indented
68 as a block at the same indentation as the first s-expression following 77 as a block at the same indentation as the first s-expression following
69 the tag. In this case, any forms before the first tag are indented 78 the tag. In this case, any forms before the first tag are indented
70 by `lisp-body-indent'.") 79 by `lisp-body-indent'."
80 :type 'integer
81 :group 'lisp-indent)
71 82
72 83
73 ;;;###autoload 84 ;;;###autoload
74 (defun common-lisp-indent-function (indent-point state) 85 (defun common-lisp-indent-function (indent-point state)
75 (let ((normal-indent (current-column))) 86 (let ((normal-indent (current-column)))