From 46ee10032742963b9e04ad19e69877c8463750df Mon Sep 17 00:00:00 2001 From: Alex Branham Date: Fri, 26 Jan 2018 22:37:31 -0600 Subject: [PATCH] Prefer non-obsolete var names --- .../use-package/use-package-ensure-system-package.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/use-package/use-package-ensure-system-package.el b/lisp/use-package/use-package-ensure-system-package.el index 0fae57aff76..d6f7956dcae 100644 --- a/lisp/use-package/use-package-ensure-system-package.el +++ b/lisp/use-package/use-package-ensure-system-package.el @@ -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) " "))) -- 2.39.2