From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.devel Subject: Re: [PATCH] lisp/files.el: Add `file-name-set-extension` Date: Tue, 25 May 2021 19:48:25 +0200 Message-ID: <87r1hu3dsm.fsf@igel.home> References: <6ff4b7d7-03ac-48d1-8d49-de66431d4e5b@www.fastmail.com> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="20501"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) Cc: emacs-devel@gnu.org To: "Colin Woodbury" Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Tue May 25 19:49:23 2021 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1llbBD-00056V-5g for ged-emacs-devel@m.gmane-mx.org; Tue, 25 May 2021 19:49:23 +0200 Original-Received: from localhost ([::1]:59290 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1llbBB-0002C4-Hq for ged-emacs-devel@m.gmane-mx.org; Tue, 25 May 2021 13:49:21 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:42246) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1llbAP-0000px-IQ for emacs-devel@gnu.org; Tue, 25 May 2021 13:48:33 -0400 Original-Received: from mail-out.m-online.net ([212.18.0.9]:55866) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1llbAN-0007XM-4D for emacs-devel@gnu.org; Tue, 25 May 2021 13:48:33 -0400 Original-Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 4FqM4p4vTdz1qtQR; Tue, 25 May 2021 19:48:26 +0200 (CEST) Original-Received: from localhost (dynscan1.mnet-online.de [192.168.6.70]) by mail.m-online.net (Postfix) with ESMTP id 4FqM4p4X0hz1qr3b; Tue, 25 May 2021 19:48:26 +0200 (CEST) X-Virus-Scanned: amavisd-new at mnet-online.de Original-Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan1.mail.m-online.net [192.168.6.70]) (amavisd-new, port 10024) with ESMTP id Hjb0-G0uy2t4; Tue, 25 May 2021 19:48:26 +0200 (CEST) X-Auth-Info: nKPozhQsrF6mX/7PVdII4ZEIus3Y7MDbOrcNYjNe72OZTh0z3mUQKEePXZlBA7hp Original-Received: from igel.home (ppp-46-244-180-143.dynamic.mnet-online.de [46.244.180.143]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPSA; Tue, 25 May 2021 19:48:26 +0200 (CEST) Original-Received: by igel.home (Postfix, from userid 1000) id 757A12C367F; Tue, 25 May 2021 19:48:25 +0200 (CEST) X-Yow: I want DUSTIN HOFFMAN!! .. I want LIBERACE!! YOW!! In-Reply-To: <6ff4b7d7-03ac-48d1-8d49-de66431d4e5b@www.fastmail.com> (Colin Woodbury's message of "Tue, 25 May 2021 08:50:10 -0700") Received-SPF: pass client-ip=212.18.0.9; envelope-from=whitebox@nefkom.net; helo=mail-out.m-online.net X-Spam_score_int: -22 X-Spam_score: -2.3 X-Spam_bar: -- X-Spam_report: (-2.3 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.io gmane.emacs.devel:269878 Archived-At: On Mai 25 2021, Colin Woodbury wrote: > diff --git a/lisp/files.el b/lisp/files.el > index 62e1702fdf..f8aefa7930 100644 > --- a/lisp/files.el > +++ b/lisp/files.el > @@ -4889,6 +4889,20 @@ extension, the value is \"\"." > (if period > ""))))) > > +(defun file-name-set-extension (filename extension) > + "Change the extension of a FILENAME to EXTENSION. > +Sanitizes the input to consolidate leading/trailing dots. > + > +Returns `nil' if either of the FILENAME or EXTENSION are `nil' > +before sanitizing, or empty afterwards." > + (when (and filename extension) What is the use-case for nil? Andreas. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510 2552 DF73 E780 A9DA AEC1 "And now for something completely different."