From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Antoine Levitt Newsgroups: gmane.emacs.devel Subject: [PATCH] Use correct indentation in customize Date: Tue, 10 Aug 2010 23:33:28 +0100 Message-ID: <8762zi2j47.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1281479641 18179 80.91.229.12 (10 Aug 2010 22:34:01 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 10 Aug 2010 22:34:01 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Aug 11 00:33:55 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OixOK-0006g1-TJ for ged-emacs-devel@m.gmane.org; Wed, 11 Aug 2010 00:33:53 +0200 Original-Received: from localhost ([127.0.0.1]:46617 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OixOK-0005GG-Cg for ged-emacs-devel@m.gmane.org; Tue, 10 Aug 2010 18:33:52 -0400 Original-Received: from [140.186.70.92] (port=35040 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OixOC-0005Ft-GZ for emacs-devel@gnu.org; Tue, 10 Aug 2010 18:33:46 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OixO7-0002bC-48 for emacs-devel@gnu.org; Tue, 10 Aug 2010 18:33:44 -0400 Original-Received: from lo.gmane.org ([80.91.229.12]:59530) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OixO6-0002aV-QD for emacs-devel@gnu.org; Tue, 10 Aug 2010 18:33:39 -0400 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1OixO4-0006a0-PL for emacs-devel@gnu.org; Wed, 11 Aug 2010 00:33:36 +0200 Original-Received: from ns2dhcp091.hertford.ox.ac.uk ([163.1.230.91]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 11 Aug 2010 00:33:36 +0200 Original-Received: from antoine.levitt by ns2dhcp091.hertford.ox.ac.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 11 Aug 2010 00:33:36 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 44 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: ns2dhcp091.hertford.ox.ac.uk User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:fF33HYXh27c+xXbuy6Vz0xw7oCQ= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:128557 Archived-At: 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))