[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: emacs: Handle compiled autoloads.

From: Alex Kost
Subject: 01/01: emacs: Handle compiled autoloads.
Date: Fri, 11 Dec 2015 11:39:20 +0000

alezost pushed a commit to branch master
in repository guix.

commit 98f4a9004b1e7ce18de8537799de43bb1a9a1c0b
Author: Alex Kost <address@hidden>
Date:   Thu Dec 3 13:03:19 2015 +0300

    emacs: Handle compiled autoloads.
    * emacs/guix-emacs.el (guix-emacs-autoloads-regexp): New variable.
      (guix-emacs-find-autoloads-in-directory): Return a list of autoloads
      without extensions.
 emacs/guix-emacs.el |   16 ++++++++++++++--
 1 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/emacs/guix-emacs.el b/emacs/guix-emacs.el
index 6515b3d..2f809ed 100644
--- a/emacs/guix-emacs.el
+++ b/emacs/guix-emacs.el
@@ -37,6 +37,11 @@ they are successfully installed."
 (defvar guix-emacs-autoloads nil
   "List of the last loaded Emacs autoloads.")
+(defvar guix-emacs-autoloads-regexp
+  (rx (group (* any) "-autoloads")
+      ".el" (zero-or-one "c") string-end)
+  "Regexp to match Emacs 'autoloads' file.")
 (defun guix-emacs-directory (&optional profile)
   "Return directory with Emacs packages installed in PROFILE.
 If PROFILE is nil, use `guix-user-profile'."
@@ -44,8 +49,15 @@ If PROFILE is nil, use `guix-user-profile'."
                     (or profile guix-user-profile)))
 (defun guix-emacs-find-autoloads-in-directory (directory)
-  "Return list of Emacs 'autoloads' files in DIRECTORY."
-  (directory-files directory 'full-name "-autoloads\\.el\\'" 'no-sort))
+  "Return a list of Emacs 'autoloads' files in DIRECTORY.
+The files in the list do not have extensions (.el, .elc)."
+  (cl-remove-duplicates
+   (delq nil
+        (mapcar (lambda (file)
+                  (when (string-match guix-emacs-autoloads-regexp file)
+                    (match-string 1 file)))
+                (directory-files directory 'full-name nil 'no-sort)))
+   :test #'string=))
 (defun guix-emacs-subdirs (directory)
   "Return list of DIRECTORY subdirectories."

reply via email to

[Prev in Thread] Current Thread [Next in Thread]