[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv25826

Modified Files:
	pane.lisp 
Log Message:
Change to using spaces for indentation by default, added parameter to
change back to using tabs.


--- /project/climacs/cvsroot/climacs/pane.lisp	2006/03/03 19:38:57	1.35
+++ /project/climacs/cvsroot/climacs/pane.lisp	2006/03/27 19:24:07	1.36
@@ -30,6 +30,9 @@
 ;;;
 ;;; Tabify
 
+(defvar *use-tabs-for-indentation* nil
+  "If non-NIL, use tabs when indenting lines. Otherwise, use spaces.")
+
 (defgeneric space-width (tabify))
 (defgeneric tab-width (tabify))
 (defgeneric tab-space-count (tabify))
@@ -239,7 +242,8 @@
   ((needs-saving :initform nil :accessor needs-saving)
    (syntax :accessor syntax)
    (point :initform nil :initarg :point :accessor point)
-   (indent-tabs-mode :initarg indent-tabs-mode :initform t
+   (indent-tabs-mode :initarg indent-tabs-mode
+                     :initform *use-tabs-for-indentation*
                      :accessor indent-tabs-mode))
   (:default-initargs
    :name "*scratch*"