Mercurial > hg > xemacs-beta

comparison lisp/tty-init.el @ 4605:c786c3fd0740

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Listen to the byte-compiler, core Lisp. lisp/ChangeLog addition: 2009-02-07 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el (describe-text-sexp): pp is in packages, use cl-prettyprint instead. * mule/mule-coding.el (make-8-bit-generate-helper): Don't uselessly bind args-out-of-range, thank you the byte compiler. * mule/mule-coding.el (8-bit-fixed-query-coding-region): Don't uselessly bind previous-fail, thank you the byte compiler. * tty-init.el (make-device-early-tty-entry-point): Set make-device-early-tty-entry-point-called-p, not pre-tty-win-initted, thank you the byte compiler. * unicode.el (unicode-query-coding-region): Don't uselessly bind invalid-sequence-p, thank you the byte-compiler.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 07 Feb 2009 18:31:21 +0000
parents e34711681f30
children 308d34e9f07d
comparison
equal deleted inserted replaced
4604:e0a8715fdb1f 4605:c786c3fd0740
55 (register-tty-color "brightblue" "\e[1;34m" "\e[1;44m") 55 (register-tty-color "brightblue" "\e[1;34m" "\e[1;44m")
56 (register-tty-color "brightmagenta" "\e[1;35m" "\e[1;45m") 56 (register-tty-color "brightmagenta" "\e[1;35m" "\e[1;45m")
57 (register-tty-color "brightcyan" "\e[1;36m" "\e[1;46m") 57 (register-tty-color "brightcyan" "\e[1;36m" "\e[1;46m")
58 (register-tty-color "brightwhite" "\e[1;37m" "\e[1;47m") 58 (register-tty-color "brightwhite" "\e[1;37m" "\e[1;47m")
59 59
60 (setq pre-tty-win-initted t)))) 60 (setq make-device-early-tty-entry-point-called-p t))))
61 61
62 ;; We have to do this for every created TTY console, after the first frame 62 ;; We have to do this for every created TTY console, after the first frame
63 ;; has been created. 63 ;; has been created.
64 (defun make-frame-after-init-entry-point (console) 64 (defun make-frame-after-init-entry-point (console)
65 "Entry point for Lisp called after first frame creation on a TTY device." 65 "Entry point for Lisp called after first frame creation on a TTY device."