[Emacs-diffs] /srv/bzr/emacs/trunk r110117: * doc-view.el (doc-view-display): Better fix for the cl-assertion

[Tassilo Horn]

------------------------------------------------------------
revno: 110117
committer: Tassilo Horn <address@hidden>
branch nick: trunk
timestamp: Thu 2012-09-20 21:53:40 +0200
message:
  * doc-view.el (doc-view-display): Better fix for the cl-assertion
  error.
modified:
  lisp/ChangeLog
  lisp/doc-view.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-20 18:59:00 +0000
+++ b/lisp/ChangeLog    2012-09-20 19:53:40 +0000
@@ -1,3 +1,8 @@
+2012-09-20  Tassilo Horn  <address@hidden>
+
+       * doc-view.el (doc-view-display): Better fix for the cl-assertion
+       error.
+
 2012-09-20  Stefan Merten  <address@hidden>
 
        * rst.el: Integrate support for `imenu' and `which-function'.

=== modified file 'lisp/doc-view.el'
--- a/lisp/doc-view.el  2012-09-19 17:54:59 +0000
+++ b/lisp/doc-view.el  2012-09-20 19:53:40 +0000
@@ -1169,15 +1169,16 @@
 If FORCE is non-nil, start viewing even if the document does not
 have the page we want to view."
   (with-current-buffer buffer
-    (let ((prev-pages doc-view-current-files))
+    (let ((prev-pages doc-view-current-files)
+         (windows (get-buffer-window-list buffer nil t)))
       (setq doc-view-current-files
             (sort (directory-files (doc-view-current-cache-dir) t
                                    "page-[0-9]+\\.png" t)
                   'doc-view-sort))
-      (dolist (win (or (get-buffer-window-list buffer nil t)
-                      (list (let ((w (selected-window)))
-                              (set-window-buffer w buffer)
-                              w))))
+      (unless windows
+       (switch-to-buffer buffer)
+       (setq windows (get-buffer-window-list buffer nil t)))
+      (dolist (win windows)
        (let* ((page (doc-view-current-page win))
               (pagefile (expand-file-name (format "page-%d.png" page)
                                           (doc-view-current-cache-dir))))