; Fix test resulting from 5744519e

* lisp/emacs-lisp/package.el (package-install): Delete dead code
resulting from previous change.
* test/lisp/emacs-lisp/package-tests.el
(package-test-install-single): Adjust code to expect
'user-error'

1 files changed, 6 insertions, 6 deletions

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 5118f25f468..70e88d081fa 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2280,15 +2280,15 @@ had been enabled."
                     nil t))
            nil)))
   (cl-check-type pkg (or symbol package-desc))
-  (when (or (and package-install-upgrade-built-in
-                 (package--active-built-in-p pkg))
-            (package-installed-p pkg))
-    (user-error "Package is already installed"))
   (package--archives-initialize)
   (add-hook 'post-command-hook #'package-menu--post-refresh)
   (let ((name (if (package-desc-p pkg)
                   (package-desc-name pkg)
                 pkg)))
+    (when (or (and package-install-upgrade-built-in
+                   (package--active-built-in-p pkg))
+              (package-installed-p pkg))
+      (user-error "`%s' is already installed" name))
     (unless (or dont-select (package--user-selected-p name))
       (package--save-selected-packages
        (cons name package-selected-packages)))
@@ -2304,8 +2304,8 @@ had been enabled."
         (progn
           (package-download-transaction transaction)
           (package--quickstart-maybe-refresh)
-          (message  "Package `%s' installed." name))
-      (message "`%s' is already installed" name))))
+          (message  "Package `%s' installed." name)))))
+
 
 (declare-function package-vc-upgrade "package-vc" (pkg))