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
commit62a12ad5d23520d93a30c38db083bdbfd248b77e (patch)
tree0784350c9c18cdfd0d23479475cb9a65890ac8f7 /elisp/geiser-base.el
parentfbd809ff8c48f12d1b13caae70810421aaa0aef4 (diff)
downloadgeiser-guile-62a12ad5d23520d93a30c38db083bdbfd248b77e.tar.gz
geiser-guile-62a12ad5d23520d93a30c38db083bdbfd248b77e.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