From eb10e77ab697e512f1bb16326ecf9005cd0ec98e Mon Sep 17 00:00:00 2001
Message-Id: <eb10e77ab697e512f1bb16326ecf9005cd0ec98e.1717366368.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Tue, 1 Aug 2017 14:48:43 +0100
Subject: [PATCH] dot/emacs: Hack around Emacs and screen terminal naming
 conventions.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 dot/emacs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/dot/emacs b/dot/emacs
index 93e54f8..3dc860a 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -279,6 +279,15 @@
     (apply #'set-input-mode
 	   (nconc (list (nth 0 im) (nth 1 im) 0) (nthcdr 3 im)))))
 
+;; Some unpleasant terminal hackery.  Screen prefixes the current terminal
+;; name with `screen.', and Emacs is too dim to split the name at the `.'.
+;; Help it out.
+
+(defun terminal-init-screen.xterm ()
+  (tty-run-terminal-initialization (selected-frame) "screen"))
+(defun terminal-init-screen.putty ()
+  (tty-run-terminal-initialization (selected-frame) "screen"))
+
 ;; Don't disable any commands.
 
 (mapatoms #'(lambda (sym) (put sym 'disabled nil)))
-- 
[mdw]