- (cond ((eq fun 'defconst)
- ;; `defconst' sets `var' unconditionally.
- `(setq ,var ,value))
- ((eq fun 'defregexp)
- ;; `defregexp' sets `var' unconditionally, too
- `(setq ,var (compile-regexp ,value)))
- (t
- ;; `defvar' sets `var' only when unbound.
- `(if (not (default-boundp ',var)) (set-default ',var ,value)))))
+ (cond ((eq fun 'defconst)
+ ;; `defconst' sets `var' unconditionally.
+ `(setq ,var ,value))
+ ((eq fun 'defregexp)
+ ;; `defregexp' sets `var' unconditionally, too
+ `(setq ,var (compile-regexp ,value)))
+ (t
+ ;; `defvar' sets `var' only when unbound.
+ `(if (not (default-boundp ',var)) (set-default ',var ,value)))))