Function: package-activate-1

package-activate-1 is a byte-compiled function defined in package.el.gz.

Signature

(package-activate-1 PKG-DESC &optional RELOAD DEPS)

Documentation

Activate package given by PKG-DESC, even if it was already active.

If DEPS is non-nil, also activate its dependencies (unless they are already activated). If RELOAD is non-nil, also load any files inside the package which correspond to previously loaded files.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/package.el.gz
(defun package-activate-1 (pkg-desc &optional reload deps)
  "Activate package given by PKG-DESC, even if it was already active.
If DEPS is non-nil, also activate its dependencies (unless they
are already activated).
If RELOAD is non-nil, also `load' any files inside the package which
correspond to previously loaded files."
  (let* ((name (package-desc-name pkg-desc))
         (pkg-dir (package-desc-dir pkg-desc)))
    (unless pkg-dir
      (error "Internal error: unable to find directory for `%s'"
             (package-desc-full-name pkg-desc)))
    (catch 'exit
      ;; Activate its dependencies recursively.
      ;; FIXME: This doesn't check whether the activated version is the
      ;; required version.
      (when deps
        (dolist (req (package-desc-reqs pkg-desc))
          (unless (package-activate (car req))
            (message "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable"
                     name (car req) (package-version-join (cadr req)))
            (throw 'exit nil))))
      (if (listp package--quickstart-pkgs)
          ;; We're only collecting the set of packages to activate!
          (push pkg-desc package--quickstart-pkgs)
        (when reload
          (package--reload-previously-loaded pkg-desc))
        (with-demoted-errors "Error loading autoloads: %s"
          (load (package--autoloads-file-name pkg-desc) nil t))
        ;; FIXME: Since 2013 (commit 4fac34cee97a), the autoload files take
        ;; care of changing the `load-path', so maybe it's time to
        ;; remove this fallback code?
        (unless (or (member (file-name-as-directory pkg-dir) load-path)
                    (member (directory-file-name pkg-dir) load-path))
          (add-to-list 'load-path pkg-dir)))
      ;; Add info node.
      (when (file-exists-p (expand-file-name "dir" pkg-dir))
        ;; FIXME: not the friendliest, but simple.
        (require 'info)
        (info-initialize)
        (add-to-list 'Info-directory-list pkg-dir))
      (push name package-activated-list)
      ;; Don't return nil.
      t)))