From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:50122) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dCZHd-0003kO-0Q for guix-patches@gnu.org; Sun, 21 May 2017 18:25:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dCZHZ-0001rE-Sx for guix-patches@gnu.org; Sun, 21 May 2017 18:25:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:57022) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dCZHZ-0001r2-PW for guix-patches@gnu.org; Sun, 21 May 2017 18:25:01 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dCZHZ-0005ow-Jv for guix-patches@gnu.org; Sun, 21 May 2017 18:25:01 -0400 Subject: bug#26802: [PATCH 4/4] build: emacs: Fix `store-file->elisp-source-file'. Resent-Message-ID: From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) References: <20170517165246.14042-1-arunisaac@systemreboot.net> <87y3tqhamu.fsf@gmail.com> Date: Mon, 22 May 2017 00:24:08 +0200 In-Reply-To: <87y3tqhamu.fsf@gmail.com> (Alex Kost's message of "Sun, 21 May 2017 11:33:45 +0300") Message-ID: <87r2zhg86v.fsf@gnu.org> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: Alex Kost Cc: 26802@debbugs.gnu.org Alex Kost skribis: >> + (let ((extension ".el")) >> + (let-values (((name version) >> + (package-name->name+version >> + (strip-store-file-name >> + (string-drop-right >> + file (string-length extension)))))) >> + (string-append name extension)))) Pro tip: (string-drop-right =E2=80=A6) can be replaced by: (basename file ".el") :-) Ludo=E2=80=99.