| 127 | | (custom-autoload ',varname ,file) |
|---|
| 128 | | ;; The use of :require in a defcustom can be annoying, especially |
|---|
| 129 | | ;; when defcustoms are moved from one file to another between |
|---|
| 130 | | ;; releases because the :require arg gets placed in the user's |
|---|
| 131 | | ;; .emacs. In order for autoloaded minor modes not to need the |
|---|
| 132 | | ;; use of :require, we arrange to store their :setter. |
|---|
| 133 | | ,(let ((setter (condition-case nil |
|---|
| 134 | | (cadr (memq :set form)) |
|---|
| 135 | | (error nil)))) |
|---|
| 136 | | (if (equal setter ''custom-set-minor-mode) |
|---|
| 137 | | `(put ',varname 'custom-set 'custom-set-minor-mode)))))) |
|---|
| | 127 | (custom-autoload ',varname ,file)))) |
|---|
