passing commands to ediff-directories from the elisp function

passing commands to ediff-directories from the elisp function

[mak kwak]

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

Re: passing commands to ediff-directories from the elisp function

[Kevin Rodgers]

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

Re: passing commands to ediff-directories from the elisp function

[Kevin Rodgers]

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

Re: passing commands to ediff-directories from the elisp function

[mak kwak]

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