Calling a function interactively with a universal argument

Calling a function interactively with a universal argument

[spamfilteraccount]

Is it possible to call a function from a program with a certain
universal argument?

I'd like to a redefine a standard command, but *without* bothering to
use its actual lisp interface, so I want to call the function from a
program as a user would, supplying only a universal argument or not.


I'd like to override find-tag behavior, so that it does something
after reading the interactive arguments, but before invoking the
original command:


(defun my-find-tag ()
   ; the result of (interactive-form 'find-tag) should be substituted
here somehow as an interactive specifier, because I want the same
interactive behavior (I can copy it of course manually, but it would
be nicer to copy here the interactive specification of find-tag
programatically)

  (if my-find-tags was called with C-u then do something
       otherwise do something else)

  (call original find-tag with the interactive arugments received))



I've seen call-interactively, but it doesn't allow me to specify the
actual interactive arguments to call the command with.

Re: Calling a function interactively with a universal argument

[Tim X]

"spamfilteraccount@gmail.com" <spamfilteraccount@gmail.com> writes:

> Is it possible to call a function from a program with a certain
> universal argument?
>
> I'd like to a redefine a standard command, but *without* bothering to
> use its actual lisp interface, so I want to call the function from a
> program as a user would, supplying only a universal argument or not.
>
>
> I'd like to override find-tag behavior, so that it does something
> after reading the interactive arguments, but before invoking the
> original command:
>
>
> (defun my-find-tag ()
>    ; the result of (interactive-form 'find-tag) should be substituted
> here somehow as an interactive specifier, because I want the same
> interactive behavior (I can copy it of course manually, but it would
> be nicer to copy here the interactive specification of find-tag
> programatically)
>
>   (if my-find-tags was called with C-u then do something
>        otherwise do something else)
>
>   (call original find-tag with the interactive arugments received))
>
>
>
> I've seen call-interactively, but it doesn't allow me to specify the
> actual interactive arguments to call the command with.
>

have a look at defadvice in the elisp manual. It should allow you to do what
you want.

tim
-- 
tcross (at) rapttech dot com dot au

Re: Calling a function interactively with a universal argument

[Kevin Rodgers]

spamfilteraccount@gmail.com wrote:
> Is it possible to call a function from a program with a certain
> universal argument?
> 
> I'd like to a redefine a standard command, but *without* bothering to
> use its actual lisp interface, so I want to call the function from a
> program as a user would, supplying only a universal argument or not.
> 
> 
> I'd like to override find-tag behavior, so that it does something
> after reading the interactive arguments, but before invoking the
> original command:
> 
> 
> (defun my-find-tag ()
>    ; the result of (interactive-form 'find-tag) should be substituted
> here somehow as an interactive specifier, because I want the same
> interactive behavior (I can copy it of course manually, but it would
> be nicer to copy here the interactive specification of find-tag
> programatically)
> 
>   (if my-find-tags was called with C-u then do something
>        otherwise do something else)
> 
>   (call original find-tag with the interactive arugments received))

(defadvice find-tag (before universal-argument activate)
   "If called with \\[universal-argument], do SOMETHING, other do 
SOMETHING-ELSE."
   (if (consp current-prefix-arg)
       (something)
     (something-else)))

> I've seen call-interactively, but it doesn't allow me to specify the
> actual interactive arguments to call the command with.

-- 
Kevin Rodgers
Denver, Colorado, USA