chiark
/
gitweb
/
~mdw
/
profile
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6a2d05a
)
dot/emacs: Hack around Emacs and screen terminal naming conventions.
author
Mark Wooding
<mdw@distorted.org.uk>
Tue, 1 Aug 2017 13:48:43 +0000
(14:48 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Tue, 1 Aug 2017 13:48:43 +0000
(14:48 +0100)
dot/emacs
patch
|
blob
|
blame
|
history
diff --git
a/dot/emacs
b/dot/emacs
index 93e54f897b17aad06f9612f687e67723e31b9b44..3dc860a743474b92beecec2ab899c9c29d716e64 100644
(file)
--- 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)))))
(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)))
;; Don't disable any commands.
(mapatoms #'(lambda (sym) (put sym 'disabled nil)))