- (unless (cdr-safe (assoc font font-default-cache))
- (push (cons font (font-create-object font)) font-default-cache)
- (cdr-safe (assoc font font-default-cache)))))
+ (or (cdr-safe (assoc font font-default-cache))
+ (let ((object (font-create-object font)))
+ (push (cons font object) font-default-cache)
+ object))))