From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: Michael Albinus Newsgroups: gmane.emacs.devel Subject: Re: INSIDE_EMACS and Tramp Date: Sun, 03 May 2020 14:33:02 +0200 Message-ID: <87k11txkox.fsf@gmx.de> References: <20200402230535.10490.95720@vcs0.savannah.gnu.org> <20200402230536.E0A3F20CDD@vcs0.savannah.gnu.org> <87lfndarwh.fsf_-_@gmx.de> <87blo78exg.fsf@gmx.de> <871rp357s1.fsf@gmail.com> <87lfmzg3ds.fsf@gmx.de> <87a7397tqz.fsf@gmail.com> <87o8r6wfni.fsf@gmx.de> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="32253"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) Cc: emacs-devel@gnu.org, Federico Tedin To: Stefan Monnier Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Sun May 03 14:36:25 2020 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 1jVDr6-0008HD-QU for ged-emacs-devel@m.gmane-mx.org; Sun, 03 May 2020 14:36:24 +0200 Original-Received: from localhost ([::1]:33458 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jVDr5-0002AL-Mp for ged-emacs-devel@m.gmane-mx.org; Sun, 03 May 2020 08:36:23 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:53322) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jVDny-0000aC-FB for emacs-devel@gnu.org; Sun, 03 May 2020 08:33:10 -0400 Original-Received: from mout.gmx.net ([212.227.17.21]:57493) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jVDnx-0003L0-9P for emacs-devel@gnu.org; Sun, 03 May 2020 08:33:10 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.net; s=badeba3b8450; t=1588509183; bh=An0SY92qRgLNJK0yaocCL4/ViZqB1odWMyLPiZ585yM=; h=X-UI-Sender-Class:From:To:Cc:Subject:References:Date:In-Reply-To; b=dKsnJoGzXe8CW7FlvWbVBKRHkyGaDp0PlBtEEzMdol6Pp/LxkBg+H+LdrnYuj5VKw eBA/VDZo5ugZbXq1WOirdq1qPkSBsIn8RlI69xgD4kpxa27KuyUDwVC+SwrKRjBAff Z4nVqYi11BAWTjJ9/vkzfvdbSrFAlcBv5Var4osI= X-UI-Sender-Class: 01bb95c1-4bf8-414a-932a-4f6e2808ef9c Original-Received: from gandalf.gmx.de ([212.86.50.216]) by mail.gmx.com (mrgmx105 [212.227.17.168]) with ESMTPSA (Nemesis) id 1N79yG-1j5nVr2tDA-017ToU; Sun, 03 May 2020 14:33:03 +0200 In-Reply-To: (Stefan Monnier's message of "Sat, 02 May 2020 13:20:02 -0400") X-Provags-ID: V03:K1:VezRhAnFsawh8ma9DXQVzVj826xc/J+MAX/pErIE0jN6qkRnl/v tIru1lSjq01L1+4aABKccjBwFASEwjXQd5Gt0kKZqvsY2zp7ZdHNlkFoIGzqBvsGntBs9Fg e9VpTw8MVlyRNrL++p1kHDChdshp6jIXpWMkkkY9VsJe8FtVPBQroLRRSUphugMCBScpTAl P/RIxLESABBADk3fSWymg== X-UI-Out-Filterresults: notjunk:1;V03:K0:EI8F+S/rOP4=:qivZdSCdghaVNd7wI/ZSAc rOatAeKY0iO5J07oMMGZNbKVBT+jDyosXYVpSkoLfRbFKn0C/XrPUgi8BEQmjjeY3GWdexELw kRd6HXjtEfOS0PEMzpbN0e+GeXe3OZroBEBKjMb5tLy50/B03f5SQvEuONmsHhxq2AhHWJku6 ODgpjDc8DUJVawJyZBEXDQ+mpFGPpQzF24ABOIPtJzd39Ng9i3KAJykEkMXzWw0c9Yw2TDZTx mtRlkJ/+ONDZ/XlQZr96+Fbuzwe/sHDo226U4BpKALLVwH/KP64XWcIzSieMM0uq+AkInP2sA if9hBFvvLZvx8uU8d8bWEZKj/bgoRZWs9E4SYSOEU/24ODvLWIJHqcsxAlDWWFST8EHDsKcT9 nIcEhppv5FFsJiy1gvbOe1e/zdwx1vJqeN6wDwWbPWkcDsDLGZx4s73vv5CJqXlK2pLkNvD+A JtbYDeYZSwaeRel0Hbv1iu2Nk0lJkXPtbazhbtaNlMcnTBBLeOCsRAhHJxJswvZR5ImsbZlA/ xyo3oCulblHcyuul42BifZi51cYm7PLkjcLkAmbxdJ6z4GtXhuCu/oTMUrEU6zSGo/U75sDZ2 AuuqooLmR1mRh9gaJaQ1ZqhNXsNgpORWp6csEg7JOciHSIQ52lPUYNpesbU8g7gyeRUA6QWGz GPOZbG87hQqIgtBHl6NH8xMQy6Vz3qpXs3eSbph4Au/6B/1tkgfPvjKXDxQoP8kUrgf+eV5tU ncnDlJmeQNwV9b/iFxrMVUJnaFs04n3MiTcdfzuWEAYbLD9sud595x6QObUSS/DZiYwiYbct Received-SPF: pass client-ip=212.227.17.21; envelope-from=michael.albinus@gmx.de; helo=mout.gmx.net X-detected-operating-system: by eggs.gnu.org: First seen = 2020/05/03 08:13:42 X-ACL-Warn: Detected OS = Linux 2.2.x-3.x [generic] X-Spam_score_int: -25 X-Spam_score: -2.6 X-Spam_bar: -- X-Spam_report: (-2.6 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H2=-0.001, SPF_PASS=-0.001, URIBL_BLOCKED=0.001 autolearn=_AUTOLEARN 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:248679 Archived-At: Stefan Monnier writes: >> +(defvar inside-emacs-functions nil > [...] >> +(defun inside-emacs (&optional context) >> + "Return the string to be set in environment variable INSIDE_EMACS. >> +CONTEXT could be a string which is added." >> + (mapconcat >> + #'identity >> + (delq nil (append `(,emacs-version >> + ,(and (stringp context) context)) >> + (mapcar #'funcall inside-emacs-functions))) >> + ",")) > > Any chance we could live without `inside-emacs-functions` and instead do: > > (defun inside-emacs (&optional context) > "Return the string to be set in environment variable INSIDE_EMACS. > CONTEXT could be a string which is added." > (let ((base (or (getenv "INSIDE_EMACS") emacs-version))) > (if context (concat case "," context) base))) No. The point is that it is dynamic, whether Tramp needs to add a substring to INSIDE_EMACS, or not. Compare --8<---------------cut here---------------start------------->8--- (let ((default-directory "/")) (inside-emacs "foo")) => "28.0.50,foo" --8<---------------cut here---------------end--------------->8--- --8<---------------cut here---------------start------------->8--- (let ((default-directory "/ssh::/")) (inside-emacs "foo")) => "28.0.50,foo,tramp:2.5.0-pre" --8<---------------cut here---------------end--------------->8--- > -- Stefan Best regards, Michael.