calling interactive functions programmatically

calling interactive functions programmatically

[Phillip Lord]

Is there a way to call an interactive function, but to specify some of
the arguments programmatically?

For instance, take "find-dired". It is defined like so....

(defun find-dired (dir args)  
        (interactive (list (read-file-name "Run find in directory: " nil "" t)
                     (read-string "Run find (with args): " find-args
				  '(find-args-history . 1))))



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? 

Cheers

Phil

Re: calling interactive functions programmatically

[Kevin Rodgers]

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>