Mercurial > emacs
changeset 22212:b95ba3830bc9
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 May 1998 16:58:32 +0000 |
| parents | c8fa861cb852 |
| children | 84c3c863f0bd |
| files | lisp/emacs-lisp/cl-indent.el |
| diffstat | 1 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-indent.el Sun May 24 16:49:00 1998 +0000 +++ b/lisp/emacs-lisp/cl-indent.el Sun May 24 16:58:32 1998 +0000 @@ -79,6 +79,8 @@ :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 @@ ;; 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 @@ (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!