Commit 2dab7802 authored by Richard M. Stallman's avatar Richard M. Stallman

(lisp-indent-function): Look for either

lisp-indent-hook or lisp-indent-function property.
parent 34fc3882
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment