(lisp-indent-function): Look for either

lisp-indent-hook or lisp-indent-function property.
This commit is contained in:
Richard M. Stallman 1993-06-11 07:00:05 +00:00
parent 34fc388296
commit 2dab780287

View file

@ -414,7 +414,8 @@ of the start of the containing expression."
(let ((function (buffer-substring (point)
(progn (forward-sexp 1) (point))))
method)
(setq method (get (intern-soft function) 'lisp-indent-function))
(setq method (or (get (intern-soft function) 'lisp-indent-function)
(get (intern-soft function) 'lisp-indent-hook)))
(cond ((or (eq method 'defun)
(and (null method)
(> (length function) 3)