diff options
| -rw-r--r-- | lisp/pdf-annot.el | 3 | ||||
| -rw-r--r-- | lisp/pdf-isearch.el | 2 | ||||
| -rw-r--r-- | lisp/pdf-view.el | 3 |
3 files changed, 5 insertions, 3 deletions
diff --git a/lisp/pdf-annot.el b/lisp/pdf-annot.el index ddb7d92..f1cd264 100644 --- a/lisp/pdf-annot.el +++ b/lisp/pdf-annot.el @@ -981,7 +981,8 @@ other annotations." page (car size) `("white" "steel blue" 0.35 ,@edges)) :map (pdf-view-apply-hotspot-functions - window page size)))) + window page size) + :width (car size)))) (pdf-util-scroll-to-edges (pdf-util-scale-relative-to-pixel (car edges))))))) diff --git a/lisp/pdf-isearch.el b/lisp/pdf-isearch.el index 563e721..5225395 100644 --- a/lisp/pdf-isearch.el +++ b/lisp/pdf-isearch.el @@ -742,7 +742,7 @@ MATCH-BG LAZY-FG LAZY-BG\)." occur-hack-p) (eq page (pdf-view-current-page))) (pdf-view-display-image - (pdf-view-create-image data)))))))) + (pdf-view-create-image data :width width)))))))) (pdf-info-renderpage-text-regions page width t nil `(,fg1 ,bg1 ,@(pdf-util-scale-pixel-to-relative diff --git a/lisp/pdf-view.el b/lisp/pdf-view.el index bb42e45..7225e08 100644 --- a/lisp/pdf-view.el +++ b/lisp/pdf-view.el @@ -1429,7 +1429,8 @@ This is more useful for commands like `(,(car colors) ,(cdr colors) 0.35 ,@region)) (pdf-info-renderpage-text-regions page width nil nil - `(,(car colors) ,(cdr colors) ,@region))))))) + `(,(car colors) ,(cdr colors) ,@region))) + :width width)))) (defun pdf-view-kill-ring-save () "Copy the region to the `kill-ring'." |