diff options
| author | Andreas Politz <politza@hochschule-trier.de> | 2018-09-24 18:12:12 +0200 |
|---|---|---|
| committer | Andreas Politz <politza@hochschule-trier.de> | 2018-09-24 18:12:12 +0200 |
| commit | 30be1f75cc47a719ba88e4a2c2af2df4f05ba934 (patch) | |
| tree | 5cfecf7d848cb59041228c696e248ffe2f9fdb35 /lisp | |
| parent | 074fcf9fe2bbdb8587ffdff4f22be8d6eadbb7d5 (diff) | |
Fix inaccessible highlight annotations in other viewers
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/pdf-annot.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/pdf-annot.el b/lisp/pdf-annot.el index 476fd1b..b5e2a7c 100644 --- a/lisp/pdf-annot.el +++ b/lisp/pdf-annot.el @@ -981,7 +981,11 @@ Return the new annotation." page (if (eq type 'text) (car edges) - '(0 0 0 0)) + (apply #'pdf-util-edges-union + (seq-mapcat + (lambda (e) + (pdf-info-getselection page e)) + edges))) type nil (if (not (eq type 'text)) edges))) |