Mercurial > emacs

annotate lisp/term/vt201.el @ 22226:557fac086b1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ascii_skip_code): New variable. (detect_coding_mask): Skip ASCII codes at the head according to ascii_skip_code. (coding_priorities): New variable. (Fset_coding_priority_internal): New function. (detect_coding): Call set_coding_mask with coding_priorities as arg CODING. (init_coding_once): Initialize ascii_skip_code. (syms_of_coding): Declare set-coding-priority-internal as a Lisp function.
author Kenichi Handa <handa@m17n.org>
date Mon, 25 May 1998 08:08:07 +0000
parents 8ba66a564213
children 67b464da13ec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3807
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
1 ;; For our purposes we can treat the vt200 and vt100 almost alike.
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
2 ;; Most differences are handled by the termcap entry.
3290
1064f75f0d34 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3 (load "term/vt100" nil t)
3807
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
4
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
5 ;; Make F11 an escape key.
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
6 (define-key function-key-map "\e[23~" [?\e])
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
7