Make Emacs find all info files in `package-user-dir' on Gentoo Linux
This commit is contained in:
parent
5f2a01f1be
commit
8d94e433f3
16
README.org
16
README.org
@ -740,6 +740,7 @@ the help facilities of Emacs.
|
||||
| info | help-map | {{{kbd(C-h i)}}} |
|
||||
|------------------------------+----------+------------------|
|
||||
|
||||
|
||||
** [[info:emacs#Name Help][Shortdoc-display-group (info)]]
|
||||
:PROPERTIES:
|
||||
:CUSTOM_ID: sec:shortdoc-display-group
|
||||
@ -799,15 +800,24 @@ defined in this Org file.
|
||||
:CUSTOM_ID: sec:info
|
||||
:END:
|
||||
|
||||
Listing [[lst:configure-info]] adds a path in my home directory to the places where
|
||||
=info= looks for files.
|
||||
Listing [[lst:configure-info]] adds the required paths 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
|
||||
;; 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
|
||||
(expand-file-name "~/.local/share/info")))
|
||||
#+end_src
|
||||
|
Loading…
Reference in New Issue
Block a user