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

[Kevin Rodgers <ihs_4664@yahoo.com>]

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