From: grischka <grishka@gmx.de>
To: martin rudalics <rudalics@gmx.at>
Cc: Stefan Monnier <monnier@iro.umontreal.ca>, emacs-devel@gnu.org
Subject: Re: The window-pub branch
Date: Sat, 04 Dec 2010 19:10:58 +0100 [thread overview]
Message-ID: <4CFA8432.5000708@gmx.de> (raw)
In-Reply-To: <4CEBF770.6080309@gmx.at>
I found out that hooking ediff to use just 'display-buffer is
actually easy via 'ediff-window-setup-function'.
Here is some code if you want to test your future version of
'display-buffer'. It works quite well with a slightly improved
version of EWM for 'ediff-files'.
The wrapper calls two functions that you'd need to have:
my-display-multi-buffers (list-of-buffers-and-labels)
;; display some buffers and return list of their windows
my-select-window (window)
;; select 'window' and frame where it's on:
The stuff in the apply form is from ediff-setup-windows-plain-compare.
Don't ask me what it does.
(setq ediff-window-setup-function
(lambda (A B C H) ;; buffers
(apply (lambda (WA WB WC WH) ;; windows
(ediff-with-current-buffer control-buffer
(setq ediff-window-A WA
ediff-window-B WB
ediff-window-C WC
)
(when ediff-windows-job
(set-window-start WA
(ediff-overlay-start
(ediff-get-value-according-to-buffer-type
'A ediff-narrow-bounds)))
(set-window-start WB
(ediff-overlay-start
(ediff-get-value-according-to-buffer-type
'B ediff-narrow-bounds)))
))
(my-select-window WH)
(ediff-setup-control-buffer control-buffer)
)
(my-display-multi-buffers
`((,A . ediff-A)
(,B . ediff-B)
(,C . ediff-C)
(,H . ediff-H)
))
)))
next prev parent reply other threads:[~2010-12-04 18:10 UTC|newest]
Thread overview: 66+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-11-18 17:54 The window-pub branch grischka
2010-11-18 18:48 ` martin rudalics
2010-11-18 21:29 ` grischka
2010-11-19 8:00 ` martin rudalics
2010-11-19 13:38 ` grischka
2010-11-19 14:44 ` martin rudalics
2010-11-19 16:45 ` grischka
2010-11-20 9:19 ` martin rudalics
2010-11-20 14:43 ` grischka
2010-11-20 18:03 ` martin rudalics
2010-11-20 21:15 ` grischka
2010-11-21 9:49 ` martin rudalics
2010-11-21 13:34 ` grischka
2010-11-21 17:51 ` martin rudalics
2010-11-21 20:29 ` Stefan Monnier
2010-11-22 9:40 ` martin rudalics
2010-11-22 11:17 ` grischka
2010-11-22 11:27 ` martin rudalics
2010-11-22 11:43 ` grischka
2010-11-22 14:06 ` martin rudalics
2010-11-22 16:18 ` grischka
2010-11-22 17:30 ` martin rudalics
2010-11-22 19:43 ` Stefan Monnier
2010-11-23 7:40 ` martin rudalics
2010-11-23 14:30 ` Stefan Monnier
2010-11-23 15:30 ` martin rudalics
2010-11-22 16:44 ` Stefan Monnier
2010-11-22 17:30 ` martin rudalics
2010-11-22 19:45 ` Stefan Monnier
2010-11-23 7:41 ` martin rudalics
2010-11-23 14:36 ` Stefan Monnier
2010-11-23 15:31 ` martin rudalics
2010-11-23 16:25 ` Stefan Monnier
2010-11-23 17:18 ` martin rudalics
2010-12-04 18:10 ` grischka [this message]
2010-12-05 11:44 ` martin rudalics
2010-12-05 20:27 ` grischka
2010-12-06 9:23 ` martin rudalics
2010-12-06 17:43 ` grischka
2010-12-06 19:41 ` martin rudalics
2010-12-06 22:43 ` grischka
2010-12-06 23:05 ` Drew Adams
2010-12-07 7:23 ` grischka
2010-12-07 7:16 ` grischka
2011-01-09 19:50 ` martin rudalics
2010-12-07 8:18 ` martin rudalics
2010-12-07 15:38 ` Drew Adams
2010-12-07 16:38 ` grischka
2010-12-07 17:11 ` Drew Adams
2010-12-07 16:57 ` martin rudalics
[not found] ` <2E2DF95135DA4B8F9F96C1AEA1D6C606@us.oracle.c! ! om>
2010-12-07 17:43 ` Drew Adams
2010-12-07 17:56 ` martin rudalics
2010-12-07 18:21 ` Drew Adams
2010-11-22 21:34 ` Customizations and diff-list " Tom Breton (Tehom)
2010-11-23 7:42 ` martin rudalics
[not found] <87k4kjfldo.fsf@gmail.com>
[not found] ` <4CDCF7E0.40406@gmx.at>
[not found] ` <87bp5ug4lz.fsf@gmail.com>
[not found] ` <4CDD3B9B.8090309@gmx.at>
[not found] ` <877hgifv9d.fsf@gmail.com>
[not found] ` <4CDD6BDC.4010305@gmx.at>
[not found] ` <8739r6foz3.fsf@gmail.com>
[not found] ` <4CDD82E2.9070906@gmx.at>
[not found] ` <87y68ye66d.fsf@gmail.com>
[not found] ` <4CDE4D27.4000306@gmx.at>
[not found] ` <87tyjle80w.fsf@gmail.com>
[not found] ` <4CDE9942.1010205@gmx.at>
[not found] ` <87pqu9dz8b.fsf@gmail.com>
[not found] ` <4CDEB6B3.4080504@gmx.at>
2010-11-14 12:51 ` The window-pub branch (was Re: bug#7381: 24.0.50; Provide a hook run when a window is selected) Štěpán Němec
2010-11-14 18:59 ` martin rudalics
2010-11-14 20:55 ` The window-pub branch Štěpán Němec
2010-11-15 8:00 ` martin rudalics
2010-11-15 12:14 ` Štěpán Němec
2010-11-15 13:42 ` martin rudalics
2010-11-15 15:44 ` Štěpán Němec
2010-11-15 17:01 ` martin rudalics
2010-11-15 19:46 ` Štěpán Němec
2010-11-16 16:56 ` martin rudalics
2010-11-16 21:13 ` Štěpán Němec
2010-11-17 8:00 ` martin rudalics
2010-11-17 12:05 ` Štěpán Němec
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4CFA8432.5000708@gmx.de \
--to=grishka@gmx.de \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
--cc=rudalics@gmx.at \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).