Jak ustalić, czy bieżącym znakiem jest litera

Jak mogę ustalić, czy bieżącym znakiem jest litera (znak alfabetyczny) (tzn. Należy do klasy składni [:alpha:]w wyrażeniach regularnych). Chciałbym napisać prostą funkcję jak poniżej: (defun test-letter () (interactive) (if char-after-is-a-letter (message "This is a letter") (message "This is...