From da83d111303bf9e35f9a5b1035813f95343f52fd Mon Sep 17 00:00:00 2001
From: Gerard Vermeulen <gerard.vermeulen@neel.cnrs.fr>
Date: Sat, 10 Dec 2022 16:56:54 +0100
Subject: [PATCH] Limit adding .info files in `package-user-dir' to Linux

---
 README.org | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index 1f1acf9..a2c3371 100644
--- a/README.org
+++ b/README.org
@@ -937,14 +937,15 @@ looks for files.
 #+name: lst:configure-info
 #+begin_src emacs-lisp
 (with-eval-after-load 'info
-  ;; Make Emacs find ALL "*.info" files in `packages-user-dir'.
-  (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 ALL "*.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")))