procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(common-lisp-indent-function): Bind lisp-indent-error-function.
(lisp-indent-report-bad-format): Use lisp-indent-error-function.
This commit is contained in:
Richard M. Stallman 1998-05-24 16:58:32 +00:00
parent 20a6d217c3
commit bf92b5a4d6
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/emacs-lisp/cl-indent.el
View file

@ -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!