From patchwork Tue Mar 30 15:51:01 2021 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Maxim Cournoyer X-Patchwork-Id: 28199 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id A70E127BC66; Tue, 30 Mar 2021 16:52:10 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.8 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H4, RCVD_IN_MSPIKE_WL,SPF_HELO_PASS,T_DKIM_INVALID,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.2 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id C992027BC65 for ; Tue, 30 Mar 2021 16:52:09 +0100 (BST) Received: from localhost ([::1]:35572 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lRGf2-0006NT-TV for patchwork@mira.cbaines.net; Tue, 30 Mar 2021 11:52:08 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:42580) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lRGew-0006N3-0I for guix-patches@gnu.org; Tue, 30 Mar 2021 11:52:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:41162) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lRGev-00089t-Of for guix-patches@gnu.org; Tue, 30 Mar 2021 11:52:01 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lRGev-0005fa-Mg for guix-patches@gnu.org; Tue, 30 Mar 2021 11:52:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#43627] [PATCH core-updates v2 1/2] guix: Add an append-separator? field to the record. Resent-From: Maxim Cournoyer Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 30 Mar 2021 15:52:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 43627 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 43627@debbugs.gnu.org Cc: ludo@gnu.org, Maxim Cournoyer Received: via spool by 43627-submit@debbugs.gnu.org id=B43627.161711948421741 (code B ref 43627); Tue, 30 Mar 2021 15:52:01 +0000 Received: (at 43627) by debbugs.gnu.org; 30 Mar 2021 15:51:24 +0000 Received: from localhost ([127.0.0.1]:52706 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lRGeJ-0005eZ-Si for submit@debbugs.gnu.org; Tue, 30 Mar 2021 11:51:24 -0400 Received: from mail-qv1-f54.google.com ([209.85.219.54]:39829) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lRGeG-0005eF-T9 for 43627@debbugs.gnu.org; Tue, 30 Mar 2021 11:51:22 -0400 Received: by mail-qv1-f54.google.com with SMTP id q9so8359164qvm.6 for <43627@debbugs.gnu.org>; Tue, 30 Mar 2021 08:51:20 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; bh=CUGpTFIO8NX/rF572Aw7kNol4yrge2C/QwdSDs7cEYE=; b=i+Bph2Z1jUzkkZF033GvODqb7VfK59Qi+e+MshfAgA9plriamhPu55wYQH0Y2v4drr bW0shwVofCZX448m8oUGJiO0GxK6nySuCpuFdbm2ejY+/j6ZnbEXi2/FYaFuIv06gu2y 6lUKswioVPr/jn9i45eZtBp5LU9HzySB42snVCc5ow3o4QctXQ1lUavSQEe+TYWo96Vu 7pvQsND7GzXUbqWwI/Qcd0FyStFwtVXSOXjTVsZgNtwZAtrudQvQQ51/xnBTd3yWcaqp zUp8RwlHN2zKvdJ21fpI+RuQRjAcssIFc2B8oN2nN42Kmo5JdFUTlGF7XPs5AUiYDOwQ Y9rQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references:mime-version:content-transfer-encoding; bh=CUGpTFIO8NX/rF572Aw7kNol4yrge2C/QwdSDs7cEYE=; b=kz68uDMwVmLD6/EQk3lj9ZYb2ZNA4BRWhxmY15w4MSZt57kzvAaZGdNarpfRKzh1A2 xifBvkPkLjy+0f5EZ8XB3dNOzIQyqMDLgJtuJGrnQZOZWoHaj7ybdEmjUZMv3hzpGahS Tz0JI312h+O5xCT96KLkJ0+xnDVZKVxoxDbAiLl+iTp46QWkN4yL9TTjP63mjvXvTJ/V NH07s7ap+HYs3OTkmGRBuq+0pvLkaYC5h2Eg09enY8orAKEp1vzxtRTTJ1wpTb1ak+wj sJlM1MXaqBWmYZKU2ZtmCjR31a0TlhfH1iB5fHyhGYkb0lOgqcTFXr/Vspx4z+Xx5xgK i2mQ== X-Gm-Message-State: AOAM530Emr+rL6WirWR4tlsKDPF5WRKS2v6KGB6gHZZdTLDSjVn+WgQH gMjxNSYOzbb/b+dcdVDNNg6oIUn+m5UlYA== X-Google-Smtp-Source: ABdhPJzPrxI0ire2jGRRJXoyjdGgieOcZ+/VmDwoEUcLCoBUQ4k3SgawPHfFFLx32cP+Z0eHIWeVYw== X-Received: by 2002:a05:6214:8c4:: with SMTP id da4mr30410145qvb.17.1617119474807; Tue, 30 Mar 2021 08:51:14 -0700 (PDT) Received: from localhost.localdomain ([207.35.95.145]) by smtp.gmail.com with ESMTPSA id e3sm891045qkn.99.2021.03.30.08.51.13 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 30 Mar 2021 08:51:14 -0700 (PDT) From: Maxim Cournoyer Date: Tue, 30 Mar 2021 11:51:01 -0400 Message-Id: <20210330155102.16610-1-maxim.cournoyer@gmail.com> X-Mailer: git-send-email 2.31.1 In-Reply-To: <87blhtt6d6.fsf@gmail.com> References: <87blhtt6d6.fsf@gmail.com> MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches This new field allows to specify in a search-path-specification that a trailing separator should be added to the computed value of the environment variable. A trailing separator sometimes has the meaning that the usual builtin locations should be looked up as well as the ones explicitly specified. One use case is to specify the Emacs library paths using EMACSLOADPATH. This allows to not embed the Emacs version in its search path specification, which has been shown to cause issues when upgrading a profile or when defining variant Emacs packages of different versions. * guix/search-paths.scm (searh-path-specification): Add an APPEND-SEPARATOR? field. (search-path-specification->sexp): Adjust accordingly. (sexp->search-path-specification): Likewise. (evaluate-search-paths): Append a separator to the search path value when both `separator' and `append-separator?' are #t. Document the new behavior. * guix/scripts/environment.scm (create-environment): Adjust the logic used to merge search-path values when creating an environment profile. * guix/build/gnu-build-system.scm (set-paths): Adjust accordingly. --- guix/build/gnu-build-system.scm | 12 ++++---- guix/build/profiles.scm | 13 ++++++--- guix/build/utils.scm | 12 ++++++-- guix/scripts/environment.scm | 11 ++++++-- guix/search-paths.scm | 49 +++++++++++++++++++++++---------- 5 files changed, 69 insertions(+), 28 deletions(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index af64b3b61f..1e4d8fecb4 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès ;;; Copyright © 2018 Mark H Weaver ;;; Copyright © 2020 Brendan Tildesley -;;; Copyright © 2021 Maxim Cournoyer +;;; Copyright © 2020, 2021 Maxim Cournoyer ;;; ;;; This file is part of GNU Guix. ;;; @@ -100,23 +100,25 @@ there are none." input-directories))) (for-each (match-lambda - ((env-var (files ...) separator type pattern) + ((env-var (files ...) separator type pattern append-sep) (set-path-environment-variable env-var files input-directories #:separator separator #:type type - #:pattern pattern))) + #:pattern pattern + #:append-separator? append-sep))) search-paths) (when native-search-paths ;; Search paths for native inputs, when cross building. (for-each (match-lambda - ((env-var (files ...) separator type pattern) + ((env-var (files ...) separator type pattern append-sep) (set-path-environment-variable env-var files native-input-directories #:separator separator #:type type - #:pattern pattern))) + #:pattern pattern + #:append-separator? append-sep))) native-search-paths))) (define* (install-locale #:key diff --git a/guix/build/profiles.scm b/guix/build/profiles.scm index a40c3f96de..83a4c4dd94 100644 --- a/guix/build/profiles.scm +++ b/guix/build/profiles.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès +;;; Copyright © 2020 Maxim Cournoyer ;;; ;;; This file is part of GNU Guix. ;;; @@ -20,6 +21,7 @@ #:use-module (guix build union) #:use-module (guix build utils) #:use-module (guix search-paths) + #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:use-module (ice-9 ftw) #:use-module (ice-9 match) @@ -51,10 +53,13 @@ user-friendly name of the profile is, for instance ~/.guix-profile rather than ((? string? separator) (let ((items (string-tokenize* value separator))) (cons search-path - (string-join (map (lambda (str) - (string-append replacement (crop str))) - items) - separator))))))))) + (string-join + (map (lambda (str) + (string-append replacement (crop str))) + ;; When APPEND-SEPARATOR? is #t, the trailing + ;; separator causes an empty string item. Remove it. + (remove string-null? items)) + separator))))))))) (define (write-environment-variable-definition port) "Write the given environment variable definition to PORT." diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 6c37021673..354be2e6e3 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -573,7 +573,8 @@ for under the directories designated by FILES. For example: #:key (separator ":") (type 'directory) - pattern) + pattern + (append-separator? #f)) "Look for each of FILES of the given TYPE (a symbol as returned by 'stat:type') in INPUT-DIRS. Set ENV-VAR to a SEPARATOR-separated path accordingly. Example: @@ -590,11 +591,16 @@ denoting file names to look for under the directories designated by FILES: (list docbook-xml docbook-xsl) #:type 'regular #:pattern \"^catalog\\\\.xml$\") -" + +When both SEPARATOR and APPEND-SEPARATOR? are true, a separator is appended to +the value of the environment variable." (let* ((path (search-path-as-list files input-dirs #:type type #:pattern pattern)) - (value (list->search-path-as-string path separator))) + (value (list->search-path-as-string path separator)) + (value (if append-separator? + (string-append value separator) + value))) (if (string-null? value) (begin ;; Never set ENV-VAR to an empty string because often, the empty diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm index 0360761683..c0e081a4bc 100644 --- a/guix/scripts/environment.scm +++ b/guix/scripts/environment.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2014, 2015, 2018 David Thompson ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès ;;; Copyright © 2018 Mike Gerwitz +;;; Copyright © 2020 Maxim Cournoyer ;;; ;;; This file is part of GNU Guix. ;;; @@ -81,12 +82,18 @@ variables with additional search paths." (when pure? (purify-environment white-list)) (for-each (match-lambda - ((($ variable _ separator) . value) + ((($ variable _ separator _ + append-separator?) . value) (let ((current (getenv variable))) (setenv variable (if (and current (not pure?)) (if separator - (string-append value separator current) + (if append-separator? + ;; There is already a trailing separator + ;; at the end of value. + ;; (see: `evaluate-search-paths'). + (string-append value current separator) + (string-append value separator current)) value) value))))) (profile-search-paths profile manifest)) diff --git a/guix/search-paths.scm b/guix/search-paths.scm index 002e6342bb..d783a2815f 100644 --- a/guix/search-paths.scm +++ b/guix/search-paths.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2014, 2015, 2017, 2018 Ludovic Courtès +;;; Copyright © 2020 Maxim Cournoyer ;;; ;;; This file is part of GNU Guix. ;;; @@ -30,6 +31,7 @@ search-path-specification-separator search-path-specification-file-type search-path-specification-file-pattern + search-path-specification-append-separator? $PATH @@ -54,14 +56,16 @@ (define-record-type* search-path-specification make-search-path-specification search-path-specification? - (variable search-path-specification-variable) ;string - (files search-path-specification-files) ;list of strings - (separator search-path-specification-separator ;string | #f - (default ":")) - (file-type search-path-specification-file-type ;symbol - (default 'directory)) - (file-pattern search-path-specification-file-pattern ;#f | string - (default #f))) + (variable search-path-specification-variable) ;string + (files search-path-specification-files) ;list of strings + (separator search-path-specification-separator ;string | #f + (default ":")) + (file-type search-path-specification-file-type ;symbol + (default 'directory)) + (file-pattern search-path-specification-file-pattern ;#f | string + (default #f)) + (append-separator? search-path-specification-append-separator? ;#f | #t + (default #f))) (define $PATH ;; The 'PATH' variable. This variable is a bit special: it is not attached @@ -76,20 +80,32 @@ corresponds to the arguments expected by `set-path-environment-variable'." ;; Note that this sexp format is used both by build systems and in ;; (guix profiles), so think twice before you change it. (match spec - (($ variable files separator type pattern) - `(,variable ,files ,separator ,type ,pattern)))) + (($ variable files separator type pattern + append-separator?) + `(,variable ,files ,separator ,type ,pattern ,append-separator?)))) (define (sexp->search-path-specification sexp) "Convert SEXP, which is as returned by 'search-path-specification->sexp', to a object." (match sexp + ((variable files separator type pattern append-separator?) + (search-path-specification + (variable variable) + (files files) + (separator separator) + (file-type type) + (file-pattern pattern) + (append-separator? append-separator?))) + ;; Previous search-path-specification form (without append-separator? + ;; might still be found in manifest files. ((variable files separator type pattern) (search-path-specification (variable variable) (files files) (separator separator) (file-type type) - (file-pattern pattern))))) + (file-pattern pattern) + (append-separator? #f))))) (define-syntax-rule (with-null-error-port exp) "Evaluate EXP with the error port pointing to the bit bucket." @@ -131,7 +147,9 @@ like `string-tokenize', but SEPARATOR is a string." "Evaluate SEARCH-PATHS, a list of search-path specifications, for DIRECTORIES, a list of directory names, and return a list of specification/value pairs. Use GETENV to determine the current settings and -report only settings not already effective." +report only settings not already effective. When the search path +specification APPEND-SEPARATOR? and SEPARATOR fields are both set to true, a +separator is appended to its computed value." (define (search-path-definition spec) (match spec (($ variable files #f type pattern) @@ -148,7 +166,7 @@ report only settings not already effective." #f ;VARIABLE already set appropriately (cons spec head)))))) (($ variable files separator - type pattern) + type pattern append-separator?) (let* ((values (or (and=> (getenv variable) (cut string-tokenize* <> separator)) '())) @@ -161,7 +179,10 @@ report only settings not already effective." #:pattern pattern)))) (if (every (cut member <> values) path) #f ;VARIABLE is already set appropriately - (cons spec (string-join path separator))))))) + (let ((value (string-join path separator))) + (cons spec (if append-separator? + (string-append value separator) + value)))))))) (filter-map search-path-definition search-paths)) From patchwork Tue Mar 30 15:51:02 2021 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Maxim Cournoyer X-Patchwork-Id: 28200 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 1B11F27BC66; Tue, 30 Mar 2021 16:52:11 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.8 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H4, RCVD_IN_MSPIKE_WL,SPF_HELO_PASS,T_DKIM_INVALID,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.2 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id DFC5B27BC65 for ; Tue, 30 Mar 2021 16:52:10 +0100 (BST) Received: from localhost ([::1]:35616 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lRGf3-0006Op-Vl for patchwork@mira.cbaines.net; Tue, 30 Mar 2021 11:52:10 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:42582) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lRGew-0006NB-E8 for guix-patches@gnu.org; Tue, 30 Mar 2021 11:52:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:41163) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lRGew-0008AU-60 for guix-patches@gnu.org; Tue, 30 Mar 2021 11:52:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lRGew-0005fi-57 for guix-patches@gnu.org; Tue, 30 Mar 2021 11:52:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#43627] [PATCH core-updates v2 2/2] gnu: emacs: Use the new append-separator? option to define its search path. Resent-From: Maxim Cournoyer Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 30 Mar 2021 15:52:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 43627 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 43627@debbugs.gnu.org Cc: ludo@gnu.org, Maxim Cournoyer Received: via spool by 43627-submit@debbugs.gnu.org id=B43627.161711948521747 (code B ref 43627); Tue, 30 Mar 2021 15:52:02 +0000 Received: (at 43627) by debbugs.gnu.org; 30 Mar 2021 15:51:25 +0000 Received: from localhost ([127.0.0.1]:52708 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lRGeK-0005ec-LG for submit@debbugs.gnu.org; Tue, 30 Mar 2021 11:51:24 -0400 Received: from mail-qt1-f170.google.com ([209.85.160.170]:46747) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lRGeH-0005eH-MF for 43627@debbugs.gnu.org; Tue, 30 Mar 2021 11:51:22 -0400 Received: by mail-qt1-f170.google.com with SMTP id y2so12201890qtw.13 for <43627@debbugs.gnu.org>; Tue, 30 Mar 2021 08:51:21 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; bh=gKp2nedpJU9n9Y4tthNgqncly0SlqXil4yLfNnjc2Ho=; b=nG8IH0PAYg26N8CGtsEGE1WEKzx8Nk7KHJtNDOuBBEh6ffHkz+9wDPsSiJ48MoLsPL iMcpGbJ1qo+j5iqefVAcAY4jmkikkcLdjrIXni1RZg9UDEDQTn0jlwqoBT3kT67yszmB hHOdlcGefs2vn0vqmoPBzuqfRYz2Pi5bibunnHSx/G0j07uXGuvYBRzHour7O0d/RCMX ifm3QKIC1otkSfgv3PyjKdxUZje4EvgWoialazL4S3N13zdiozVM7OdiTSYoRNqCB6da /AtG1LJdl3CPlpqJp16bKprh2kn7xYVyV82d/lvc6pYwonY3HcimU6SLTfUB3Gb35qoX unOA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references:mime-version:content-transfer-encoding; bh=gKp2nedpJU9n9Y4tthNgqncly0SlqXil4yLfNnjc2Ho=; b=DTLwLIg302v2u0G/FGDz08RMeXNHjeGhUui2CFjD06mZcUn0VqhirP/7sBAqhjdSVC nSFVOumg9RRdV+426AdOtHhKaS6lu5WqZeXFBlHYi6Op+ZTfwl72xBkQwWMps5UtQW25 oKFSICQzCAK9S6WW95O94Cy0Z8+xQLL88F49N22t3W7bpae42ZRo4xwWxffIeM2lUSS3 YfGFH9oDWT+jx5GevCKrXWKCq3gNa40TaBgSpIeWYc7VQhx35bCUBnsYXThqRHEpLxdu frhaIQjpGQA31FnoUmUfRKO4h2IVZPT+fpQygoIoSTfpVRXpCX1LeMLC5LxivBjP0zAn ocVg== X-Gm-Message-State: AOAM533EzuOeY9e4COUXJC6mwKutYUzVT9QHXnTrg+xr5MlSI/qMSWdm fMW/yEg6B7V/rHI77MHXZL/+2J1TKQNt9Q== X-Google-Smtp-Source: ABdhPJxDBJRr+sIf3cEtm61VlKiMt5KUnibGoaqdO9Btmp+iSsNQpRSQhYyPM+2+Z//JDG+u0RVxSA== X-Received: by 2002:ac8:5cc4:: with SMTP id s4mr27925064qta.214.1617119475819; Tue, 30 Mar 2021 08:51:15 -0700 (PDT) Received: from localhost.localdomain ([207.35.95.145]) by smtp.gmail.com with ESMTPSA id e3sm891045qkn.99.2021.03.30.08.51.14 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 30 Mar 2021 08:51:15 -0700 (PDT) From: Maxim Cournoyer Date: Tue, 30 Mar 2021 11:51:02 -0400 Message-Id: <20210330155102.16610-2-maxim.cournoyer@gmail.com> X-Mailer: git-send-email 2.31.1 In-Reply-To: <20210330155102.16610-1-maxim.cournoyer@gmail.com> References: <87blhtt6d6.fsf@gmail.com> <20210330155102.16610-1-maxim.cournoyer@gmail.com> MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches Fixes . * gnu/packages/emacs.scm (emacs): Remove the versioned lisp file name from the search path, and set the append-separator? field to #t. --- gnu/packages/emacs.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index fe5b3b25b3..148593e355 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -261,9 +261,8 @@ (native-search-paths (list (search-path-specification (variable "EMACSLOADPATH") - ;; The versioned entry is for the Emacs' builtin libraries. - (files (list "share/emacs/site-lisp" - (string-append "share/emacs/" version "/lisp")))) + (files (list "share/emacs/site-lisp")) + (append-separator? #t)) (search-path-specification (variable "INFOPATH") (files '("share/info")))))