[bug#28866] [PATCH] gnu: emacs: Fix Man looks for C header files.

[Oleg Pykhalov <go.wigust@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 68 bytes --]

This is probably better, because I assume it will search in order.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: [PATCH] gnu: emacs: Fix Man looks for C header files. --]
[-- Type: text/x-patch, Size: 1452 bytes --]

From 83eff5350269f50d89407169eb165e891e65cf11 Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov <go.wigust@gmail.com>
Date: Mon, 16 Oct 2017 17:44:57 +0300
Subject: [PATCH] gnu: emacs: Fix Man looks for C header files.

* gnu/packages/emacs.scm (emacs): Make sure Man looks for C header files in
  the right places.
---
 gnu/packages/emacs.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 315db18a5..6d9ea4193 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -135,7 +135,17 @@
                     (format #f "(tramp-default-remote-path ~s ~s ~s ~s "
                             "~/.guix-profile/bin" "~/.guix-profile/sbin"
                             "/run/current-system/profile/bin"
-                            "/run/current-system/profile/sbin")))))))
+                            "/run/current-system/profile/sbin")))
+
+                 ;; Make sure Man looks for C header files in the right
+                 ;; places.
+                 (substitute* "man.el"
+                   (("\"/usr/local/include\"" line)
+                    (string-join
+                     (list line
+                           "\"~/.guix-profile/include\""
+                           "\"/var/guix/profiles/system/profile/include\"")
+                     " ")))))))
     (build-system glib-or-gtk-build-system)
     (arguments
      `(#:phases
-- 
2.14.2