diff options
Diffstat (limited to 'lisp/+cus-edit.el')
-rw-r--r-- | lisp/+cus-edit.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/+cus-edit.el b/lisp/+cus-edit.el index 4631811..a67279c 100644 --- a/lisp/+cus-edit.el +++ b/lisp/+cus-edit.el | |||
@@ -33,6 +33,9 @@ | |||
33 | (defcustom +custom-variable-allowlist nil | 33 | (defcustom +custom-variable-allowlist nil |
34 | "Variables to allow changing while loading the Custom file.") | 34 | "Variables to allow changing while loading the Custom file.") |
35 | 35 | ||
36 | (defcustom +custom-after-load-hook nil | ||
37 | "Functions to run after loading the custom file.") | ||
38 | |||
36 | (defun +custom-load-ignoring-most-customizations (&optional | 39 | (defun +custom-load-ignoring-most-customizations (&optional |
37 | error | 40 | error |
38 | nomessage | 41 | nomessage |
@@ -55,7 +58,8 @@ pass t to it." | |||
55 | (memq (car el) | 58 | (memq (car el) |
56 | +custom-variable-allowlist)) | 59 | +custom-variable-allowlist)) |
57 | args))))) | 60 | args))))) |
58 | (load custom-file (not error) nomessage nosuffix must-suffix))) | 61 | (load custom-file (not error) nomessage nosuffix must-suffix)) |
62 | (run-hooks '+custom-after-load-hook)) | ||
59 | 63 | ||
60 | (defun +cus-edit-expand-widgets (&rest _) | 64 | (defun +cus-edit-expand-widgets (&rest _) |
61 | "Expand descriptions in `Custom-mode' buffers." | 65 | "Expand descriptions in `Custom-mode' buffers." |