Force saving without encoding, regardless of current message.

[gnu-emacs] / lisp / doc-view.el

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index fa54eef828de840114bc342d07c1fc41706f716a..30aa3a09bf2ec2141dea7ee6137e099945fa442b 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -1265,6 +1265,8 @@ have the page we want to view."
                                            "[0-9]+")
                                    t)
                   'doc-view-sort))
+      (unless (eq (length prev-pages) (length doc-view-current-files))
+       (force-mode-line-update))
       (dolist (win (or (get-buffer-window-list buffer nil t)
                       (list t)))
        (let* ((page (doc-view-current-page win))