Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 3638:45169f86d3a4
(lisp-indent-function): Look for either
lisp-indent-hook or lisp-indent-function property.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 11 Jun 1993 07:00:05 +0000 |
| parents | 507f64624555 |
| children | 40b068fb4c37 |
comparison
equal
deleted
inserted
replaced
| 3637:6ac165163a9b | 3638:45169f86d3a4 |
|---|---|
| 412 (backward-prefix-chars) | 412 (backward-prefix-chars) |
| 413 (current-column)) | 413 (current-column)) |
| 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) |
| 421 (string-match "\\`def" function))) | 422 (string-match "\\`def" function))) |
| 422 (lisp-indent-defform state indent-point)) | 423 (lisp-indent-defform state indent-point)) |