mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Prefer non-obsolete var names

Browse Source
This commit is contained in:
Alex Branham 2018-01-26 22:37:31 -06:00
parent 567df21f26
commit 46ee100327
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/use-package/use-package-ensure-system-package.el
View File

@ -23,20 +23,20 @@
(require 'system-packages nil t)
(eval-when-compile
(defvar system-packages-packagemanager)
(defvar system-packages-package-manager)
(defvar system-packages-supported-package-managers)
(defvar system-packages-usesudo))
(defvar system-packages-use-sudo))
(defun use-package-ensure-system-package-install-command (pack)
"Return the default install command for `pack'."
"Return the default install command for PACK."
(let ((command
(cdr (assoc 'install (cdr (assoc system-packages-packagemanager
(cdr (assoc 'install (cdr (assoc system-packages-package-manager
system-packages-supported-package-managers))))))
(unless command
(error (format "%S not supported in %S" 'install system-packages-packagemanager)))
(error (format "%S not supported in %S" 'install system-packages-package-manager)))
(unless (listp command)
(setq command (list command)))
(when system-packages-usesudo
(when system-packages-use-sudo
(setq command (mapcar (lambda (part) (concat "sudo " part)) command)))
(setq command (mapconcat 'identity command " && "))
(mapconcat 'identity (list command pack) " ")))