Re: include new package wconf.el in GNU ELPA

[martin rudalics <rudalics@gmx.at>]

 > Ok, so is this better?

Not much.

 >
 > --8<---------------cut here---------------start------------->8---
 > ;; Keep window selection and point
 > (defun th/window-config-keep-points-and-selected-window (old config)
 >    (let ((bufpoints (mapcar (lambda (win)
 > 			     (cons (window-buffer win) (window-point win)))
 > 			   (window-list (selected-frame))))

Here you record window points ...

 > 	(selected-buf (current-buffer)))
 >      (funcall old config)
 >      ;; Do our magic only if called interactively.
 >      (when (and (memq this-command '(jump-to-register winner-undo winner-redo))
 > 	       (called-interactively-p 'interactive))
 >        ;; Restore selected window
 >        (when-let ((w (get-buffer-window selected-buf)))
 > 	(select-window w))
 >        ;; The setting of point is not performed by `set-window-configuration'
 >        ;; itself but by `jump-to-register' or the winner functions.
 >        (run-with-timer 0.139 nil
 > 		      (lambda ()
 > 			(dolist (bp bufpoints)
 > 			  (when-let ((w (get-buffer-window (car bp))))
 > 			    (set-window-point win (cdr bp)))))))))

... and here you restore them in some completely arbitrary manner.  This
can work reasonably iff all windows show different buffers.

 > You mean, get the state of all windows in the current window
 > configuration, then switch to the other, and then put the state back for
 > all windows of buffers that were also displayed in the previous WC?

`window-state-get' gets you a Lisp object that you can manipulate.  For
example, you can replace point positions in some arbitrary way.  Doing
the same with an object returned by `current-window-configuration' is
practically impossible.

martin