emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] Changes to emacs/lisp/doc-view.el,v


From: Chong Yidong
Subject: [Emacs-diffs] Changes to emacs/lisp/doc-view.el,v
Date: Mon, 28 Apr 2008 23:49:03 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/04/28 23:49:02

Index: doc-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/doc-view.el,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -b -r1.66 -r1.67
--- doc-view.el 22 Apr 2008 06:37:39 -0000      1.66
+++ doc-view.el 28 Apr 2008 23:49:02 -0000      1.67
@@ -230,7 +230,7 @@
   (let ((ol (image-mode-window-get 'overlay winprops)))
     (if ol
         (setq ol (copy-overlay ol))
-      (assert (not (get-char-property (point-min) 'display (car winprops))))
+      (assert (not (get-char-property (point-min) 'display)))
       (setq ol (make-overlay (point-min) (point-max) nil t))
       (overlay-put ol 'doc-view t))
     (overlay-put ol 'window (car winprops))
@@ -845,7 +845,8 @@
             (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))
+      (dolist (win (or (get-buffer-window-list buffer nil t)
+                      (list (selected-window))))
         (let* ((page (doc-view-current-page win))
                (pagefile (expand-file-name (format "page-%d.png" page)
                                              (doc-view-current-cache-dir))))




reply via email to

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