# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896029112 0
# Node ID b95ba3830bc9f9f57c145c1dba07b9c141b5aa06
# Parent  c8fa861cb85277aea069535040dfcb493da267fa
(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.

diff -r c8fa861cb852 -r b95ba3830bc9 lisp/emacs-lisp/cl-indent.el
--- 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!