diff options
Diffstat (limited to 'lisp/pdf-view.el')
| -rw-r--r-- | lisp/pdf-view.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/pdf-view.el b/lisp/pdf-view.el index cc85c05..d4367fd 100644 --- a/lisp/pdf-view.el +++ b/lisp/pdf-view.el @@ -903,6 +903,8 @@ See also `pdf-view-use-imagemagick'." (cond ((and pdf-view-use-imagemagick (fboundp 'imagemagick-types)) 'imagemagick) + ((image-type-available-p 'image-io) + 'image-io) ((image-type-available-p 'png) 'png) ((fboundp 'imagemagick-types) @@ -912,8 +914,8 @@ See also `pdf-view-use-imagemagick'." (defun pdf-view-use-scaling-p () "Return t if scaling should be used." - (and (eq 'imagemagick - (pdf-view-image-type)) + (and (memq (pdf-view-image-type) + '(imagemagick image-io)) pdf-view-use-scaling)) (defmacro pdf-view-create-image (data &rest props) @@ -933,6 +935,9 @@ See also `pdf-view-use-imagemagick'." (* 2 (car size))))) (hotspots (pdf-view-apply-hotspot-functions window page size))) + (when (and (eq (framep-on-display) 'mac) + (= (pdf-util-frame-scale-factor) 2)) + (put-text-property 0 1 :data-2x data data)) (pdf-view-create-image data :width (car size) :map hotspots |