Remove obsolete work-around

This commit is contained in:
Gerard Vermeulen 2022-04-04 18:27:58 +02:00
parent 827ebc527b
commit 29053831aa

View File

@ -548,21 +548,14 @@ the contents of packages and allows to update packages to the latest version.
:CUSTOM_ID: sec:info-documentation
:END:
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.
Listing [[lst:configure-info]] 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")))