From 49ef6824ee6d4a59e59c0e3290ea43ec04f2c1d5 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 3 Oct 2012 01:44:39 +0900
Subject: [PATCH] modify var for set-terminal-title

---
 emacs.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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;"