mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

(lisp-indent-offset): Make defcustom. Add `safe-local-variable' property.

Browse source 
(lisp-body-indent): Likewise.
This commit is contained in:
Richard M. Stallman 2007-09-02 19:20:04 +00:00
parent d0162c1097
commit f2a92f2af5
2 changed files with 18 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emacs-lisp/lisp-mode.el
View file

@ -783,8 +783,13 @@ which see."
(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 @@ This function also returns nil meaning don't specify the indentation."
(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))