- (progn (define-abbrev-table ',abbrev nil) ,abbrev)
- (unless (get ',abbrev 'variable-documentation)
- (put ',abbrev 'variable-documentation
- ,(format "Abbrev table for `%s'." child))))))
+ (progn (define-abbrev-table ',abbrev nil) ,abbrev))
+ (unless (get ',abbrev 'variable-documentation)
+ (put ',abbrev 'variable-documentation
+ (purecopy ,(format "Abbrev table for `%s'." child))))))