Move :pin out of macro expansion phase

lisp/use-package/use-package.el

@@ -419,23 +419,23 @@ manually updated package."
   (let ((archive-symbol (if (symbolp archive) archive (intern archive)))
         (archive-name   (if (stringp archive) archive (symbol-name archive))))
     (if (use-package--archive-exists-p archive-symbol)
-        (push (cons package archive-name) package-pinned-packages)
+        (add-to-list 'package-pinned-packages (cons package archive-name) t)
       (error "Archive '%s' requested for package '%s' is not available."
              archive-name package))
     (package-initialize t)))
 
 (defun use-package-handler/:pin (name keyword archive-name rest state)
-  (let ((body (use-package-process-keywords name rest state)))
+  (let ((body (use-package-process-keywords name rest state))
-    ;; This happens at macro expansion time, not when the expanded code is
+        (pin-form (if archive-name
-    ;; compiled or evaluated.
+                      `(use-package-pin-package ',name ,archive-name))))
-    (if (null archive-name)
+    ;; We want to avoid pinning packages when the `use-package'
-        body
+    ;; macro is being macro-expanded by elisp completion (see
-      (use-package-pin-package name archive-name)
+    ;; `lisp--local-variables'), but still do pin packages when
-      (use-package-concat
+    ;; byte-compiling to avoid requiring `package' at runtime.
-       body
+    (if (bound-and-true-p byte-compile-current-file)
-       `((push '(,(use-package-as-symbol name) . ,archive-name)
+        (eval pin-form)              ; Eval when byte-compiling,
-               package-pinned-packages)
+      (push pin-form body))          ; or else wait until runtime.
-         t)))))
+    body))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;