[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: gnu: emacs: Handle pdump filenames that contain a
From: |
guix-commits |
Subject: |
branch master updated: gnu: emacs: Handle pdump filenames that contain a fingerprint. |
Date: |
Sun, 24 Oct 2021 04:50:26 -0400 |
This is an automated email from the git hooks/post-receive script.
lilyp pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new 49d19b3 gnu: emacs: Handle pdump filenames that contain a fingerprint.
49d19b3 is described below
commit 49d19b35cebd749510b7dddd773d76a3a96d1358
Author: Morgan Smith <Morgan.J.Smith@outlook.com>
AuthorDate: Tue Oct 19 15:10:09 2021 -0400
gnu: emacs: Handle pdump filenames that contain a fingerprint.
* gnu/packages/emacs.scm (emacs) [restore-emacs-pdmp]: Use lax regular
expressions to match files by the “.pdmp” file ending only. Adjust comment
accordingly.
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
gnu/packages/emacs.scm | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 6d9950d..22d8db3 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -182,15 +182,13 @@
(lambda* (#:key outputs target #:allow-other-keys)
(let* ((libexec (string-append (assoc-ref outputs "out")
"/libexec"))
- ;; each of these find-files should return one file
- (pdmp (find-files libexec "^emacs\\.pdmp$"))
- (pdmp-real (find-files libexec
- "^\\.emacs\\.pdmp-real$")))
- (for-each (lambda (wrapper real)
- (delete-file wrapper)
- (rename-file real wrapper))
- pdmp pdmp-real))
- #t))
+ ;; each of these ought to only match a single file,
+ ;; but even if not (find-files) sorts by string<,
+ ;; so the Nth element in one maps to the Nth element of
+ ;; the other
+ (pdmp (find-files libexec "\\.pdmp$"))
+ (pdmp-real (find-files libexec "\\.pdmp-real$")))
+ (for-each rename-file pdmp-real pdmp))))
(add-after 'glib-or-gtk-wrap 'strip-double-wrap
(lambda* (#:key outputs #:allow-other-keys)
;; Directly copy emacs-X.Y to emacs, so that it is not wrapped
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: gnu: emacs: Handle pdump filenames that contain a fingerprint.,
guix-commits <=