Función interactiva de emacs con el prefijo numérico opcional

Question

¿Cómo especifico una función que tiene un prefijo numérico opcional, si no, solicita un número? Básicamente, ¿cómo se comporta goto-line?

(defun my-function(&optional n) 
    ; I have tried 
    (interactive "N") ; reads string, no prompt 
    (interactive "p") ; defaults to one 
    (interactive (if (not n) (read-number "N: "))) ; runtime error 

así que ¿cómo hago el trabajo? gracias

Answer 1

Eche un vistazo a cómo se define 'goto-line (M-x find-function goto-line RET).

(defun my-function (n) 
    "Example function taking a prefix arg, or reading a number if no prefix arg" 
    (interactive 
    (if (and current-prefix-arg (not (consp current-prefix-arg))) 
     (list (prefix-numeric-value current-prefix-arg)) 
    (list (read-number "N: ")))))