emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/system-packages 2e38329 109/117: Remove cl-lib dependen


From: Stefan Monnier
Subject: [elpa] externals/system-packages 2e38329 109/117: Remove cl-lib dependency
Date: Fri, 14 Dec 2018 17:02:18 -0500 (EST)

branch: externals/system-packages
commit 2e38329f92832642a3401e67d3d8ec56cbf287fa
Author: Alex Branham <address@hidden>
Commit: Alex Branham <address@hidden>

    Remove cl-lib dependency
---
 system-packages.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/system-packages.el b/system-packages.el
index 239f4b5..91ee50c 100644
--- a/system-packages.el
+++ b/system-packages.el
@@ -42,9 +42,6 @@
 ;;
 
 ;;; Code:
-(eval-when-compile
-  (require 'cl-lib))
-
 (defgroup system-packages nil
   "Manages system packages"
   :tag "System Packages"
@@ -288,10 +285,15 @@ The key is the package manager and values (usually) 
commands.")
 (define-obsolete-variable-alias 'system-packages-packagemanager
   'system-packages-package-manager "2017-12-25")
 (defcustom system-packages-package-manager
-  (cl-loop for (name . prop) in system-packages-supported-package-managers
-           for path = (executable-find (symbol-name name))
-           when path
-           return name)
+  (let ((managers system-packages-supported-package-managers)
+        manager)
+    (while managers
+      (progn
+        (setq manager (pop managers))
+        (if (executable-find (symbol-name (car manager)))
+            (setq managers nil)
+          (setq manager nil))))
+    (car manager))
   "Symbol containing the package manager to use.
 
 See `system-packages-supported-package-managers' for a list of



reply via email to

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