From 7ac07baeb3222e04a4b757105560c542a9f6ee16 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 2 Jan 2022 23:32:06 -0600 Subject: Add +org-capture --- lisp/+cus-edit.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'lisp/+cus-edit.el') diff --git a/lisp/+cus-edit.el b/lisp/+cus-edit.el index 6ab8527..7fa46d4 100644 --- a/lisp/+cus-edit.el +++ b/lisp/+cus-edit.el @@ -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." -- cgit 1.4.1-21-gabe81