[Eclipse-cvs] CVS update: eclipse/eclipse.lisp

[Iban Hatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory common-lisp.net:/tmp/cvs-serv7090

Modified Files:
	eclipse.lisp 
Log Message:
fix indentation.

Date: Thu Nov 13 06:02:05 2003
Author: ihatchondo

Index: eclipse/eclipse.lisp
diff -u eclipse/eclipse.lisp:1.10 eclipse/eclipse.lisp:1.11
--- eclipse/eclipse.lisp:1.10	Mon Oct  6 13:57:26 2003
+++ eclipse/eclipse.lisp	Thu Nov 13 06:02:05 2003
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: eclipse.lisp,v 1.10 2003/10/06 17:57:26 ihatchondo Exp $
+;;; $Id: eclipse.lisp,v 1.11 2003/11/13 11:02:05 ihatchondo Exp $
 ;;;
 ;;; ECLIPSE. The Common Lisp Window Manager.
 ;;; Copyright (C) 2002 Iban HATCHONDO
@@ -63,10 +63,10 @@
 
     ;; Check if a non ICCCM complient window manager is not running.
     (flet ((handle-redirect-error (condition)
-	   (declare (ignorable condition))
-	   (format *error-output* "Redirect error - another WM is running~%")
-	   (xlib:close-display display)
-	   (%quit%)))
+	     (declare (ignorable condition))
+	     (format *error-output* "Redirect error - another WM is running~%")
+	     (xlib:close-display display)
+	     (%quit%)))
       (handler-bind ((error #'handle-redirect-error)) ; xlib:access-error
 	(setf (xlib:window-event-mask root-window)
 	      '(:substructure-redirect :button-press :button-release