[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH] Use correct indentation in customize
From: |
Stefan Monnier |
Subject: |
Re: [PATCH] Use correct indentation in customize |
Date: |
Thu, 12 Aug 2010 11:01:26 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) |
> 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))