03/05: emacs: Find Emacs packages in a system profile.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 004ea62955a92f69efeaa90debde4e626acb6143
Author: Alex Kost <address@hidden>
Date:   Fri Feb 5 13:11:50 2016 +0300

    emacs: Find Emacs packages in a system profile.
    
    Fixes <http://bugs.gnu.org/22550>.
    Reported by myglc2 <address@hidden>.
    
    * emacs/guix-emacs.el (guix-emacs-autoload-packages): Autoload Emacs
      packages installed in a system profile.
---
 emacs/guix-emacs.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/emacs/guix-emacs.el b/emacs/guix-emacs.el
index be1e170..099261a 100644
--- a/emacs/guix-emacs.el
+++ b/emacs/guix-emacs.el
@@ -86,7 +86,8 @@ Return nil, if Emacs packages are not installed in PROFILE."
 ;;;###autoload
 (defun guix-emacs-autoload-packages (&rest profiles)
   "Autoload Emacs packages installed in PROFILES.
-If PROFILES are not specified, use `guix-user-profile'.
+If PROFILES are not specified, use a default user and system
+profiles.
 
 'Autoload' means add directories with Emacs packages to
 `load-path' and load 'autoloads' files matching
@@ -95,7 +96,8 @@ If PROFILES are not specified, use `guix-user-profile'.
                          (funcall 'guix-profile-prompt)
                        guix-user-profile)))
   (let ((profiles (or profiles
-                      (list guix-user-profile))))
+                      (list "/run/current-system/profile"
+                            guix-user-profile))))
     (dolist (profile profiles)
       (let ((dirs (guix-emacs-directories profile)))
         (when dirs