update packages

This commit is contained in:
2025-03-11 21:14:26 +01:00
parent 45d49daef0
commit 14dcaaddde
440 changed files with 13229 additions and 8718 deletions

View File

@@ -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