procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lisp-indent-offset): Fix safe-local-variable property.

Browse source 
(lisp-indent-function): Make it a defcustom.
This commit is contained in:
Glenn Morris 2009-06-22 06:24:32 +00:00
parent ec7c992608
commit 3fde45afdd
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2009-06-22 Glenn Morris <rgm@gnu.org>
* emacs-lisp/lisp-mode.el (lisp-indent-offset): Fix safe-local-variable
property.
(lisp-indent-function): Make it a defcustom.
2009-06-21 Nick Roberts <nickrob@snap.net.nz> 2009-06-21 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el: Replace with ... * progmodes/gdb-ui.el: Replace with ...

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

@ -877,15 +877,17 @@ which see."
"If non-nil, indent second line of expressions that many more columns." "If non-nil, indent second line of expressions that many more columns."
:group 'lisp :group 'lisp
:type '(choice (const nil) integer)) :type '(choice (const nil) integer))
(put 'lisp-body-indent 'safe-local-variable (put 'lisp-indent-offset 'safe-local-variable
(lambda (x) (or (null x) (integerp x)))) (lambda (x) (or (null x) (integerp x))))
(defvar lisp-indent-function 'lisp-indent-function (defcustom lisp-indent-function 'lisp-indent-function
"A function to be called by `calculate-lisp-indent'. "A function to be called by `calculate-lisp-indent'.
It indents the arguments of a Lisp function call. This function It indents the arguments of a Lisp function call. This function
should accept two arguments: the indent-point, and the should accept two arguments: the indent-point, and the
`parse-partial-sexp' state at that position. One option for this `parse-partial-sexp' state at that position. One option for this
function is `common-lisp-indent-function'.") function is `common-lisp-indent-function'."
:type 'function
:group 'lisp)
(defun lisp-indent-line (&optional whole-exp) (defun lisp-indent-line (&optional whole-exp)
"Indent current line as Lisp code. "Indent current line as Lisp code.