Mercurial > hg > xemacs-beta
changeset 5584:d469c668462e
#'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.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 18 Oct 2011 12:03:36 +0100 |
| parents | 10f179710250 |
| children | d8a11d5ebc9f |
| files | lisp/ChangeLog lisp/startup.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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:
--- 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)))