Commit e51c8d91 authored by Ian D's avatar Ian D Committed by Stefan Monnier

* lisp/image-mode.el (image-mode-window-put): Also update the property of

the "default window".
* lisp/doc-view.el (doc-view-new-window-function): If no window
exists,	move to the last known page.
parent 2ff06dac
2014-04-17 Ian D <dunni@gnu.org> (tiny change)
* image-mode.el (image-mode-window-put): Also update the property of
the "default window".
* doc-view.el (doc-view-new-window-function): If no window
exists, move to the last known page.
2014-04-16 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/perl-mode.el (perl-calculate-indent): Don't auto-indent in
......
......@@ -336,7 +336,7 @@ of the page moves to the previous page."
;; Don't do it if there's a conversion is running, since in that case, it
;; will be done later.
(with-selected-window (car winprops)
(doc-view-goto-page 1)))))
(doc-view-goto-page (image-mode-window-get 'page t))))))
(defvar-local doc-view--current-files nil
"Only used internally.")
......
......@@ -90,6 +90,9 @@ otherwise it defaults to t, used for times when the buffer is not displayed."
(defun image-mode-window-put (prop val &optional winprops)
(unless (consp winprops) (setq winprops (image-mode-winprops winprops)))
(setcdr (assq t image-mode-winprops-alist)
(cons (cons prop val)
(delq (assq prop (cdr winprops)) (cdr winprops))))
(setcdr winprops (cons (cons prop val)
(delq (assq prop (cdr winprops)) (cdr winprops)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment