[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#16541: 23.3; doc-view-open-text should grab place in current doc

From: Tassilo Horn
Subject: bug#16541: 23.3; doc-view-open-text should grab place in current doc
Date: Mon, 27 Jan 2014 11:25:09 +0100
User-agent: Gnus/5.130008 (Ma Gnus v0.8) Emacs/24.3.50 (gnu/linux)

Suhail Shergill <address@hidden> writes:


>> Currently doc-view has pretty much no idea about the format in use,
>> so it doesn't know how to go from one page to another.
> except results shown by doc-view-search and doc-view-search-next-match
> are associated with the correct page number as seen in docview mode
> (even though it seems the search is conducted on the extracted
> text). so, clearly that information is available to doc-view in some
> sense.

Suhail is correct.  We could easily make C-c C-t switch to the current
page using this patch:

--8<---------------cut here---------------start------------->8---
=== modified file 'lisp/doc-view.el'
--- lisp/doc-view.el    2014-01-01 07:43:34 +0000
+++ lisp/doc-view.el    2014-01-27 10:22:11 +0000
@@ -1400,6 +1400,7 @@
 (defun doc-view-open-text ()
   "Open a buffer with the current doc's contents as text."
+  (let ((page (doc-view-current-page)))
   (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))))
@@ -1409,8 +1410,11 @@
                (dir (file-name-directory buffer-file-name)))
            (with-current-buffer (find-file txt)
              (rename-buffer name)
-             (setq default-directory dir)))
-       (doc-view-doc->txt txt 'doc-view-open-text)))))
+               (setq default-directory dir)
+               ;; Jump to the current page
+               (goto-char (point-min))
+               (search-forward "
                                 " nil t (1- page))))
+         (doc-view-doc->txt txt 'doc-view-open-text))))))
 ;;;;; Toggle between editing and viewing
--8<---------------cut here---------------end--------------->8---

Should I install it?


reply via email to

[Prev in Thread] Current Thread [Next in Thread]