* Re: passing commands to ediff-directories from the elisp function
@ 2005-09-28 11:45 mak kwak
0 siblings, 0 replies; 4+ messages in thread
From: mak kwak @ 2005-09-28 11:45 UTC (permalink / raw)
Cc: help-gnu-emacs
That's it!
Thanks!!!
Dnia 27-09-2005 o godz. 19:31 Kevin Rodgers napisał(a):
> mak kwak wrote:
> > I trying to write a method that will run ediff-directories comand for
> > my two directories, then will mark all equal files for hiding (=h) and
> > will hide them (x).
> >
> > I did the following:
> > (defun compare-my-dirs (dir1 dir2)
> > "compares two directories"
> > (ediff-directories dir1 dir2)
> > (switch-to-buffer "*Ediff Session Group Panel*") ;; success, switches
> to that buffer.
> > (insert "=h") ;; !!!! neither does not mark equal files for hiding..
> > (insert "x")) ;; !!!! ..nor hides them.
> >
> > My question is, how can I pass my commands to *`Ediff Session Group
> > Panel*' from elisp function ?
>
> (setq unread-command-events (list ?= ?h ?x))
>
> --
> Kevin Rodgers
>
>
>
> _______________________________________________
> Help-gnu-emacs mailing list
> Help-gnu-emacs@gnu.org
> http://lists.gnu.org/mailman/listinfo/help-gnu-emacs
>
----------------------------------------------------
Natsuo Kirino - "Ostateczne wyjście" Japońskie cacko mrożące krew
w żyłach! Świat, w którym człowiek staje się narzędziem zła...
Bestseller prosto z Tokio!
http://klik.wp.pl/?adr=http%3A%2F%2Fadv.reklama.wp.pl%2Fas%2Fkjp.html&sid=514
^ permalink raw reply [flat|nested] 4+ messages in thread
* passing commands to ediff-directories from the elisp function
@ 2005-09-27 12:15 mak kwak
2005-09-27 17:31 ` Kevin Rodgers
2005-09-27 20:58 ` Kevin Rodgers
0 siblings, 2 replies; 4+ messages in thread
From: mak kwak @ 2005-09-27 12:15 UTC (permalink / raw)
Hello
I trying to write a method that will run ediff-directories comand for my two directories, then will mark all equal files for hiding (=h) and will hide them (x).
I did the following:
(defun compare-my-dirs (dir1 dir2)
"compares two directories"
(ediff-directories dir1 dir2)
(switch-to-buffer "*Ediff Session Group Panel*") ;; success, switches to that buffer.
(insert "=h") ;; !!!! neither does not mark equal files for hiding..
(insert "x")) ;; !!!! ..nor hides them.
My question is, how can I pass my commands to *`Ediff Session Group Panel*' from elisp function ?
Greetings
----------------------------------------------------
SIN CITY - Miasto Grzechu. Najnowszy film Rodrigueza
i Tarantino w wypożyczalniach DVD i wideo!
http://klik.wp.pl/?adr=www.film.wp.pl%2Ffilm.html%3Fid%3D24839%26h%3D1&sid=516
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: passing commands to ediff-directories from the elisp function
2005-09-27 12:15 mak kwak
@ 2005-09-27 17:31 ` Kevin Rodgers
2005-09-27 20:58 ` Kevin Rodgers
1 sibling, 0 replies; 4+ messages in thread
From: Kevin Rodgers @ 2005-09-27 17:31 UTC (permalink / raw)
mak kwak wrote:
> I trying to write a method that will run ediff-directories comand for
> my two directories, then will mark all equal files for hiding (=h) and
> will hide them (x).
>
> I did the following:
> (defun compare-my-dirs (dir1 dir2)
> "compares two directories"
> (ediff-directories dir1 dir2)
> (switch-to-buffer "*Ediff Session Group Panel*") ;; success, switches
to that buffer.
> (insert "=h") ;; !!!! neither does not mark equal files for hiding..
> (insert "x")) ;; !!!! ..nor hides them.
>
> My question is, how can I pass my commands to *`Ediff Session Group
> Panel*' from elisp function ?
(setq unread-command-events (list ?= ?h ?x))
--
Kevin Rodgers
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: passing commands to ediff-directories from the elisp function
2005-09-27 12:15 mak kwak
2005-09-27 17:31 ` Kevin Rodgers
@ 2005-09-27 20:58 ` Kevin Rodgers
1 sibling, 0 replies; 4+ messages in thread
From: Kevin Rodgers @ 2005-09-27 20:58 UTC (permalink / raw)
mak kwak wrote:
> I trying to write a method that will run ediff-directories comand for
> my two directories, then will mark all equal files for hiding (=h) and
> will hide them (x).
>
> I did the following:
> (defun compare-my-dirs (dir1 dir2)
> "compares two directories"
> (ediff-directories dir1 dir2)
> (switch-to-buffer "*Ediff Session Group Panel*") ;; success, switches
to that buffer.
> (insert "=h") ;; !!!! neither does not mark equal files for hiding..
> (insert "x")) ;; !!!! ..nor hides them.
>
> My question is, how can I pass my commands to *`Ediff Session Group
> Panel*' from elisp function ?
`=h' and `x' are not commands, they are key sequences that are bound to
commands:
,----[ C-h k = h ]
| = h runs the command ediff-meta-mark-equal-files
| which is an interactive compiled Lisp function in `ediff-mult'.
| (ediff-meta-mark-equal-files)
|
| Run though the session list and mark identical files.
| This is used only for sessions that involve 2 or 3 files at the same time.
`----
,----[ C-h k x ]
|x runs the command ediff-hide-marked-sessions
| which is an interactive compiled Lisp function in `ediff-mult'.
|(ediff-hide-marked-sessions UNHIDE)
|
|Hide marked sessions. With prefix arg, unhide.
`----
So:
(ediff-meta-mark-equal-files)
(ediff-hide-marked-sessions nil)
--
Kevin Rodgers
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2005-09-28 11:45 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-09-28 11:45 passing commands to ediff-directories from the elisp function mak kwak
-- strict thread matches above, loose matches on Subject: below --
2005-09-27 12:15 mak kwak
2005-09-27 17:31 ` Kevin Rodgers
2005-09-27 20:58 ` Kevin Rodgers
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).