masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Always wrap the expanded body from use-package in (progn)

Browse source
This commit is contained in:
John Wiegley 2017-12-01 10:23:06 -08:00
parent 21b9b6551d
commit f5b034154f
2 changed files with 65 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/use-package/use-package.el
View file

@ -1760,8 +1760,8 @@ this file. Usage:
(symbol-name name)) nil t)))))))))
(let ((body
(macroexp-progn
(use-package-process-keywords name
`(progn
,@(use-package-process-keywords name
(let ((args*
(use-package-sort-keywords
(if (and use-package-always-demand
@ -1787,6 +1787,7 @@ this file. Usage:
(emacs-lisp-mode)
(insert (pp-to-string body))
(current-buffer)))))
(message "body = %s" body)
body))))

71
test/lisp/use-package/use-package-tests.el
View file

@ -267,59 +267,59 @@
(ert-deftest use-package-test/:if ()
(match-expansion
(use-package foo :if t)
`(if (symbol-value 't)
(progn
`(progn
(when (symbol-value 't)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :if (and t t))
`(if (and t t)
(progn
`(progn
(when (and t t)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :if nil)
`(if nil
(progn
`(progn
(when nil
(require 'foo nil 'nil)))))
(ert-deftest use-package-test/:when ()
(match-expansion
(use-package foo :when t)
`(if (symbol-value 't)
(progn
`(progn
(when (symbol-value 't)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :when (and t t))
`(if (and t t)
(progn
`(progn
(when (and t t)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :when nil)
`(if nil
(progn
`(progn
(when nil
(require 'foo nil 'nil)))))
(ert-deftest use-package-test/:when ()
(ert-deftest use-package-test/:unless ()
(match-expansion
(use-package foo :unless t)
`(if (symbol-value 't)
nil
(require 'foo nil 'nil)))
`(progn
(unless (symbol-value 't)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :unless (and t t))
`(if (and t t)
nil
(require 'foo nil 'nil)))
`(progn
(unless (and t t)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :unless nil)
`(if nil
nil
(require 'foo nil 'nil))))
`(progn
(unless nil
(require 'foo nil 'nil)))))
;; (ert-deftest use-package-test/:requires ()
;; (should (equal (macroexpand (use-package))
@ -446,7 +446,8 @@
(ert-deftest use-package-test/:defines ()
(match-expansion
(use-package foo :defines bar)
`(require 'foo nil 'nil))
`(progn
(require 'foo nil 'nil)))
(let ((byte-compile-current-file t))
(match-expansion
@ -463,7 +464,8 @@
(ert-deftest use-package-test/:functions ()
(match-expansion
(use-package foo :functions bar)
`(require 'foo nil 'nil))
`(progn
(require 'foo nil 'nil)))
(let ((byte-compile-current-file t))
(match-expansion
@ -479,13 +481,17 @@
(match-expansion
(use-package foo :defer t :functions bar)
`nil)
`(progn))
;; jww (2017-12-01): This exposes a bug.
;; (let ((byte-compile-current-file t))
;; (match-expansion
;; (use-package foo :defer t :functions bar)
;; `'nil))
(let ((byte-compile-current-file t))
(match-expansion
(use-package foo :defer t :functions bar)
`(progn
(eval-and-compile
(declare-function bar "foo")
(eval-when-compile
(with-demoted-errors "Cannot load foo: %S" nil
(load "foo" nil t)))))))
(let ((byte-compile-current-file t))
(match-expansion
@ -576,8 +582,9 @@
(ert-deftest use-package-test/:after ()
(match-expansion
(use-package foo :after bar)
`(eval-after-load 'bar
'(require 'foo nil t))))
`(progn
(eval-after-load 'bar
'(require 'foo nil t)))))
;; (ert-deftest use-package-test/:demand ()
;; (should (equal (macroexpand (use-package))