Как создать интерактивную функцию elisp с необязательными аргументами

Как написать функцию elisp, которая должна быть привязана к нажатию клавиши, которая по умолчанию работает без запроса, но когда ей предшествует Ctrl-u, запрашивает у пользователя аргумент. Что-то похоже на (это неправильный синтаксис, но я надеюсь, вы поняли идею)?

 (defun my-message (&optional (print-message "foo"))
   (interactive "P")
   (message print-message))
 (global-set-key "\C-c\C-m" 'my-message)