[PATCH] Use correct indentation in customize

[Antoine Levitt <antoine.levitt@gmail.com>]

Hi,

I noticed that when customize writes its stuff to .emacs (or
custom-file), the indentation of the accompanying comment is off by a
column. This is a trivial issue, but I like to indent obsessively my
files. Since I keep .emacs under version control, this generates useless
diffs that have been bugging me for a while. So here's the patch to fix
it, which should be a no-brainer to merge.

Antoine Levitt

=== modified file 'lisp/cus-edit.el'                                           
--- lisp/cus-edit.el |  2010-04-20 18:52:07 +0000                              
+++ lisp/cus-edit.el	2010-08-10 22:21:20 +0000
@@ -4404,10 +4404,10 @@
       (unless (bolp)
 	(princ "\n"))
       (princ "(custom-set-variables
-  ;; custom-set-variables was added by Custom.
-  ;; If you edit it by hand, you could mess it up, so be careful.
-  ;; Your init file should contain only one such instance.
-  ;; If there is more than one, they won't work right.\n")
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.\n")
       (dolist (symbol saved-list)
 	(let ((spec (car-safe (get symbol 'theme-value)))
 	      (value (get symbol 'saved-value))
@@ -4480,10 +4480,10 @@
       (unless (bolp)
 	(princ "\n"))
       (princ "(custom-set-faces
-  ;; custom-set-faces was added by Custom.
-  ;; If you edit it by hand, you could mess it up, so be careful.
-  ;; Your init file should contain only one such instance.
-  ;; If there is more than one, they won't work right.\n")
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.\n")
       (dolist (symbol saved-list)
 	(let ((spec (car-safe (get symbol 'theme-face)))
 	      (value (get symbol 'saved-face))