From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Alex Kost Newsgroups: gmane.emacs.help Subject: Re: Changing name format for backup files Date: Fri, 15 Jan 2016 12:53:29 +0300 Message-ID: <877fjbnp7q.fsf@gmail.com> References: <87io2zem06.fsf@wanadoo.es> <874mehblb1.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1452851632 831 80.91.229.3 (15 Jan 2016 09:53:52 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 15 Jan 2016 09:53:52 +0000 (UTC) Cc: help-gnu-emacs@gnu.org To: Nick Helm Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Jan 15 10:53:47 2016 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1aK14i-0000lo-ME for geh-help-gnu-emacs@m.gmane.org; Fri, 15 Jan 2016 10:53:44 +0100 Original-Received: from localhost ([::1]:46128 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aK14i-0004HV-1h for geh-help-gnu-emacs@m.gmane.org; Fri, 15 Jan 2016 04:53:44 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:59355) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aK14W-0004HK-DY for help-gnu-emacs@gnu.org; Fri, 15 Jan 2016 04:53:33 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aK14S-0004Fp-Cg for help-gnu-emacs@gnu.org; Fri, 15 Jan 2016 04:53:32 -0500 Original-Received: from mail-lb0-x235.google.com ([2a00:1450:4010:c04::235]:35586) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aK14S-0004Fk-4S for help-gnu-emacs@gnu.org; Fri, 15 Jan 2016 04:53:28 -0500 Original-Received: by mail-lb0-x235.google.com with SMTP id bc4so311046848lbc.2 for ; Fri, 15 Jan 2016 01:53:27 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-type:content-transfer-encoding; bh=xyG2b5T8OJ1gULv+aWBRyd3YS0XwR4MGeXHnNRn8ips=; b=pUWMm3StET3tu6Us6oPz5wX5hbej5bMf3OhMM7G46heRg/OSKOa9NOSO5Mls4STyNq 7/4j6//jzfT5ru01KUwvPYgbhNmbfPLMWPUt5X0sRZnytymcHf2uszj6y0Owfnf0ShsE vHmOu3u40f5KwXk8x+zGIFDTuLoHnYhHQoJV/vswbk5yc7utxCljwxMUkGsw3hJWUoln ItPc9HrKgQQhbtcRl4cHIgdbeNgWvybptr5H5lS/eJZ0O4TeVZZltW8CmeMe+E3C6lGF phog8RFSDEaGE415wZFx3KZ2mUHHdn1BlLgm4tXynUV1h93n4gcg8xvVRUtQP1ulPfBV BxyA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version:content-type :content-transfer-encoding; bh=xyG2b5T8OJ1gULv+aWBRyd3YS0XwR4MGeXHnNRn8ips=; b=W1K3nZoDkUR+DaWgXBGLDI1FnfY187M6oz76p964c75HPwOBjemt86AhjAIOXBTFuT IZkeZ9ee9HpjR8YmhVO/ErEFfkdByHGnWiPjIiMwpiBEEEG/FmrXBlfu07F0rYczDVZF M1Pa4U/w6zRSYmoqy9FqOexWgjyfDuvvq11x1F4nvanA7gI+NKjpci2Fjy58Nqm0zHPo 1U2MLpNgvKbIN6AB3LM3gbhbznkNCzf+68Ukmom0oxK1pjJwUEh6Me3jbuBMez0X8wIb oicGYQ75hJ65ZrqjToSKpGYSBT7QPF/8GV4ohFioXwAadsVHLf9dh1vLT9nzOLOVfBgc BP6g== X-Gm-Message-State: ALoCoQk6exJecsfy/oahWA6RIwtZ9HEk7DD8vZm7wEc3I3nlTzg/hyhImpCcP0TkbFOPAdJ/jZhWvlR3OuwuZVGKFIKdyx50ng== X-Received: by 10.112.130.99 with SMTP id od3mr2848932lbb.76.1452851606855; Fri, 15 Jan 2016 01:53:26 -0800 (PST) Original-Received: from leviafan ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id j71sm1286837lfi.20.2016.01.15.01.53.25 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Fri, 15 Jan 2016 01:53:26 -0800 (PST) In-Reply-To: (Nick Helm's message of "Fri, 15 Jan 2016 17:53:14 +1300") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2a00:1450:4010:c04::235 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:108749 Archived-At: Nick Helm (2016-01-15 07:53 +0300) wrote: >> When I was messing with backing up, I also noticed this thing. So what >> I did is: I just replaced `make-backup-file-name-1' with my own >> `utl-make-backup-file-name-1' function=C2=B9 that does what I need: >> >> (advice-add 'make-backup-file-name-1 >> :override 'utl-make-backup-file-name-1) >> >> I didn't follow this thread closely, so I'm sorry if this reply is usele= ss. > > Ok, this is a good excuse to learn to use advice. This is what I tried: > > (defun nick-add-prefix-dot (file) > "Inject a prefix dot into file name FILE." > (concat (file-name-directory file) "." (file-name-nondirectory file= ))) > > (defun nick-auto-save-file-name-p (file) > "Return non-nil if FILE is an auto-save file name." > (string-match "\\`\\.#.*#\\'" file)) > > (advice-add 'make-backup-file-name-1 :filter-return #'nick-add-prefix-= dot) > (advice-add 'make-auto-save-file-name :filter-return #'nick-add-prefix= -dot) > (advice-add 'auto-save-file-name-p :override #'nick-auto-save-file-nam= e-p) > > Which seems to work well. I don't think `backup-file-name-p' doesn't > need override advice in this case as it only checks that files end with ~. Oh great, I didn't notice :filter-return before. It can be very useful, th= anks! --=20 Alex