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