- (error "Setting of absolute font size requires at least Pango 1.8.0")
- (%font-description-set-size desc size)))
+ (error "Setting of absolute font size requires at least Pango 1.8.0"))
+ (#?(pkg-exists-p "pango" :atleast-version "1.8.0") absolute-given-p
+ #?-(pkg-exists-p "pango" :atleast-version "1.8.0") t
+ (%font-description-set-size desc size))
+ #?(pkg-exists-p "pango" :atleast-version "1.8.0")
+ (t (if (font-description-size-is-absolute-p desc)
+ (%font-description-set-absolute-size desc size)
+ (%font-description-set-size desc size))))
+ size)
+
+(defun %set-font-description-size (size desc)
+ (setf (font-description-size desc) size))