[sawfish: 1/2] Cleaned up whitespace in a few files missed the first time.

[Jeremy Hankins <jjhankins src gnome org>]

commit 0db8994520f5fe68db80bb88c486b5863f3e9307
Author: Jeremy Hankins <nowan nowan org>
Date:   Sat Oct 3 09:09:08 2009 -0500

    Cleaned up whitespace in a few files missed the first time.

 ChangeLog                           |    5 +++
 lisp/sawfish/cfg/main.jl.in         |   41 ++++++++++------------
 lisp/sawfish/gtk/widgets/font.jl.in |   65 +++++++++++++++++------------------
 scripts/sawfish-about.jl.in         |   49 +++++++++++++-------------
 4 files changed, 80 insertions(+), 80 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 421742c..3c6a43d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-03  Jeremy Hankins <nowan nowan org>
+	* lisp/sawfish/cfg/main.jl.in
+	* lisp/sawfish/gtk/widgets/font.jl.in
+	* scripts/sawfish-about.jl.in: Whitespace cleanup in files that were missed before.
+
 2009-10-01  Christopher Bratusek <zanghar freenet de>
 	* configure.in
 	* OPTIONS
diff --git a/lisp/sawfish/cfg/main.jl.in b/lisp/sawfish/cfg/main.jl.in
index a6b117a..af5c82e 100644
--- a/lisp/sawfish/cfg/main.jl.in
+++ b/lisp/sawfish/cfg/main.jl.in
@@ -9,28 +9,25 @@ exec rep "$0" "$@"
 
 !#
 
-#| nokogiri-main.jl -- entry point
-
-   $Id: main.jl.in,v 1.12 2003/01/12 20:30:47 jsh Exp $
-
-   Copyright (C) 2000 John Harper <john dcs warwick ac uk>
-
-   This file is part of sawfish.
-
-   sawfish is free software; you can redistribute it and/or modify it
-   under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2, or (at your option)
-   any later version.
-
-   sawfish is distributed in the hope that it will be useful, but
-   WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with sawfish; see the file COPYING.  If not, write to
-   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-|#
+;; nokogiri-main.jl -- entry point
+;;
+;; Copyright (C) 2000 John Harper <john dcs warwick ac uk>
+;;
+;; This file is part of sawfish.
+;;
+;; sawfish is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; sawfish is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with sawfish; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (structure ()
 
diff --git a/lisp/sawfish/gtk/widgets/font.jl.in b/lisp/sawfish/gtk/widgets/font.jl.in
index afefaa6..e0dd211 100644
--- a/lisp/sawfish/gtk/widgets/font.jl.in
+++ b/lisp/sawfish/gtk/widgets/font.jl.in
@@ -1,33 +1,32 @@
-#| nokogiri-widgets/font.jl -- font selection widget
+;; nokogiri-widgets/font.jl -- font selection widget
+;;
+;; Copyright (C) 2000 John Harper <john dcs warwick ac uk>
+;;
+;; This file is part of sawfish.
+;;
+;; sawfish is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; sawfish is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with sawfish; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-   $Id$
+(define-structure sawfish.gtk.widgets.font
 
-   Copyright (C) 2000 John Harper <john dcs warwick ac uk>
-
-   This file is part of sawfish.
-
-   sawfish is free software; you can redistribute it and/or modify it
-   under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2, or (at your option)
-   any later version.
-
-   sawfish is distributed in the hope that it will be useful, but
-   WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with sawfish; see the file COPYING.  If not, write to
-   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-|#
-
-(define-structure sawfish.gtk.widgets.font ()
+    (export )
 
     (open rep
-	  rep.system
-	  gui.gtk-2.gtk
-	  sawfish.gtk.widget
-	  sawfish.wm.util.font)
+          rep.system
+          gui.gtk-2.gtk
+          sawfish.gtk.widget
+          sawfish.wm.util.font)
 
   ;; FIXME: this is broken, in that only if Xrender is present
   ;; does gdk use Xft. But, it's the best I can do..
@@ -65,7 +64,7 @@
 	    (gtk-font-selection-dialog-cancel-button fontsel) "clicked"
 	    (lambda () (gtk-widget-destroy fontsel)))
 	   (g-signal-connect fontsel "delete_event"
-			       (lambda () (gtk-widget-destroy fontsel)))
+                             (lambda () (gtk-widget-destroy fontsel)))
 	   (gtk-widget-show fontsel)
 	   (gtk-grab-add fontsel))))
       (gtk-widget-show box)
@@ -76,12 +75,12 @@
 			  (gtk-entry-set-text entry x))
 			 ((consp x)
 			  (let ((face (cond
-					((string-equal (car x) "Xft")
-					 (xft-description->face (cdr x)))
-					((string-equal (car x) "xlfd")
-					 (xlfd-description->face (cdr x)))
-					((string-equal (car x) "pango")
-					 (pango-description->face (cdr x))))))
+                                       ((string-equal (car x) "Xft")
+                                        (xft-description->face (cdr x)))
+                                       ((string-equal (car x) "xlfd")
+                                        (xlfd-description->face (cdr x)))
+                                       ((string-equal (car x) "pango")
+                                        (pango-description->face (cdr x))))))
 			    (when face
 			      (gtk-entry-set-text
 			       entry (face->pango-description face)))))
diff --git a/scripts/sawfish-about.jl.in b/scripts/sawfish-about.jl.in
index f0d780c..dab77e7 100644
--- a/scripts/sawfish-about.jl.in
+++ b/scripts/sawfish-about.jl.in
@@ -7,30 +7,29 @@ exec rep "$0" "$@"
 
 !#
 
-#| sawfish-about.jl.in -- helper process for sawfish about dialog
-
-   $Id: sawfish-about.jl.in,v 1.10 2003/01/12 20:35:21 jsh Exp $
-
-   Copyright (C) 2000 John Harper <john dcs warwick ac uk>
-
-   This file is part of sawfish.
-
-   sawfish is free software; you can redistribute it and/or modify it
-   under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2, or (at your option)
-   any later version.
-
-   sawfish is distributed in the hope that it will be useful, but
-   WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with sawfish; see the file COPYING.  If not, write to
-   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-|#
-
-(structure ()
+;; sawfish-about.jl.in -- helper process for sawfish about dialog
+;;
+;; Copyright (C) 2000 John Harper <john dcs warwick ac uk>
+;;
+;; This file is part of sawfish.
+;;
+;; sawfish is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; sawfish is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with sawfish; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+(structure
+
+    (export )
 
     (open rep
 	  gui.gtk-2.gtk
@@ -53,7 +52,7 @@ exec rep "$0" "$@"
 
   (let* ((hbox (gtk-hbox-new t 0))
 	 (ref (gtk-link-button-new-with-label "http://sawfish.wikia.com/";
-				(_ "Sawfish homepage"))))
+                                              (_ "Sawfish homepage"))))
     (gtk-box-pack-start hbox ref)
     (gtk-widget-show-all hbox)
     (let ((widget (about-dialog title version copyright