[sawfish] rename .sawmillrc to .sawfishrc if the former exists and the later not

[Christopher Bratusek <chrisb src gnome org>]

commit c8a54d65968bd9a8351cfd77e68c26adbe3cc203
Author: chrisb <zanghar freenet de>
Date:   Sat Aug 29 19:02:29 2009 +0200

    rename .sawmillrc to .sawfishrc if the former exists and the later not

 lisp/sawfish/wm/user.jl |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/wm/user.jl b/lisp/sawfish/wm/user.jl
index b889029..7f50ef6 100644
--- a/lisp/sawfish/wm/user.jl
+++ b/lisp/sawfish/wm/user.jl
@@ -77,6 +77,11 @@
 	    (make-symlink "~/.sawmill" ".sawfish")
 	    (message "Created .sawmill symlink (delete if unwanted)"))
 
+	  (when (and (file-exists-p "~/.sawmillrc")
+	             (not (file-exists-p "~/.sawfishrc")))
+	    (rename-file "~/.sawmillrc" "~/sawfishrc")
+	    (message "Renamed file ~/.sawmillrc -> ~/.sawfishrc"))
+
 	  ;; First the site-wide stuff
 	  (load-all "site-init" (lambda (f) (safe-load f nil t)))
 
@@ -95,7 +100,7 @@
 			(when rest
 			  (or (rc-file-exists-p (car rest))
 			      (loop (cdr rest)))))
-		(load "sawfish/wm/defaults" t))
+	        (load "sawfish/wm/defaults" t))
 
 	      ;; then the customized options
 	      (condition-case data