Re: calling interactive functions programmatically

[Kevin Rodgers <ihs_4664@yahoo.com>]

Phillip Lord wrote:

> Now I want to wrap this call inside another, where I already know the
> directory in question, but do not know the arguments. 
> 
> So I guess I can do...
> 
> 
> (defun my-find-dired(args)
>     (interactive (read-string "Run find (with args): " find-args
> 				  '(find-args-history . 1)))
>     (find-dired (get-the-directory-name-from-somewhere-else)
>         args))
> 
> But ideally I would like to not do the "read-string" form, as this
> duplicates everything in find-dired. 
> 
> Is there a way to do this? 


Does this work:

;; M-x gross-hack
(let ((unread-command-events
       (listify-key-sequence
	(concat (get-the-directory-name-from-somewhere-else)
		"\r"))))
  (call-interactively 'find-dired))


-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>