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

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

@ -1760,25 +1760,25 @@ this file. Usage:
(symbol-name name)) nil t)))))))))
(let ((body
(macroexp-progn
(use-package-process-keywords name
(let ((args*
(use-package-sort-keywords
(if (and use-package-always-demand
(not (memq :defer args)))
(plist-put args :demand t)
args))))
(when (and use-package-always-ensure
(plist-member args* :load-path)
(not (plist-member orig-args :ensure)))
(plist-put args* :ensure nil))
(unless (plist-member args* :init)
(plist-put args* :init nil))
(unless (plist-member args* :config)
(plist-put args* :config '(t)))
args*)
(and use-package-always-defer
(list :deferred t))))))
`(progn
,@(use-package-process-keywords name
(let ((args*
(use-package-sort-keywords
(if (and use-package-always-demand
(not (memq :defer args)))
(plist-put args :demand t)
args))))
(when (and use-package-always-ensure
(plist-member args* :load-path)
(not (plist-member orig-args :ensure)))
(plist-put args* :ensure nil))
(unless (plist-member args* :init)
(plist-put args* :init nil))
(unless (plist-member args* :config)
(plist-put args* :config '(t)))
args*)
(and use-package-always-defer
(list :deferred t))))))
(when use-package-debug
(display-buffer
(save-current-buffer
@ -1787,6 +1787,7 @@ this file. Usage:
(emacs-lisp-mode)
(insert (pp-to-string body))
(current-buffer)))))
(message "body = %s" body)
body))))

83
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
(require 'foo nil 'nil))))
`(progn
(when (symbol-value 't)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :if (and t t))
`(if (and t t)
(progn
(require 'foo nil 'nil))))
`(progn
(when (and t t)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :if nil)
`(if nil
(progn
(require 'foo nil 'nil)))))
`(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
(require 'foo nil 'nil))))
`(progn
(when (symbol-value 't)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :when (and t t))
`(if (and t t)
(progn
(require 'foo nil 'nil))))
`(progn
(when (and t t)
(require 'foo nil 'nil))))
(match-expansion
(use-package foo :when nil)
`(if nil
(progn
(require 'foo nil 'nil)))))
`(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))