diff --git a/emacs.el b/emacs.el
index d275fb3..4e8eeb5 100644
--- a/emacs.el
+++ b/emacs.el
@@ -233,14 +233,16 @@ drill-instructor.el"
 '(setq-default header-line-format (list " "
                                         'display-time-string))
 
-(setq set-terminal-title-regexp "^\\(rxvt\\|xterm\\|aterm$\\|screen\\)")
+(defvar set-terminal-title-term-regexp ""
+  "Rexexp for `set-terminal-title'.")
+(setq set-terminal-title-term-regexp "^\\(rxvt\\|xterm\\|aterm$\\|screen\\)")
 (defun set-terminal-title (&rest args)
   ""
   (interactive "sString to set as title: ")
   (let ((tty (frame-parameter nil
                               'tty-type)))
     (when (and tty
-               (string-match set-terminal-title-regexp
+               (string-match set-terminal-title-term-regexp
                              tty))
       (send-string-to-terminal (apply 'concat
                                       "\033]0;"