update packages
This commit is contained in:
@@ -607,12 +607,18 @@ string."
|
||||
;; requires us :-(
|
||||
(defvar pdf-view-midnight-colors)
|
||||
|
||||
(when (and (> emacs-major-version 28)
|
||||
(not (boundp 'x-gtk-use-system-tooltips)))
|
||||
;; The x-gtk prefix has been dropped Emacs 29
|
||||
(defvaralias 'x-gtk-use-system-tooltips 'use-system-tooltips))
|
||||
|
||||
(defun pdf-util-tooltip-arrow (image-top &optional timeout)
|
||||
(pdf-util-assert-pdf-window)
|
||||
(when (floatp image-top)
|
||||
(setq image-top
|
||||
(round (* image-top (cdr (pdf-view-image-size))))))
|
||||
(let* (x-gtk-use-system-tooltips ;allow for display property in tooltip
|
||||
(let* ((x-gtk-use-system-tooltips nil)
|
||||
;; ^ allow for display text property in tooltip
|
||||
(dx (+ (or (car (window-margins)) 0)
|
||||
(car (window-fringes))))
|
||||
(dy image-top)
|
||||
@@ -901,21 +907,23 @@ frame's PPI is larger than 180. Otherwise, return 1."
|
||||
(executable-find "convert"))
|
||||
"Absolute path to the convert program."
|
||||
:group 'pdf-tools
|
||||
:type 'executable)
|
||||
:type '(choice (const :tag "Unset" nil) file))
|
||||
|
||||
(defcustom pdf-util-fast-image-format nil
|
||||
"An image format appropriate for fast displaying.
|
||||
|
||||
This should be a cons \(TYPE . EXT\) where type is the Emacs
|
||||
image-type and EXT the appropriate file extension starting with a
|
||||
dot. If nil, the value is determined automatically.
|
||||
This should be a cons (TYPE . EXT) where type is the Emacs
|
||||
`image-type' and EXT the appropriate file extension starting with
|
||||
a dot. If nil, the value is determined automatically.
|
||||
|
||||
Different formats have different properties, with respect to
|
||||
Emacs loading time, convert creation time and the file-size. In
|
||||
general, uncompressed formats are faster, but may need a fair
|
||||
amount of (temporary) disk space."
|
||||
:group 'pdf-tools
|
||||
:type '(cons symbol string))
|
||||
:type '(choice
|
||||
(const :tag "Determine automatically" nil)
|
||||
(cons symbol string)))
|
||||
|
||||
(defun pdf-util-assert-convert-program ()
|
||||
(unless (and pdf-util-convert-program
|
||||
|
||||
Reference in New Issue
Block a user