From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Robert Pluim Newsgroups: gmane.emacs.devel Subject: Re: master 6a6de68 1/3: Add new macro `with-existing-directory' Date: Fri, 24 Sep 2021 11:07:49 +0200 Message-ID: <87a6k2fije.fsf@gmail.com> References: <20210901142714.25847.48045@vcs0.savannah.gnu.org> <20210901142716.98FD020B71@vcs0.savannah.gnu.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="24646"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Lars Ingebrigtsen To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Fri Sep 24 11:19:47 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 1mThMw-0006EE-Tk for ged-emacs-devel@m.gmane-mx.org; Fri, 24 Sep 2021 11:19:46 +0200 Original-Received: from localhost ([::1]:35472 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mThMv-0000zE-TC for ged-emacs-devel@m.gmane-mx.org; Fri, 24 Sep 2021 05:19:45 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:36634) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mThBS-00079N-Sc for emacs-devel@gnu.org; Fri, 24 Sep 2021 05:07:58 -0400 Original-Received: from mail-wr1-x436.google.com ([2a00:1450:4864:20::436]:38741) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mThBR-0004f0-9x for emacs-devel@gnu.org; Fri, 24 Sep 2021 05:07:54 -0400 Original-Received: by mail-wr1-x436.google.com with SMTP id u18so25265035wrg.5 for ; Fri, 24 Sep 2021 02:07:52 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=from:to:cc:subject:references:gmane-reply-to-list:date:in-reply-to :message-id:mime-version; bh=xDjhHlznnWvW+d9dWHoUxS1JKA3cFwVOQUA5aQuD7eU=; b=Qmj5t7iadpBrtrppHTRDWuJyHZYIAA+EdPnZ0+EjYrlJpCYFSCOkO3+XNgK5ueYTv6 dRA5BZT1sCm2y+/qp6pV1mVR/CZWHoxknbjQtx+mIc8tqJXiaxa4C/KAcl3Msbij6zWb JghW3UflDHsvbp9Tw1n2dqz6eaz009/6Gll9wjMR1hb7gdH8V+P58IRisjul1ApHlFbb A0xzowEanBI6UFCYv3cRCUJcNL/QwaHyBs6CT2yz4MQBNcOK9jBL2qjkQXdDYUSYJ8N2 gr3tX/DbYT2l4Q5Ou4+8N2gGB/5cCq0iJ2MxMVyFFVNri5eWuzsiPj2j1RO0CjW9HK69 Dljg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:references :gmane-reply-to-list:date:in-reply-to:message-id:mime-version; bh=xDjhHlznnWvW+d9dWHoUxS1JKA3cFwVOQUA5aQuD7eU=; b=TQBUjNNF6EDShzCTcpzaN1anm49wAhUiitE07yK14MArzOIrH/qP2fL2IZ53kiprBT T/AHHE4CMd0D4O7cj+YFZiECT5TSPFSOVouwgzoWMIuc5a/FCs443jeYwIxt5B63mJld a/Q3QgaYSL89oEeirDUu+yqnPqVxHt/QRRMWTo2egXfKLEoXiwkRyIK2IbvLM0I2XAZQ V2adtRBxykjFUh8BVMN51Sxc4hV3VjiSUzNC7CaXkAtVOq2fVH5GMxcXk4Ir85wrslme jBsna/t4gBslG8tBD3p0Jgt53dJZprg+OCFkutY29gA8CQYaw2dCBBJ2sfW+G1yFOz7B FWKg== X-Gm-Message-State: AOAM532mE51W7jxepMatYVS9Nb4DB4FJkyFyu0e9uymrcWqDeYz/ARNY Jf4bVIP5Mn0ARIfaZAIPrqE= X-Google-Smtp-Source: ABdhPJzC4Q4qjO3y6K1OeUhX7ac0AFNp6xrhsR2GGlRhng0B2U2VH9VHwzcVqorNRD/7i5jDN4a4xg== X-Received: by 2002:a05:600c:3b97:: with SMTP id n23mr906371wms.93.1632474470874; Fri, 24 Sep 2021 02:07:50 -0700 (PDT) Original-Received: from rltb ([82.66.8.55]) by smtp.gmail.com with ESMTPSA id o17sm4177427wrs.25.2021.09.24.02.07.49 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 24 Sep 2021 02:07:50 -0700 (PDT) Gmane-Reply-To-List: yes In-Reply-To: <20210901142716.98FD020B71@vcs0.savannah.gnu.org> (Lars Ingebrigtsen's message of "Wed, 1 Sep 2021 10:27:16 -0400 (EDT)") Received-SPF: pass client-ip=2a00:1450:4864:20::436; envelope-from=rpluim@gmail.com; helo=mail-wr1-x436.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, 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:275391 Archived-At: >>>>> On Wed, 1 Sep 2021 10:27:16 -0400 (EDT), larsi@gnus.org (Lars Ingebrigtsen) said: Lars> +(defmacro with-existing-directory (&rest body) Lars> + "Execute BODY with `default-directory' bound to an existing directory. Lars> +If `default-directory' is already an existing directory, it's not changed." Lars> + (declare (indent 0) (debug t)) Lars> + `(let ((default-directory (seq-find (lambda (dir) Lars> + (and dir Lars> + (file-exists-p dir))) Lars> + (list default-directory Lars> + (expand-file-name "~/") Lars> + (getenv "TMPDIR") Lars> + "/tmp/") Lars> + "/"))) Lars> + ,@body)) Hmm. 'temporary-file-directory'? Robert --