From: Manuel Giraud <manuel@ledu-giraud.fr>
Date: Fri, 26 Jul 2024 15:37:02 +0000 (+0200)
Subject: Fix DocView's text conversion on tty Emacs
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5442916d8c5b9ad1ebff8d54c2e9552043af3f3;p=emacs.git

Fix DocView's text conversion on tty Emacs

* lisp/doc-view.el (doc-view-open-text): Defaults to first page
should `doc-view-current-page' return nil.  (Bug#72305)

(cherry picked from commit 93f62f10f7b28e0ceeb1464d918746fe2b2beae1)
---

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index e9e564e14ef..e836c212356 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -1795,7 +1795,7 @@ For now these keys are useful:
   (if doc-view--current-converter-processes
       (message "DocView: please wait till conversion finished.")
     (let ((txt (expand-file-name "doc.txt" (doc-view--current-cache-dir)))
-          (page (doc-view-current-page)))
+          (page (or (doc-view-current-page) 1)))
       (if (file-readable-p txt)
           (let ((dv-bfn doc-view--buffer-file-name)
                 (dv-text-buffer-name (format "%s/text" (buffer-name))))