1 files changed, 8 insertions, 4 deletions

@@ -34,15 +34,19 @@
   "Variables to allow changing while loading the Custom file.")
 
 (defun +custom-load-ignoring-most-customizations (&optional
-                                                     noerror
+                                                     error
                                                      nomessage
                                                      nosuffix
                                                      must-suffix)
   "Load `custom-file', ignoring most customizations.
 Ignore all faces, and only load variables in
 `+customize-variable-allowlist'.  All the optional
-variables---NOERROR, NOMESSAGE, NOSUFFIX, MUST-SUFFIX---are
-passed on to `load'."
+variables---ERROR, NOMESSAGE, NOSUFFIX, MUST-SUFFIX---are
+passed on to `load'.
+
+NOTE: ERROR is the opposite of its value in `load' -- meaning
+that this function by default does /not/ error, but will if you
+pass t to it."
   (cl-letf (((symbol-function 'custom-set-faces) 'ignore)
             ((symbol-function 'custom-set-variables)
              (lambda (&rest args)
@@ -51,7 +55,7 @@ passed on to `load'."
                                     (memq (car el)
                                           +custom-variable-allowlist))
                                   args)))))
-    (load custom-file noerror nomessage nosuffix must-suffix)))
+    (load custom-file (not error) nomessage nosuffix must-suffix)))
 
 (defun +cus-edit-expand-widgets (&rest _)
   "Expand descriptions in `Custom-mode' buffers."