summaryrefslogtreecommitdiff
path: root/elisp/geiser-base.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-30 00:03:22 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-30 00:03:22 +0200
commit6f2cfa48bad0c2a55f007b561d0953c8e5557c31 (patch)
tree3145ca185e2658830d7ead4bbbd2d76e8adf1a05 /elisp/geiser-base.el
parent5ff75890a9b1dbbba5b6a76fd770cb4d2ff72fcc (diff)
downloadgeiser-6f2cfa48bad0c2a55f007b561d0953c8e5557c31.tar.gz
geiser-6f2cfa48bad0c2a55f007b561d0953c8e5557c31.tar.bz2
PLT: Help fix.
Diffstat (limited to 'elisp/geiser-base.el')
-rw-r--r--elisp/geiser-base.el5
1 files changed, 5 insertions, 0 deletions
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