# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1318935816 -3600
# Node ID d469c668462e5b004a23418bd255949613be5608
# Parent  10f179710250e480c3dfaff0838480984d1a0edf
#'load-terminal-library; load term files correctly for gnuclient consoles.

lisp/ChangeLog addition:

2011-10-17  Aidan Kehoe  <kehoea@parhasard.net>

	* startup.el (load-terminal-library):
	Don't (getenv "TERM") here, call #'console-tty-terminal-type
	instead, different gnuclient consoles can and should have
	different terminal type function maps effective.

diff -r 10f179710250 -r d469c668462e lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 09 12:55:51 2011 +0100
+++ b/lisp/ChangeLog	Tue Oct 18 12:03:36 2011 +0100
@@ -1,3 +1,10 @@
+2011-10-17  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* startup.el (load-terminal-library):
+	Don't (getenv "TERM") here, call #'console-tty-terminal-type
+	instead, different gnuclient consoles can and should have
+	different terminal type function maps effective.
+
 2011-10-09  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* obsolete.el:
diff -r 10f179710250 -r d469c668462e lisp/startup.el
--- a/lisp/startup.el	Sun Oct 09 12:55:51 2011 +0100
+++ b/lisp/startup.el	Tue Oct 18 12:03:36 2011 +0100
@@ -796,7 +796,7 @@
 
 (defun load-terminal-library ()
   (when term-file-prefix
-    (let ((term (getenv "TERM"))
+    (let ((term (console-tty-terminal-type))
 	  hyphend)
       (while (and term
 		  (not (load (concat term-file-prefix term) t t)))