Make Emacs find all info files in `package-user-dir' on Gentoo Linux

This commit is contained in:
Gerard Vermeulen 2022-09-02 17:28:15 +02:00
parent 5f2a01f1be
commit 8d94e433f3

View File

@ -740,6 +740,7 @@ the help facilities of Emacs.
| info | help-map | {{{kbd(C-h i)}}} | | info | help-map | {{{kbd(C-h i)}}} |
|------------------------------+----------+------------------| |------------------------------+----------+------------------|
** [[info:emacs#Name Help][Shortdoc-display-group (info)]] ** [[info:emacs#Name Help][Shortdoc-display-group (info)]]
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: sec:shortdoc-display-group :CUSTOM_ID: sec:shortdoc-display-group
@ -799,15 +800,24 @@ defined in this Org file.
:CUSTOM_ID: sec:info :CUSTOM_ID: sec:info
:END: :END:
Listing [[lst:configure-info]] adds a path in my home directory to the places where Listing [[lst:configure-info]] adds the required paths to the places where =info=
=info= looks for files. looks for files.
#+caption[Configure =info=]: #+caption[Configure =info=]:
#+caption: Configure =info=. #+caption: Configure =info=.
#+name: lst:configure-info #+name: lst:configure-info
#+begin_src emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load 'info (with-eval-after-load 'info
;; Emacs should find my "python.info" file. ;; Make Emacs find the "*.info" files in `package-user-dir' on Gentoo Linux.
(when (eq system-type 'gnu/linux)
(dolist (path
(nreverse
(mapcar
(lambda (name)
(expand-file-name (file-name-directory name)))
(directory-files-recursively package-user-dir "\\.info\\'"))))
(add-to-list 'Info-directory-list path nil #'file-equal-p)))
;; Make Emacs find my "python.info" file.
(add-to-list 'Info-directory-list (add-to-list 'Info-directory-list
(expand-file-name "~/.local/share/info"))) (expand-file-name "~/.local/share/info")))
#+end_src #+end_src