annotate lisp/term/vt220.el @ 4949:018e13fdeaeb

compile-related functions added, for use in Unicode-internal ws -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-01-17 Ben Wing <ben@xemacs.org> * bytecomp-runtime.el: * bytecomp-runtime.el (error-unless-tests-match): New. * bytecomp-runtime.el (byte-compile-file-being-compiled): New. * bytecomp-runtime.el (compiled-if): New. * bytecomp-runtime.el (compiled-when): New. Add functions for dealing with conditional compilation of different code depending on the presence or absence of features. Necessary for some Mule code where code is run during compilation (macros or eval-when-compile) but, depending on how the code is written, the code itself will crash either with or without Unicode-internal. compiled-if and compiled-when are the basic functions for conditional compilation. They automatically trigger an error message upon file loading if, at that time, the test expression that selected which code to compile does not have the same value as at compile time.
author Ben Wing <ben@xemacs.org>
date Sun, 17 Jan 2010 04:52:48 -0600
parents 376386a54a3c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 ;; For our purposes we can treat the vt200 and vt100 almost alike.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 ;; Most differences are handled by the termcap entry.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 (load "term/vt100" nil t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 ;; Make F11 an escape key.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 (define-key function-key-map "\e[23~" [?\e])
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7