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*"