Commit bf92b5a4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(lisp-indent-error-function): New variable.

(common-lisp-indent-function): Bind lisp-indent-error-function.
(lisp-indent-report-bad-format): Use lisp-indent-error-function.
parent 20a6d217
......@@ -79,6 +79,8 @@ by `lisp-body-indent'."
:group 'lisp-indent)
(defvar lisp-indent-error-function)
;;;###autoload
(defun common-lisp-indent-function (indent-point state)
(let ((normal-indent (current-column)))
......@@ -188,13 +190,15 @@ by `lisp-body-indent'."
;; other body form
normal-indent))))
((symbolp method)
(setq calculated (funcall method
path state indent-point
sexp-column normal-indent)))
(let ((lisp-indent-error-function function))
(setq calculated (funcall method
path state indent-point
sexp-column normal-indent))))
(t
(setq calculated (lisp-indent-259
method path state indent-point
sexp-column normal-indent)))))
(let ((lisp-indent-error-function function))
(setq calculated (lisp-indent-259
method path state indent-point
sexp-column normal-indent))))))
(goto-char containing-sexp)
(setq last-point containing-sexp)
(if (not calculated)
......@@ -208,7 +212,7 @@ by `lisp-body-indent'."
(defun lisp-indent-report-bad-format (m)
(error "%s has a badly-formed %s property: %s"
;; Love those free variable references!!
function 'common-lisp-indent-function m))
lisp-indent-error-function 'common-lisp-indent-function m))
;; Blame the crufty control structure on dynamic scoping
;; -- not on me!
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment