From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.devel Subject: Re: [PATCH] Use correct indentation in customize Date: Thu, 12 Aug 2010 11:01:26 +0200 Message-ID: References: <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 1281603704 19761 80.91.229.12 (12 Aug 2010 09:01:44 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 12 Aug 2010 09:01:44 +0000 (UTC) Cc: emacs-devel@gnu.org To: Antoine Levitt Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Aug 12 11:01:41 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 1OjTfP-0006YZ-SQ for ged-emacs-devel@m.gmane.org; Thu, 12 Aug 2010 11:01:40 +0200 Original-Received: from localhost ([127.0.0.1]:39823 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OjTfO-0005J6-W3 for ged-emacs-devel@m.gmane.org; Thu, 12 Aug 2010 05:01:39 -0400 Original-Received: from [140.186.70.92] (port=54771 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OjTfH-0005Fg-E1 for emacs-devel@gnu.org; Thu, 12 Aug 2010 05:01:32 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OjTfG-0006Aw-2u for emacs-devel@gnu.org; Thu, 12 Aug 2010 05:01:31 -0400 Original-Received: from impaqm4.telefonica.net ([213.4.138.4]:40840) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OjTfF-0006Ad-Ob for emacs-devel@gnu.org; Thu, 12 Aug 2010 05:01:30 -0400 Original-Received: from IMPmailhost5.adm.correo ([10.20.102.126]) by IMPaqm4.telefonica.net with bizsmtp id tLNl1e01E2jdgqJ3QM1T79; Thu, 12 Aug 2010 11:01:27 +0200 Original-Received: from ceviche.home ([88.12.128.176]) by IMPmailhost5.adm.correo with BIZ IMP id tM1S1e00K3oVAVk1lM1T9k; Thu, 12 Aug 2010 11:01:27 +0200 X-Brightmail-Tracker: AAAAAA== X-TE-authinfo: authemail="monnier$movistar.es" |auth_email="monnier@movistar.es" X-TE-AcuTerraCos: auth_cuTerraCos="cosuitnetc01" Original-Received: by ceviche.home (Postfix, from userid 20848) id 8AB88660F0; Thu, 12 Aug 2010 11:01:26 +0200 (CEST) In-Reply-To: <8762zi2j47.fsf@gmail.com> (Antoine Levitt's message of "Tue, 10 Aug 2010 23:33:28 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. 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:128573 Archived-At: > 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))