From: Justin Burkett <justin@burkett.cc>
Date: Tue, 6 Feb 2018 16:35:45 +0000 (-0500)
Subject: Add use-package-ignore-unknown-keywords option
X-Git-Tag: emacs-29.0.90~1306^2~15^2~81^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09266283b94502247b11ed4d948dfbe07b5702ac;p=emacs.git

Add use-package-ignore-unknown-keywords option

This option allows use-package to skip over keywords it doesn't recognize.
---

diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el
index 469b3f7b23c..1ae35fe7335 100644
--- a/lisp/use-package/use-package-core.el
+++ b/lisp/use-package/use-package-core.el
@@ -112,6 +112,13 @@ otherwise requested."
   :type '(repeat symbol)
   :group 'use-package)
 
+(defcustom use-package-ignore-unknown-keywords nil
+  "If non-nil, issue warning instead of error when unknown
+keyword is encountered. The unknown keyword and its associated
+arguments will be ignored in the `use-package' expansion."
+  :type 'boolean
+  :group 'use-package)
+
 (defcustom use-package-verbose nil
   "Whether to report about loading and configuration details.
 If you customize this, then you should require the `use-package'
@@ -513,7 +520,8 @@ extending any keys already present."
             (intern-soft (concat "use-package-normalize/"
                                  (symbol-name keyword))))
            (arg (and (functionp normalizer)
-                     (funcall normalizer name keyword args))))
+                     (funcall normalizer name keyword args)))
+           (error-string (format "Unrecognized keyword: %s" keyword)))
       (if (memq keyword use-package-keywords)
           (progn
             (setq plist (use-package-normalize-plist
@@ -523,7 +531,12 @@ extending any keys already present."
                            (funcall merge-function keyword arg
                                     (plist-get plist keyword))
                          arg)))
-        (use-package-error (format "Unrecognized keyword: %s" keyword))))))
+        (if use-package-ignore-unknown-keywords
+            (progn
+              (display-warning 'use-package error-string)
+              (use-package-normalize-plist
+               name tail plist merge-function))
+          (use-package-error error-string))))))
 
 (defun use-package-unalias-keywords (name args)
   (setq args (cl-nsubstitute :if :when args))