[elpa] externals/system-packages fd49fc8 012/117: Fixes list function

[Stefan Monnier]

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

    Fixes list function
---
 system-packages.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/system-packages.el b/system-packages.el
index 4f0d629..9d9d1f8 100644
--- a/system-packages.el
+++ b/system-packages.el
@@ -122,8 +122,8 @@
       (error "Not supported on homebrew"))
   (let ((command
          (if (equal system-packages-packagemanager "pacaur") "pacman -Rns 
$(pacman -Qtdq)"
-         (if (equal system-packages-packagemanager "pacman") "pacman -Rns 
$(pacman -Qtdq)"
-           (if (equal system-packages-packagemanager "apt") "apt-get 
autoremove")))))
+           (if (equal system-packages-packagemanager "pacman") "pacman -Rns 
$(pacman -Qtdq)"
+             (if (equal system-packages-packagemanager "apt") "apt-get 
autoremove")))))
     (if (equal system-packages-usesudo t)
         (async-shell-command (mapconcat 'identity (list "sudo" command) " "))
       (async-shell-command (mapconcat 'identity (list command) " ")))))
@@ -135,11 +135,9 @@ list all installed packages."
   (if (equal system-packages-packagemanager "apt")
       (error "Not supported on apt systems"))
   (let ((command
-         (if (and arg (or (equal system-packages-packagemanager "pacaur")
-                          (equal system-packages-packagemanager "pacman"))) 
"pacman -Q"
-           (if (equal (or (equal system-packages-packagemanager "pacaur")
-                          (equal system-packages-packagemanager "pacman")) 
"pacman -Qe"
+         (if (and arg (or (equal system-packages-packagemanager "pacaur") 
(equal system-packages-packagemanager "pacman"))) "pacman -Q"
+           (if (or (equal system-packages-packagemanager "pacaur") (equal 
system-packages-packagemanager "pacman")) "pacman -Qe"
              (if (equal system-packages-packagemanager "brew") "brew list")))))
-         (async-shell-command command))))
+    (async-shell-command command)))
                
 (provide 'system-packages)