diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-11 07:00:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-11 07:00:05 +0000 |
| commit | 3defb5f195d76fafc5b22e6b1afd39ce066eabf2 (patch) | |
| tree | d5ad8814ec3602d8c3d2a6f3825aeac66df9f41e /lisp/emacs-lisp/lisp-mode.el | |
| parent | bdc808f43f6efae9c912ece637c2054834c1521c (diff) | |
| download | emacs-3defb5f195d76fafc5b22e6b1afd39ce066eabf2.tar.gz | |
(lisp-indent-function): Look for either
lisp-indent-hook or lisp-indent-function property.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 3 |
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." (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) |