[nongnu] elpa/pdf-tools 3af6141926 06/16: Remove pdf-util-window-pixel-width, fallback to window-body-width

[ELPA Syncer]

branch: elpa/pdf-tools
commit 3af61419267d8abc63d86ce7260d0b1e0710a222
Author: Vedang Manerikar <ved.manerikar@gmail.com>
Commit: Vedang Manerikar <ved.manerikar@gmail.com>

    Remove pdf-util-window-pixel-width, fallback to window-body-width
    
    `window-body-width` is available for us to use in Emacs 26.3
    
    Relates to: #26
---
 lisp/pdf-util.el | 10 ----------
 lisp/pdf-view.el |  2 +-
 2 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/lisp/pdf-util.el b/lisp/pdf-util.el
index ebf7ccfba5..cbfff98f30 100644
--- a/lisp/pdf-util.el
+++ b/lisp/pdf-util.el
@@ -43,16 +43,6 @@
 ;; * Compatibility with older Emacssen (< 25.1)
 ;; * ================================================================== *
 
-;; In Emacs 24.3 window-width does not have a PIXELWISE argument.
-(defmacro pdf-util-window-pixel-width (&optional window)
-  "Return the width of WINDOW in pixel."
-  (if (< (cdr (subr-arity (symbol-function 'window-body-width))) 2)
-      (let ((window* (make-symbol "window")))
-        `(let ((,window* ,window))
-           (*  (window-body-width ,window*)
-               (frame-char-width (window-frame ,window*)))))
-    `(window-body-width ,window t)))
-
 ;; In Emacs 24.3 image-mode-winprops leads to infinite recursion.
 (unless (or (> emacs-major-version 24)
             (and (= emacs-major-version 24)
diff --git a/lisp/pdf-view.el b/lisp/pdf-view.el
index 0820e8f3e4..21824ad804 100644
--- a/lisp/pdf-view.el
+++ b/lisp/pdf-view.el
@@ -1135,7 +1135,7 @@ If WINDOW is t, redisplay pages in all windows."
   (let* ((pagesize (pdf-cache-pagesize
                     (or page (pdf-view-current-page window))))
          (slice (pdf-view-current-slice window))
-         (width-scale (/ (/ (float (pdf-util-window-pixel-width window))
+         (width-scale (/ (/ (float (window-body-width window t))
                             (or (nth 2 slice) 1.0))
                          (float (car pagesize))))
          (height (- (nth 3 (window-inside-pixel-edges window))