diff options
| author | Richard M. Stallman | 1993-06-11 07:00:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-11 07:00:05 +0000 |
| commit | 2dab78028738c7c92c0b50c631a629e365efd5b1 (patch) | |
| tree | ae4168e7c007a91ee4f67bc5807c6c0902b1922e | |
| parent | 34fc3882966bc79b3d75238515f639dae480e0e7 (diff) | |
| download | emacs-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.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." | |||
| 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) |