diff options
| -rw-r--r-- | lisp/use-package/use-package-core.el | 51 | ||||
| -rw-r--r-- | lisp/use-package/use-package-ensure.el | 9 |
2 files changed, 40 insertions, 20 deletions
diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el index 8c3241d5ee0..7148c334126 100644 --- a/lisp/use-package/use-package-core.el +++ b/lisp/use-package/use-package-core.el | |||
| @@ -114,7 +114,8 @@ Note that `:disabled' is special in this list, as it causes | |||
| 114 | nothing at all to happen, even if the rest of the `use-package' | 114 | nothing at all to happen, even if the rest of the `use-package' |
| 115 | declaration is incorrect." | 115 | declaration is incorrect." |
| 116 | :type '(repeat symbol) | 116 | :type '(repeat symbol) |
| 117 | :group 'use-package) | 117 | :group 'use-package |
| 118 | :version "29.1") | ||
| 118 | 119 | ||
| 119 | (defcustom use-package-deferring-keywords | 120 | (defcustom use-package-deferring-keywords |
| 120 | '(:bind-keymap | 121 | '(:bind-keymap |
| @@ -128,21 +129,24 @@ function symbols that can be autoloaded from the module; whereas | |||
| 128 | the default keywords provided here always defer loading unless | 129 | the default keywords provided here always defer loading unless |
| 129 | otherwise requested." | 130 | otherwise requested." |
| 130 | :type '(repeat symbol) | 131 | :type '(repeat symbol) |
| 131 | :group 'use-package) | 132 | :group 'use-package |
| 133 | :version "29.1") | ||
| 132 | 134 | ||
| 133 | (defcustom use-package-ignore-unknown-keywords nil | 135 | (defcustom use-package-ignore-unknown-keywords nil |
| 134 | "If non-nil, warn instead of signaling error for unknown keywords. | 136 | "If non-nil, warn instead of signaling error for unknown keywords. |
| 135 | The unknown keyword and its associated arguments will be ignored | 137 | The unknown keyword and its associated arguments will be ignored |
| 136 | in the `use-package' expansion." | 138 | in the `use-package' expansion." |
| 137 | :type 'boolean | 139 | :type 'boolean |
| 138 | :group 'use-package) | 140 | :group 'use-package |
| 141 | :version "29.1") | ||
| 139 | 142 | ||
| 140 | (defcustom use-package-use-theme t | 143 | (defcustom use-package-use-theme t |
| 141 | "If non-nil, use a custom theme to avoid saving :custom | 144 | "If non-nil, use a custom theme to avoid saving :custom |
| 142 | variables twice (once in the Custom file, once in the use-package | 145 | variables twice (once in the Custom file, once in the use-package |
| 143 | call)." | 146 | call)." |
| 144 | :type 'boolean | 147 | :type 'boolean |
| 145 | :group 'use-package) | 148 | :group 'use-package |
| 149 | :version "29.1") | ||
| 146 | 150 | ||
| 147 | (defcustom use-package-verbose nil | 151 | (defcustom use-package-verbose nil |
| 148 | "Whether to report about loading and configuration details. | 152 | "Whether to report about loading and configuration details. |
| @@ -154,25 +158,29 @@ then the expanded macros do their job silently." | |||
| 154 | (const :tag "Quiet" nil) | 158 | (const :tag "Quiet" nil) |
| 155 | (const :tag "Verbose" t) | 159 | (const :tag "Verbose" t) |
| 156 | (const :tag "Debug" debug)) | 160 | (const :tag "Debug" debug)) |
| 157 | :group 'use-package) | 161 | :group 'use-package |
| 162 | :version "29.1") | ||
| 158 | 163 | ||
| 159 | (defcustom use-package-check-before-init nil | 164 | (defcustom use-package-check-before-init nil |
| 160 | "If non-nil, check that package exists before executing its `:init' block. | 165 | "If non-nil, check that package exists before executing its `:init' block. |
| 161 | This check is performed by calling `locate-library'." | 166 | This check is performed by calling `locate-library'." |
| 162 | :type 'boolean | 167 | :type 'boolean |
| 163 | :group 'use-package) | 168 | :group 'use-package |
| 169 | :version "29.1") | ||
| 164 | 170 | ||
| 165 | (defcustom use-package-always-defer nil | 171 | (defcustom use-package-always-defer nil |
| 166 | "If non-nil, assume `:defer t' unless `:demand' is used. | 172 | "If non-nil, assume `:defer t' unless `:demand' is used. |
| 167 | See also `use-package-defaults', which uses this value." | 173 | See also `use-package-defaults', which uses this value." |
| 168 | :type 'boolean | 174 | :type 'boolean |
| 169 | :group 'use-package) | 175 | :group 'use-package |
| 176 | :version "29.1") | ||
| 170 | 177 | ||
| 171 | (defcustom use-package-always-demand nil | 178 | (defcustom use-package-always-demand nil |
| 172 | "If non-nil, assume `:demand t' unless `:defer' is used. | 179 | "If non-nil, assume `:demand t' unless `:defer' is used. |
| 173 | See also `use-package-defaults', which uses this value." | 180 | See also `use-package-defaults', which uses this value." |
| 174 | :type 'boolean | 181 | :type 'boolean |
| 175 | :group 'use-package) | 182 | :group 'use-package |
| 183 | :version "29.1") | ||
| 176 | 184 | ||
| 177 | (defcustom use-package-defaults | 185 | (defcustom use-package-defaults |
| 178 | '(;; this '(t) has special meaning; see `use-package-handler/:config' | 186 | '(;; this '(t) has special meaning; see `use-package-handler/:config' |
| @@ -214,7 +222,8 @@ attempted." | |||
| 214 | (list (symbol :tag "Keyword") | 222 | (list (symbol :tag "Keyword") |
| 215 | (choice :tag "Default value" sexp function) | 223 | (choice :tag "Default value" sexp function) |
| 216 | (choice :tag "Enable if non-nil" sexp function))) | 224 | (choice :tag "Enable if non-nil" sexp function))) |
| 217 | :group 'use-package) | 225 | :group 'use-package |
| 226 | :version "29.1") | ||
| 218 | 227 | ||
| 219 | (defcustom use-package-merge-key-alist | 228 | (defcustom use-package-merge-key-alist |
| 220 | '((:if . (lambda (new old) `(and ,new ,old))) | 229 | '((:if . (lambda (new old) `(and ,new ,old))) |
| @@ -238,21 +247,24 @@ handler is called only once." | |||
| 238 | use-package-keywords) | 247 | use-package-keywords) |
| 239 | (const :tag "Any" t)) | 248 | (const :tag "Any" t)) |
| 240 | function)) | 249 | function)) |
| 241 | :group 'use-package) | 250 | :group 'use-package |
| 251 | :version "29.1") | ||
| 242 | 252 | ||
| 243 | (defcustom use-package-hook-name-suffix "-hook" | 253 | (defcustom use-package-hook-name-suffix "-hook" |
| 244 | "Text append to the name of hooks mentioned by :hook. | 254 | "Text append to the name of hooks mentioned by :hook. |
| 245 | Set to nil if you don't want this to happen; it's only a | 255 | Set to nil if you don't want this to happen; it's only a |
| 246 | convenience." | 256 | convenience." |
| 247 | :type '(choice string (const :tag "No suffix" nil)) | 257 | :type '(choice string (const :tag "No suffix" nil)) |
| 248 | :group 'use-package) | 258 | :group 'use-package |
| 259 | :version "29.1") | ||
| 249 | 260 | ||
| 250 | (defcustom use-package-minimum-reported-time 0.1 | 261 | (defcustom use-package-minimum-reported-time 0.1 |
| 251 | "Minimal load time that will be reported. | 262 | "Minimal load time that will be reported. |
| 252 | Note that `use-package-verbose' has to be set to a non-nil value | 263 | Note that `use-package-verbose' has to be set to a non-nil value |
| 253 | for anything to be reported at all." | 264 | for anything to be reported at all." |
| 254 | :type 'number | 265 | :type 'number |
| 255 | :group 'use-package) | 266 | :group 'use-package |
| 267 | :version "29.1") | ||
| 256 | 268 | ||
| 257 | (defcustom use-package-inject-hooks nil | 269 | (defcustom use-package-inject-hooks nil |
| 258 | "If non-nil, add hooks to the `:init' and `:config' sections. | 270 | "If non-nil, add hooks to the `:init' and `:config' sections. |
| @@ -278,7 +290,8 @@ user-supplied configuration is not evaluated, so be certain to | |||
| 278 | return t if you only wish to add behavior to what the user had | 290 | return t if you only wish to add behavior to what the user had |
| 279 | specified." | 291 | specified." |
| 280 | :type 'boolean | 292 | :type 'boolean |
| 281 | :group 'use-package) | 293 | :group 'use-package |
| 294 | :version "29.1") | ||
| 282 | 295 | ||
| 283 | (defcustom use-package-expand-minimally nil | 296 | (defcustom use-package-expand-minimally nil |
| 284 | "If non-nil, make the expanded code as minimal as possible. | 297 | "If non-nil, make the expanded code as minimal as possible. |
| @@ -293,7 +306,8 @@ configuration works, it will make the byte-compiled file as | |||
| 293 | minimal as possible. It can also help with reading macro-expanded | 306 | minimal as possible. It can also help with reading macro-expanded |
| 294 | definitions, to understand the main intent of what's happening." | 307 | definitions, to understand the main intent of what's happening." |
| 295 | :type 'boolean | 308 | :type 'boolean |
| 296 | :group 'use-package) | 309 | :group 'use-package |
| 310 | :version "29.1") | ||
| 297 | 311 | ||
| 298 | (defcustom use-package-form-regexp-eval | 312 | (defcustom use-package-form-regexp-eval |
| 299 | `(concat ,(eval-when-compile | 313 | `(concat ,(eval-when-compile |
| @@ -306,7 +320,8 @@ definitions, to understand the main intent of what's happening." | |||
| 306 | This is used by `use-package-jump-to-package-form' and | 320 | This is used by `use-package-jump-to-package-form' and |
| 307 | `use-package-enable-imenu-support'." | 321 | `use-package-enable-imenu-support'." |
| 308 | :type 'sexp | 322 | :type 'sexp |
| 309 | :group 'use-package) | 323 | :group 'use-package |
| 324 | :version "29.1") | ||
| 310 | 325 | ||
| 311 | (defcustom use-package-enable-imenu-support nil | 326 | (defcustom use-package-enable-imenu-support nil |
| 312 | "If non-nil, cause imenu to see `use-package' declarations. | 327 | "If non-nil, cause imenu to see `use-package' declarations. |
| @@ -325,7 +340,8 @@ Must be set before loading `use-package'." | |||
| 325 | (remove (list "Packages" ,use-package-form-regexp-eval 2) | 340 | (remove (list "Packages" ,use-package-form-regexp-eval 2) |
| 326 | lisp-imenu-generic-expression)))) | 341 | lisp-imenu-generic-expression)))) |
| 327 | (set-default sym value)) | 342 | (set-default sym value)) |
| 328 | :group 'use-package) | 343 | :group 'use-package |
| 344 | :version "29.1") | ||
| 329 | 345 | ||
| 330 | ;; Redundant in Emacs 26 or later, which already highlights macro names. | 346 | ;; Redundant in Emacs 26 or later, which already highlights macro names. |
| 331 | (defconst use-package-font-lock-keywords | 347 | (defconst use-package-font-lock-keywords |
| @@ -344,7 +360,8 @@ if this option is enabled, you must require `use-package' in your | |||
| 344 | user init file at loadup time, or you will see errors concerning | 360 | user init file at loadup time, or you will see errors concerning |
| 345 | undefined variables." | 361 | undefined variables." |
| 346 | :type 'boolean | 362 | :type 'boolean |
| 347 | :group 'use-package) | 363 | :group 'use-package |
| 364 | :version "29.1") | ||
| 348 | 365 | ||
| 349 | (defcustom use-package-vc-prefer-newest nil | 366 | (defcustom use-package-vc-prefer-newest nil |
| 350 | "Prefer the newest commit over the latest release. | 367 | "Prefer the newest commit over the latest release. |
diff --git a/lisp/use-package/use-package-ensure.el b/lisp/use-package/use-package-ensure.el index 5f75b6b59ea..817c62276ad 100644 --- a/lisp/use-package/use-package-ensure.el +++ b/lisp/use-package/use-package-ensure.el | |||
| @@ -46,13 +46,15 @@ | |||
| 46 | "Treat every package as though it had specified using `:ensure SEXP'. | 46 | "Treat every package as though it had specified using `:ensure SEXP'. |
| 47 | See also `use-package-defaults', which uses this value." | 47 | See also `use-package-defaults', which uses this value." |
| 48 | :type 'sexp | 48 | :type 'sexp |
| 49 | :group 'use-package-ensure) | 49 | :group 'use-package-ensure |
| 50 | :version "29.1") | ||
| 50 | 51 | ||
| 51 | (defcustom use-package-always-pin nil | 52 | (defcustom use-package-always-pin nil |
| 52 | "Treat every package as though it had specified using `:pin SYM'. | 53 | "Treat every package as though it had specified using `:pin SYM'. |
| 53 | See also `use-package-defaults', which uses this value." | 54 | See also `use-package-defaults', which uses this value." |
| 54 | :type 'symbol | 55 | :type 'symbol |
| 55 | :group 'use-package-ensure) | 56 | :group 'use-package-ensure |
| 57 | :version "29.1") | ||
| 56 | 58 | ||
| 57 | (defcustom use-package-ensure-function 'use-package-ensure-elpa | 59 | (defcustom use-package-ensure-function 'use-package-ensure-elpa |
| 58 | "Function that ensures a package is installed. | 60 | "Function that ensures a package is installed. |
| @@ -70,7 +72,8 @@ This function should return non-nil if the package is installed. | |||
| 70 | The default value uses package.el to install the package." | 72 | The default value uses package.el to install the package." |
| 71 | :type '(choice (const :tag "package.el" use-package-ensure-elpa) | 73 | :type '(choice (const :tag "package.el" use-package-ensure-elpa) |
| 72 | (function :tag "Custom")) | 74 | (function :tag "Custom")) |
| 73 | :group 'use-package-ensure) | 75 | :group 'use-package-ensure |
| 76 | :version "29.1") | ||
| 74 | 77 | ||
| 75 | ;;;; :pin | 78 | ;;;; :pin |
| 76 | 79 | ||