Mercurial > hg > xemacs-beta

comparison lisp/tty-init.el @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 41ff10fd062f
children 70ad99077275
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
64 "Initialize TTY at console creation time (post). Don't call this." 64 "Initialize TTY at console creation time (post). Don't call this."
65 ;; load the appropriate term-type-specific Lisp file. 65 ;; load the appropriate term-type-specific Lisp file.
66 ;; we don't do this at startup here so that the user can 66 ;; we don't do this at startup here so that the user can
67 ;; override term-file-prefix. (startup.el does it after 67 ;; override term-file-prefix. (startup.el does it after
68 ;; loading the init file.) 68 ;; loading the init file.)
69 (if (featurep 'mule)
70 (init-mule-tty-win))
69 (when init-file-loaded 71 (when init-file-loaded
70 ;; temporarily select the console so that the changes 72 ;; temporarily select the console so that the changes
71 ;; to function-key-map are made for the right console. 73 ;; to function-key-map are made for the right console.
72 (let ((foobar (selected-console))) 74 (let ((foobar (selected-console)))
73 (unwind-protect 75 (unwind-protect