diff options
| -rw-r--r-- | lisp/cus-edit.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 90a7db3b9b9..50759537ecb 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -2940,10 +2940,9 @@ restoring it to the state of a face that has never been customized." | |||
| 2940 | ;; things like `find-file-hook' or even more basic ones, to avoid | 2940 | ;; things like `find-file-hook' or even more basic ones, to avoid |
| 2941 | ;; chaos. | 2941 | ;; chaos. |
| 2942 | :set (lambda (symbol value) | 2942 | :set (lambda (symbol value) |
| 2943 | (mapc (lambda (elt) | 2943 | (dolist (elt value) |
| 2944 | (if (fboundp elt) | 2944 | (if (fboundp elt) |
| 2945 | (add-hook symbol elt))) | 2945 | (add-hook symbol elt)))) |
| 2946 | value)) | ||
| 2947 | :convert-widget 'custom-hook-convert-widget | 2946 | :convert-widget 'custom-hook-convert-widget |
| 2948 | :tag "Hook") | 2947 | :tag "Hook") |
| 2949 | 2948 | ||