Fix the `with-demoted-errors' calls

* lisp/emacs-lisp/package.el (package-activate-1): Fix the
`with-demoted-errors' calls: the first argument must be a string literal.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1d866b1d5ea21f77122943f31ec4f72919f235a..8978bde017dfb0a19042490a739657c7a390c56a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * emacs-lisp/package.el: Avoid compilation warning by declaring
        the `find-library-name' function.
+       (package-activate-1): Fix the `with-demoted-errors' calls:
+       the first argument must be a string literal.
 
 2014-12-18  Martin Rudalics  <rudalics@gmx.at>
 

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index c25c29a89cb4d8d8386bf039af993a385ff1a8bf..80b7670c1f02a998f6521cb5870064a1eb6efe25 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -532,7 +532,7 @@ correspond to previously loaded files (those returned by
            (autoloads-file (expand-file-name
                             (format "%s-autoloads" name) pkg-dir))
            (loaded-files-list (and reload (package--list-loaded-files pkg-dir))))
-      (with-demoted-errors (format "Error loading %s: %%s" name)
+      (with-demoted-errors "Error in package-activate-1: %s"
         (load autoloads-file nil t))
       (when (and (eq old-lp load-path)
                  (not (or (member pkg-dir load-path)
@@ -545,7 +545,7 @@ correspond to previously loaded files (those returned by
       ;; to their new definitions.  If another package is being installed which
       ;; depends on this new definition, not doing this update would cause
       ;; compilation errors and break the installation.
-      (with-demoted-errors (format "Error loading %s: %%s" name)
+      (with-demoted-errors "Error in package-activate-1: %s"
        (mapc (lambda (feature) (load feature nil t))
               ;; Skip autoloads file since we already evaluated it above.
               (remove (file-truename autoloads-file) loaded-files-list))))