aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-06-11 07:00:05 +0000
committerRichard M. Stallman1993-06-11 07:00:05 +0000
commit2dab78028738c7c92c0b50c631a629e365efd5b1 (patch)
treeae4168e7c007a91ee4f67bc5807c6c0902b1922e
parent34fc3882966bc79b3d75238515f639dae480e0e7 (diff)
downloademacs-2dab78028738c7c92c0b50c631a629e365efd5b1.tar.gz
emacs-2dab78028738c7c92c0b50c631a629e365efd5b1.zip
(lisp-indent-function): Look for either
lisp-indent-hook or lisp-indent-function property.
-rw-r--r--lisp/emacs-lisp/lisp-mode.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index f7d29dff72c..f060563f175 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -414,7 +414,8 @@ of the start of the containing expression."
414 (let ((function (buffer-substring (point) 414 (let ((function (buffer-substring (point)
415 (progn (forward-sexp 1) (point)))) 415 (progn (forward-sexp 1) (point))))
416 method) 416 method)
417 (setq method (get (intern-soft function) 'lisp-indent-function)) 417 (setq method (or (get (intern-soft function) 'lisp-indent-function)
418 (get (intern-soft function) 'lisp-indent-hook)))
418 (cond ((or (eq method 'defun) 419 (cond ((or (eq method 'defun)
419 (and (null method) 420 (and (null method)
420 (> (length function) 3) 421 (> (length function) 3)