Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 214:a1430f8459e5
*** empty log message ***
author | Brian Preble <rassilon@gnu.org> |
---|---|
date | Tue, 12 Mar 1991 19:57:55 +0000 |
parents | 9fa9f6071bc1 |
children | 287cf3ae183a |
comparison
equal
deleted
inserted
replaced
213:9fa9f6071bc1 | 214:a1430f8459e5 |
---|---|
381 lisp-indent-function | 381 lisp-indent-function |
382 (not retry)) | 382 (not retry)) |
383 (or (funcall lisp-indent-function indent-point state) | 383 (or (funcall lisp-indent-function indent-point state) |
384 normal-indent)) | 384 normal-indent)) |
385 (t | 385 (t |
386 normal-indent))))))) | 386 normal-indent)))))) |
387 | 387 |
388 (defun lisp-indent-function (indent-point state) | 388 (defun lisp-indent-function (indent-point state) |
389 (let ((normal-indent (current-column))) | 389 (let ((normal-indent (current-column))) |
390 (goto-char (1+ (elt state 1))) | 390 (goto-char (1+ (elt state 1))) |
391 (parse-partial-sexp (point) last-sexp 0 t) | 391 (parse-partial-sexp (point) last-sexp 0 t) |