emacs: Find Emacs packages in a system profile.

Fixes <http://bugs.gnu.org/22550>.
Reported by myglc2 <myglc2@gmail.com>.

* emacs/guix-emacs.el (guix-emacs-autoload-packages): Autoload Emacs
  packages installed in a system profile.
This commit is contained in:
Alex Kost 2016-02-05 13:11:50 +03:00
parent 09b634565d
commit 004ea62955
1 changed files with 4 additions and 2 deletions

View File

@ -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