Mercurial > emacs
changeset 78730:7191ad0f348d
(lisp-indent-offset): Make defcustom. Add `safe-local-variable' property.
(lisp-body-indent): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 02 Sep 2007 19:18:07 +0000 |
| parents | 1c6c7a9e1ef9 |
| children | a7db4da11c44 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Sun Sep 02 17:36:05 2007 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Sun Sep 02 19:18:07 2007 +0000 @@ -783,8 +783,13 @@ (let ((comment-start nil) (comment-start-skip nil)) (do-auto-fill)))))) -(defvar lisp-indent-offset nil - "If non-nil, indent second line of expressions that many more columns.") +(defcustom lisp-indent-offset nil + "If non-nil, indent second line of expressions that many more columns." + :group 'lisp + :type '(choice nil integer)) +(put 'lisp-body-indent 'safe-local-variable + (lambda (x) (or (null x) (integerp x)))) + (defvar lisp-indent-function 'lisp-indent-function) (defun lisp-indent-line (&optional whole-exp) @@ -1024,8 +1029,11 @@ (method (funcall method indent-point state))))))) -(defvar lisp-body-indent 2 - "Number of columns to indent the second line of a `(def...)' form.") +(defcustom lisp-body-indent 2 + "Number of columns to indent the second line of a `(def...)' form." + :group 'lisp + :type 'integer) +(put 'lisp-body-indent 'safe-local-variable 'integerp) (defun lisp-indent-specform (count state indent-point normal-indent) (let ((containing-form-start (elt state 1))