nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
emacs/guix-emacs.el
View File

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