Hi, Am Dienstag, den 24. Mai 2022 um 19:30:40 Uhr (+0200) schrieb Kepa Diez: > (defun focusJump () > (interactive) > (if (equal posicion 1) > (focusPointInter) > (if (equal posicion 2) > (focusPointEnd) > (if (equal posicion 3) > (focusPointStart)))))
maybe you want to cleanup a bit: (defun focusJump (posicion) (interactive "nPosicion: ") (case posicion (1 (focusPointInter)) (2 (focusPointEnd)) (3 (focusPointStart)))) BTW: As lisp doesn't distinguish case, it is common practice in lisp to seperate words in symbols with dashes like 'focus-jump, 'focus-pont-inter, 'focus-point-start, etc. -- Orm