From 6f2cfa48bad0c2a55f007b561d0953c8e5557c31 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 30 Apr 2009 00:03:22 +0200 Subject: PLT: Help fix. --- elisp/geiser-base.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'elisp/geiser-base.el') diff --git a/elisp/geiser-base.el b/elisp/geiser-base.el index 362930d..4133245 100644 --- a/elisp/geiser-base.el +++ b/elisp/geiser-base.el @@ -97,6 +97,11 @@ (insert str) (put-text-property p (point) 'face face))) +(defmacro geiser--scheme-indent (&rest pairs) + `(progn ,@(mapcar (lambda (p) + `(put ',(car p) 'scheme-indent-function ',(cadr p))) + pairs))) + (provide 'geiser-base) ;;; geiser-base.el ends here -- cgit v1.2.3