- (` (let ((entity-id (or (, id) wl-folder-entity-id)))
- (put-text-property 0 (length (, entity))
- 'wl-folder-entity-id
- entity-id
- (, entity)))))
+ `(let ((entity-id (or ,id wl-folder-entity-id)))
+ (put-text-property 0 (length ,entity)
+ 'wl-folder-entity-id
+ entity-id
+ ,entity)))