Respondendo a minha própria pergunta. Encontrou a resposta em este site :
(defun clear-shell ()
(interactive)
(let ((old-max comint-buffer-maximum-size))
(setq comint-buffer-maximum-size 0)
(comint-truncate-buffer)
(setq comint-buffer-maximum-size old-max)))
Depois, também adicionei uma ligação de chave:
(global-set-key "\C-f" 'clear-shell)