From 1906f4f5802923933d948832d154228f30fe1abd Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Tue, 16 Mar 2021 15:43:10 +0100 Subject: all: Namespace functions and variables --- lisp/init-package.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'lisp/init-package.el') diff --git a/lisp/init-package.el b/lisp/init-package.el index d42cd04..bdfa19e 100644 --- a/lisp/init-package.el +++ b/lisp/init-package.el @@ -9,7 +9,7 @@ (when (version< emacs-version "26.3") (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")) -(defun require-package (package &optional min-version no-refresh) +(defun mpolden/require-package (package &optional min-version no-refresh) "Install given PACKAGE, optionally requiring MIN-VERSION. If NO-REFRESH is non-nil, the available package lists will not be re-downloaded in order to locate PACKAGE." @@ -21,17 +21,19 @@ re-downloaded in order to locate PACKAGE." (package-refresh-contents) (require-package package min-version t))))) -(defun require-packages (packages) +(defun mpolden/require-packages (packages) "Install a list of PACKAGES." - (mapcar (lambda (package) (require-package package)) packages)) + (mapcar (lambda (package) (mpolden/require-package package)) packages)) ;; load given package unless inhibited through inhibited-packages -(defun maybe-require (package) - (unless (member package (bound-and-true-p inhibited-packages)) +(define-obsolete-variable-alias 'inhibited-packages 'mpolden/inhibited-packages) + +(defun mpolden/maybe-require (package) + (unless (member package (bound-and-true-p mpolden/inhibited-packages)) (require package))) ;; install use-package and diminish -(require-packages '(use-package diminish)) +(mpolden/require-packages '(use-package diminish)) ;; speed up loading of use-package and dependencies (eval-when-compile -- cgit v1.2.3