procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
the "default window".
* lisp/doc-view.el (doc-view-new-window-function): If no window
exists,	move to the last known page.
This commit is contained in:
Ian D 2014-04-16 23:58:25 -04:00 • committed by Stefan Monnier
parent 2ff06dac09
commit e51c8d91c2
3 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
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

2
lisp/doc-view.el
View file

@ -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.")

3
lisp/image-mode.el
View file

@ -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)))))