diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/custom.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index 2fe7c50c13b..7b5fc04718d 100644 --- a/lisp/custom.el +++ b/lisp/custom.el | |||
| @@ -141,7 +141,7 @@ not the default value itself." | |||
| 141 | ((eq keyword :get) | 141 | ((eq keyword :get) |
| 142 | (put symbol 'custom-get value)) | 142 | (put symbol 'custom-get value)) |
| 143 | ((eq keyword :require) | 143 | ((eq keyword :require) |
| 144 | (setq requests (cons value requests))) | 144 | (push value requests)) |
| 145 | ((eq keyword :type) | 145 | ((eq keyword :type) |
| 146 | (put symbol 'custom-type (purecopy value))) | 146 | (put symbol 'custom-type (purecopy value))) |
| 147 | ((eq keyword :options) | 147 | ((eq keyword :options) |
| @@ -149,7 +149,7 @@ not the default value itself." | |||
| 149 | ;; Slow safe code to avoid duplicates. | 149 | ;; Slow safe code to avoid duplicates. |
| 150 | (mapc (lambda (option) | 150 | (mapc (lambda (option) |
| 151 | (custom-add-option symbol option)) | 151 | (custom-add-option symbol option)) |
| 152 | value) | 152 | value) |
| 153 | ;; Fast code for the common case. | 153 | ;; Fast code for the common case. |
| 154 | (put symbol 'custom-options (copy-sequence value)))) | 154 | (put symbol 'custom-options (copy-sequence value)))) |
| 155 | (t | 155 | (t |
| @@ -159,7 +159,7 @@ not the default value itself." | |||
| 159 | ;; Do the actual initialization. | 159 | ;; Do the actual initialization. |
| 160 | (unless custom-dont-initialize | 160 | (unless custom-dont-initialize |
| 161 | (funcall initialize symbol default))) | 161 | (funcall initialize symbol default))) |
| 162 | (setq current-load-list (cons symbol current-load-list)) | 162 | (push (cons 'defvar symbol) current-load-list) |
| 163 | (run-hooks 'custom-define-hook) | 163 | (run-hooks 'custom-define-hook) |
| 164 | symbol) | 164 | symbol) |
| 165 | 165 | ||