diff options
Diffstat (limited to 'guix/build/emacs-build-system.scm')
| -rw-r--r-- | guix/build/emacs-build-system.scm | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/guix/build/emacs-build-system.scm b/guix/build/emacs-build-system.scm index 3fc9020d62..3436c5a1a6 100644 --- a/guix/build/emacs-build-system.scm +++ b/guix/build/emacs-build-system.scm @@ -168,8 +168,6 @@ locations in the store in '.el' files." (define* (ensure-package-description #:key outputs #:allow-other-keys) (define (write-pkg-file name) - (define summary-regexp - "^;;; [^ ]*\\.el ---[ \t]*\\(.*?\\)[ \t]*\\(-\\*-.*-\\*-[ \t]*\\)?$") (define %write-pkg-file-form `(progn (require 'lisp-mnt) @@ -188,16 +186,8 @@ locations in the store in '.el' files." ;; raises an error if version is invalid (and (version-to-list version) version)) (error "0.0.0")) - (or (save-excursion - (goto-char (point-min)) - (and (re-search-forward ,summary-regexp nil t) - (match-string-no-properties 1))) - package--default-summary) - (let ((require-lines (lm-header-multiline "package-requires"))) - (and require-lines - (package--prepare-dependencies - (package-read-from-string - (mapconcat 'identity require-lines " "))))) + (or (lm-summary) package--default-summary) + (lm-package-requires) :kind 'single :url (lm-homepage) :keywords (lm-keywords-list) |