Mercurial > emacs

--- a/lisp/ChangeLog	Mon Feb 25 19:57:38 2008 +0000
+++ b/lisp/ChangeLog	Mon Feb 25 20:04:59 2008 +0000
@@ -1,8 +1,25 @@
+2008-02-25  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* doc-view.el (doc-view-conversion-buffer): Give it an internal name.
+	Demote it to plain defvar.
+	(doc-view-conversion-refresh-interval): Reduce interval.
+	(doc-view-goto-page): Allow moving to pages not yet rendered.
+	(doc-view-goto-page): Construct a file name rather than extracting it
+	from doc-view-current-files.
+	(doc-view-kill-proc): Ignore errors from kill-process.
+	(doc-view-pdf/ps->png-sentinel): Die gracefully if the buffer is dead.
+	(doc-view-insert-image): Use appropriate text if the page hasn't been
+	rendered yet.  Adjust scrolling so the text is displayed.
+	(doc-view-display): Detect not just that a page is available, but also
+	that it wasn't available before, so as to avoid refreshing all pages
+	repeatedly.
+	(doc-view-mode): Make doc-view-cache-directory if needed.
+
 2008-02-25  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>

 	* textmodes/bibtex.el (bibtex-format-entry): Handle error message
-	refering to a missing required field with the OPT prefix.  Make
-	unwindform more robust.
+	refering to a missing required field with the OPT prefix.
+	Make unwindform more robust.

 2008-02-25  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>

@@ -10,7 +27,7 @@
 	it duplicates the bibtex support in progmodes/hideshow.el.
 	* progmodes/hideshow.el (hs-special-modes-alist): Allow bibtex
 	entries that do not start at the beginning of a line.
-
+
 2008-02-25  Chong Yidong  <cyd@stupidchicken.com>

 	* files.el (shell-quote-wildcard-pattern): Quote ' and " as well.
--- a/lisp/doc-view.el	Mon Feb 25 19:57:38 2008 +0000
+++ b/lisp/doc-view.el	Mon Feb 25 20:04:59 2008 +0000
@@ -99,10 +99,8 @@

 ;;; Todo:

-;; - fix behavior with clone-indirect-buffer
-;; - allow different windows showing the same buffer to change pages
-;;   independently.
-;; - share more code with image-mode again.
+;; - add print command.
+;; - share more code with image-mode.
 ;; - better menu.
 ;; - Bind slicing to a drag event.
 ;; - doc-view-fit-doc-to-window and doc-view-fit-window-to-doc.
@@ -198,12 +196,10 @@
   :type 'directory
   :group 'doc-view)

-(defcustom doc-view-conversion-buffer "*doc-view conversion output*"
-  "The buffer where messages from the converter programs go to."
-  :type 'string
-  :group 'doc-view)
+(defvar doc-view-conversion-buffer " *doc-view conversion output*"
+  "The buffer where messages from the converter programs go to.")

-(defcustom doc-view-conversion-refresh-interval 3
+(defcustom doc-view-conversion-refresh-interval 1
   "Interval in seconds between refreshes of the DocView buffer while converting.
 After such a refresh newly converted pages will be available for
 viewing.  If set to nil there won't be any refreshes and the
@@ -334,7 +330,10 @@
   (let ((len (length doc-view-current-files)))
     (if (< page 1)
 	(setq page 1)
-      (when (> page len)
+      (when (and (> page len)
+                 ;; As long as the converter is running, we don't know
+                 ;; how many pages will be available.
+                 (null doc-view-current-converter-process))
 	(setq page len)))
     (setf (doc-view-current-page) page
 	  (doc-view-current-info)
@@ -355,7 +354,11 @@
 			 (setq contexts (concat contexts "  - \"" m "\"\n")))
 		       contexts)))))
     ;; Update the buffer
-    (doc-view-insert-image (nth (1- page) doc-view-current-files)
+    ;; We used to find the file name from doc-view-current-files but
+    ;; that's not right if the pages are not generated sequentially
+    ;; or if the page isn't in doc-view-current-files yet.
+    (doc-view-insert-image (expand-file-name (format "page-%d.png" page)
+                                             (doc-view-current-cache-dir))
                            :pointer 'arrow)
     (overlay-put (doc-view-current-overlay)
                  'help-echo (doc-view-current-info))))
@@ -404,7 +407,8 @@
   "Kill the current converter process."
   (interactive)
   (when doc-view-current-converter-process
-    (kill-process doc-view-current-converter-process)
+    (ignore-errors ;; Maybe it's dead already?
+      (kill-process doc-view-current-converter-process))
     (setq doc-view-current-converter-process nil))
   (when doc-view-current-timer
     (cancel-timer doc-view-current-timer)
@@ -542,14 +546,16 @@
   "If PDF/PS->PNG conversion was successful, update the display."
   (if (not (string-match "finished" event))
       (message "DocView: converter process changed status to %s." event)
-    (with-current-buffer (process-get proc 'buffer)
-      (setq doc-view-current-converter-process nil
-            mode-line-process nil)
-      (when doc-view-current-timer
-        (cancel-timer doc-view-current-timer)
-        (setq doc-view-current-timer nil))
-      ;; Yippie, finished.  Update the display!
-      (doc-view-display (current-buffer) 'force))))
+    ;; FIXME: kill the process if we kill the buffer?
+    (when (buffer-live-p (process-get proc 'buffer))
+      (with-current-buffer (process-get proc 'buffer)
+        (setq doc-view-current-converter-process nil
+              mode-line-process nil)
+        (when doc-view-current-timer
+          (cancel-timer doc-view-current-timer)
+          (setq doc-view-current-timer nil))
+        ;; Yippie, finished.  Update the display!
+        (doc-view-display (current-buffer) 'force)))))

 (defun doc-view-pdf/ps->png (pdf-ps png)
   "Convert PDF-PS to PNG asynchronously."
@@ -705,21 +711,38 @@
     (clear-image-cache)
     (setq doc-view-pending-cache-flush nil))
   (let ((ol (doc-view-current-overlay))
-        (image (if file (apply 'create-image file 'png nil args)))
+        (image (if (and file (file-readable-p file))
+                   (apply 'create-image file 'png nil args)))
         (slice (doc-view-current-slice)))
     (setf (doc-view-current-image) image)
-    (move-overlay ol (point-min) (point-max)) ;Probably redundant.
+    (move-overlay ol (point-min) (point-max))
     (overlay-put ol 'display
-                 (if (null image)
-                     ;; We're trying to display a page that doesn't exist.
-                     ;; Typically happens if the conversion process somehow
-                     ;; failed.  Better not signal an error here because it
-                     ;; could prevent a subsequent reconversion from fixing
-                     ;; the problem.
-                     "Cannot display this page!  Probably a conversion failure!"
+                 (cond
+                  (image
                    (if slice
                        (list (cons 'slice slice) image)
-                     image)))))
+                     image))
+                  ;; We're trying to display a page that doesn't exist.
+                  (doc-view-current-converter-process
+                   ;; Maybe the page doesn't exist *yet*.
+                   "Cannot display this page (yet)!")
+                  (t
+                   ;; Typically happens if the conversion process somehow
+                   ;; failed.  Better not signal an error here because it
+                   ;; could prevent a subsequent reconversion from fixing
+                   ;; the problem.
+                   (concat "Cannot display this page!\n"
+                           "Maybe because of a conversion failure!"))))
+    (let ((win (overlay-get ol 'window)))
+      (if (stringp (overlay-get ol 'display))
+          (progn            ;Make sure the text is not scrolled out of view.
+            (set-window-hscroll win 0)
+            (set-window-vscroll win 0))
+        (let ((hscroll (image-mode-window-get 'hscroll win))
+              (vscroll (image-mode-window-get 'vscroll win)))
+          ;; Reset scroll settings, in case they were changed.
+          (if hscroll (set-window-hscroll win hscroll))
+          (if vscroll (set-window-vscroll win vscroll)))))))

 (defun doc-view-sort (a b)
   "Return non-nil if A should be sorted before B.
@@ -733,14 +756,21 @@
 If FORCE is non-nil, start viewing even if the document does not
 have the page we want to view."
   (with-current-buffer buffer
-    (setq doc-view-current-files
-          (sort (directory-files (doc-view-current-cache-dir) t
-                                 "page-[0-9]+\\.png" t)
-                'doc-view-sort))
-    (let ((page (doc-view-current-page)))
-      (when (or force
-                (>= (length doc-view-current-files) (or page 1)))
-        (doc-view-goto-page page)))))
+    (let ((prev-pages doc-view-current-files))
+      (setq doc-view-current-files
+            (sort (directory-files (doc-view-current-cache-dir) t
+                                   "page-[0-9]+\\.png" t)
+                  'doc-view-sort))
+      (dolist (win (get-buffer-window-list buffer nil t))
+        (let* ((page (doc-view-current-page win))
+               (pagefile (expand-file-name (format "page-%d.png" page)
+                                             (doc-view-current-cache-dir))))
+          (when (or force
+                    (and (not (member pagefile prev-pages))
+                         (member pagefile doc-view-current-files)))
+            (with-selected-window win
+              (assert (eq (current-buffer) buffer))
+              (doc-view-goto-page page))))))))

 (defun doc-view-buffer-message ()
   ;; Only show this message initially, not when refreshing the buffer (in which
@@ -968,6 +998,7 @@
     (kill-all-local-variables)
     (set (make-local-variable 'doc-view-previous-major-mode) prev-major-mode))

+  (doc-view-make-safe-dir doc-view-cache-directory)
   ;; Handle compressed files, remote files, files inside archives
   (set (make-local-variable 'doc-view-buffer-file-name)
        (cond