mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(image-mode-winprops): Add argument CLEANUP to prune

Browse source 
image-mode-winprops-alist, preventing it from growing indefinitely.
(image-mode-reapply-winprops): Use it.
This commit is contained in:
Chong Yidong 2008-05-22 21:27:42 +00:00
parent be26add72f
commit b81f0babbd
1 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/image-mode.el
View file

@ -56,10 +56,19 @@
"Special hook run when image data is requested in a new window.
It is called with one argument, the initial WINPROPS.")
(defun image-mode-winprops (&optional window)
(defun image-mode-winprops (&optional window cleanup)
"Return winprops of WINDOW.
A winprops object has the shape (WINDOW . ALIST)."
(unless window (setq window (selected-window)))
(cond ((null window)
(setq window (selected-window)))
((not (windowp window))
(error "Not a window: %s" window)))
(when cleanup
(setq image-mode-winprops-alist
(delq nil (mapcar (lambda (winprop)
(if (window-live-p (car-safe winprop))
winprop))
image-mode-winprops-alist))))
(let ((winprops (assq window image-mode-winprops-alist)))
;; For new windows, set defaults from the latest.
(unless winprops
@ -94,8 +103,9 @@ A winprops object has the shape (WINDOW . ALIST)."
(defun image-mode-reapply-winprops ()
;; When set-window-buffer, set hscroll and vscroll to what they were
;; last time the image was displayed in this window.
(when (listp image-mode-winprops-alist)
(let* ((winprops (image-mode-winprops))
(when (and (image-get-display-property)
(listp image-mode-winprops-alist))
(let* ((winprops (image-mode-winprops nil t))
(hscroll (image-mode-window-get 'hscroll winprops))
(vscroll (image-mode-window-get 'vscroll winprops)))
(if hscroll (set-window-hscroll (selected-window) hscroll))