BUG catch: redo work of package-activate-1

This commit is contained in:
Gerard Vermeulen 2022-01-11 14:22:02 +01:00
parent c9bd9ff813
commit c44dae6309

View File

@ -302,14 +302,22 @@ the contents of packages and allows to update packages to the latest version.
:CUSTOM_ID: sec:info-documentation
:END:
Listing [[lst:configure-info]] adds a path in my home directory to the places where
=info= looks for files.
Listing [[lst:configure-info]] fixes what looks like a bug in Emacs-28.0.91 and adds
a path in my home directory to the places where =info= looks for files.
#+caption[Configure =info=]:
#+caption: Configure =info=.
#+name: lst:configure-info
#+begin_src emacs-lisp
(with-eval-after-load 'info
(unless (version< emacs-version "28.0")
;; Why is this necessary after `package-activate-1'?
(dolist (item package-alist)
(let ((pkg-dir (package-desc-dir (cadr item))))
(when (file-exists-p (expand-file-name "dir" pkg-dir))
(cl-pushnew pkg-dir Info-directory-list :test #'equal)))))
;; Emacs should find my "python.info" file.
(add-to-list 'Info-directory-list
(expand-file-name "~/.local/share/info")))
#+end_src