Emacs: add short-sytem-name defvar