# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1188760687 0
# Node ID 7191ad0f348d8d82a4c8774d5294d1562c823327
# Parent  1c6c7a9e1ef9b775027c165f6507dac76d767e40
(lisp-indent-offset): Make defcustom.  Add `safe-local-variable' property.
(lisp-body-indent): Likewise.

diff -r 1c6c7a9e1ef9 -r 7191ad0f348d lisp/emacs-lisp/lisp-mode.el
--- 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))