Re: [PATCH] Use correct indentation in customize

[Stefan Monnier]

> 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.

Thanks, installed,


        Stefan


> === 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))