Lines Matching +defs:save +defs:point
143 ;; (Called below by `winner-save-old-configurations').
175 ;; we only save one window configuration.
220 (defun winner-save-old-configurations ()
231 (defun winner-save-unconditionally ()
240 (defun winner-save-conditionally ()
242 (winner-save-unconditionally)))
258 ((window-point miniwin)))
270 (defvar winner-point-alist nil)
275 ;; Format of entries: (buffer (mark . mark-active) (window . point) ..)
277 (defun winner-make-point-alist ()
286 do (push (cons win (window-point win))
290 (defun winner-get-point (buf win)
291 ;; Consult (and possibly extend) `winner-point-alist'.
294 (let ((entry (assq buf winner-point-alist)))
300 (push (cons nil (point)) (cddr entry))
301 (point))))
305 (cons nil (point)))
306 winner-point-alist)
307 (point)))))))
311 ;; Make sure point does not end up in the minibuffer and delete
319 ;; Possibly update `winner-point-alist'
321 for pos = (winner-get-point buf nil)
331 (setf (window-point win)
332 (winner-get-point (window-buffer win) win))
340 for entry = (cadr (assq buf winner-point-alist))
376 (save-window-excursion
399 (add-hook 'post-command-hook 'winner-save-old-configurations))
400 (t (add-hook 'post-command-hook 'winner-save-conditionally)))
401 (add-hook 'minibuffer-setup-hook 'winner-save-unconditionally)
403 (winner-save-old-configurations)
410 (remove-hook 'post-command-hook 'winner-save-old-configurations)
411 (remove-hook 'post-command-hook 'winner-save-conditionally)
412 (remove-hook 'minibuffer-setup-hook 'winner-save-unconditionally)
433 (winner-save-conditionally) ; current configuration->stack
435 (setq winner-point-alist (winner-make-point-alist))