(add-hook 'post-self-insert-hook
          (lambda ()
            (and (eq last-command-event ?e)
                 (looking-back "ae" (- (point) 2))
                 (replace-match "æ"))))