Accessing arg with (interactive "P")

Accessing arg with (interactive "P")

[carlmarcos--- via Users list for the GNU Emacs text editor]

I have the following elisp function, using `current-prefix-arg` to decide subsequent processing.

Having made the command examine it directly, the usual method for accessing it is with 
(interactive "P").  The problem is that I do not know how to examine the prefix arg through
 the interactive clause.

(defun poke (&optional prefix)
  "TODO"

  (interactive "P")

  (cond
   ((equal current-prefix-arg nil)   ; no C-u
    (setq workbench-poke-name-mode 1))

   ((equal current-prefix-arg '(4))  ; C-u
    (arktika-workbench))

RE: [External] : Accessing arg with (interactive "P")

[Drew Adams]

[-- Attachment #1: Type: text/plain, Size: 771 bytes --]

 
> I have the following elisp function, using `current-prefix-arg` to
> decide subsequent processing.
> 
> Having made the command examine it directly, the usual method for
> accessing it is with
> (interactive "P").  The problem is that I do not know how to examine
> the prefix arg through
>  the interactive clause.
> 
> (defun poke (&optional prefix)
>   "TODO"
>   (interactive "P")
>   (cond
>    ((equal current-prefix-arg nil)   ; no C-u
>     (setq workbench-poke-name-mode 1))
>    ((equal current-prefix-arg '(4))  ; C-u
>     (arktika-workbench))

Not sure what your question is or what it is that
you want to do.  But change `current-prefix-arg'
to `prefix' and your code will do what I'm guessing
you want it to do.

[-- Attachment #2: winmail.dat --]
[-- Type: application/ms-tnef, Size: 13270 bytes --]

Re: Accessing arg with (interactive "P")

[Emanuel Berg]

carlmarcos--- via Users list for the GNU Emacs text editor wrote:

> I have the following elisp function, using
> `current-prefix-arg` to decide subsequent processing.

You can do that but better is to use the argument directly
just as you normally would,

(defun poke (&optional n)
  (interactive "P")
  (if n
      (message "n is set")
    (message "n is nil") ))

Try M-x poke RET and C-u M-x poke RET.

Note that this also works from Lisp which ignores the
interactive spec. Try eval these

  (poke)
  (poke 1)

With (poke) you see that optional arguments defaults to nil.
If you intends to use the arg, and nil doesn't make sense, you
must explicitely set it to some default that does, say 0 which
is common:

  (or n (setq n 0))

But in our example nil is fine so no need to do that.

> Having made the command examine it directly, the usual
> method for accessing it is with (interactive "P").
> The problem is that I do not know how to examine the prefix
> arg through the interactive clause.

Try evaluating the interactive form, for example

  (interactive "P") ; evals to (nil)

so the list element(s) is/are assigned to the formal
parameters, they become the arguments to the function.

Eval this:

  (interactive "sString: \nnNumber: ")

It will assign the data you input to the formal parameters of
a function that looks like this for example

  (defun xy-problem (str num) ... )

-- 
underground experts united
https://dataswamp.org/~incal

RE: [External] : Accessing arg with (interactive "P")

[carlmarcos--- via Users list for the GNU Emacs text editor]

Jul 6, 2022, 00:55 by drew.adams@oracle.com:

>> I have the following elisp function, using `current-prefix-arg` to
>> decide subsequent processing.
>>
>> Having made the command examine it directly, the usual method for
>> accessing it is with
>> (interactive "P").  The problem is that I do not know how to examine
>> the prefix arg through
>>  the interactive clause.
>>
>> (defun poke (&optional prefix)
>>   "TODO"
>>   (interactive "P")
>>   (cond
>>    ((equal current-prefix-arg nil)   ; no C-u
>>     (setq workbench-poke-name-mode 1))
>>    ((equal current-prefix-arg '(4))  ; C-u
>>     (arktika-workbench))
>>
>
> Not sure what your question is or what it is that
> you want to do.  But change `current-prefix-arg'
> to `prefix' and your code will do what I'm guessing
> you want it to do.
>
It does do what I want.