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." |