From 8d137f9e77811f16d536f73cc1c059a77782f7de Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 15 Feb 2009 18:41:04 +0100
Subject: Smart tab completion mode.

---
 elisp/geiser-mode.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'elisp/geiser-mode.el')

diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index d58de1e..84455e7 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -43,11 +43,16 @@
   :group 'geiser)
 
 (defcustom geiser-mode-autodoc-p t
-  "Whether `geiser-autodoc-mode' gets enabled by default in factor buffers."
+  "Whether `geiser-autodoc-mode' gets enabled by default in Scheme buffers."
   :group 'geiser-mode
   :group 'geiser-autodoc
   :type 'boolean)
 
+(defcustom geiser-mode-smart-tab-p t
+  "Whether `geiser-smart-tab-mode' gets enabled by default in Scheme buffers."
+  :group 'geiser-mode
+  :type 'boolean)
+
 
 
 ;;; Auxiliary functions:
@@ -132,10 +137,12 @@ interacting with the Geiser REPL is at your disposal.
 \\{geiser-mode-map}"
   :init-value nil
   :lighter geiser-mode-string
-  :group 'geiser
+  :group 'geiser-mode
   :keymap geiser-mode-map
   (setq geiser-autodoc-mode-string "/A")
-  (when geiser-mode-autodoc-p (geiser-autodoc-mode geiser-mode)))
+  (setq geiser-smart-tab-mode-string "/T")
+  (when geiser-mode-autodoc-p (geiser-autodoc-mode geiser-mode))
+  (when geiser-mode-smart-tab-p (geiser-smart-tab-mode geiser-mode)))
 
 
 ;;; Keys:
-- 
cgit v1.2.3