emacs-build-system: Fix 'package-name-version->elpa-name-version'.

Fixes a regression introduced in b7c7c03eb5.

* guix/build/emacs-build-system.scm (package-name-version->elpa-name-version):
  Remove unused 'name' binding.  Do not abuse 'strip-store-file-name' to
  remove the "emacs-" prefix, which worked before b7c7c03eb5 but not after.
This commit is contained in:
Mark H Weaver 2015-09-23 17:34:54 -04:00
parent bd90127ad4
commit a05c06720a
1 changed files with 3 additions and 4 deletions

View File

@ -138,10 +138,9 @@ DIRS."
(define (package-name-version->elpa-name-version name-ver)
"Convert the Guix package NAME-VER to the corresponding ELPA name-version
format. Essnetially drop the prefix used in Guix."
(let ((name (strip-store-file-name name-ver)))
(if (emacs-package? name-ver)
(strip-store-file-name name-ver)
name-ver)))
(if (emacs-package? name-ver) ; checks for "emacs-" prefix
(string-drop name-ver (string-length "emacs-"))
name-ver))
(define (store-directory->elpa-name-version store-dir)
"Given a store directory STORE-DIR return the part of the basename after the