diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-30 20:40:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-30 20:40:34 +0000 |
| commit | 870975a12b8e089b4e7ce9e458e211684ec532c8 (patch) | |
| tree | f27ed2ecf09c5eb02d4c964d9a75bebd9ab65ca7 /lisp/term | |
| parent | 024a380b5d4d7c424c2a8c42da93c4dba21c7a7b (diff) | |
| download | emacs-870975a12b8e089b4e7ce9e458e211684ec532c8.tar.gz | |
Don't bind [mouse-1]; that's done elsewhere.
Define lower-upper case correspondence for the three mostly used code pages.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/internal.el | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/lisp/term/internal.el b/lisp/term/internal.el index 164b54e4efb..ff566ae33d0 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el @@ -1,9 +1,9 @@ ;; internal.el -- setup support for PC keyboards and screens, internal terminal -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: Morten Welinder <terra@diku.dk> -;; Version: 1,01 +;; Version: 1,02 ;; This file is part of GNU Emacs. @@ -26,7 +26,6 @@ ;; --------------------------------------------------------------------------- ;; keyboard setup -- that's simple! (set-input-mode nil nil 0) -(define-key global-map [mouse-1] 'mouse-set-point) (define-key function-key-map [backspace] "\177") ; Normal behaviour for BS (define-key function-key-map [delete] "\C-d") ; ... and Delete (define-key function-key-map [tab] [?\t]) @@ -49,8 +48,8 @@ (put 'return 'ascii-character 13) (put 'escape 'ascii-character ?\e) ;; --------------------------------------------------------------------------- -;; We want to do this when Emacs is started because one day it will depend -;; on the country code. +;; We want to do this when Emacs is started because it depends on the +;; country code. (let* ((i 128) (modify (function (lambda (ch sy) @@ -61,7 +60,17 @@ ))) (downs (car (standard-case-table))) (ups (car (cdr (standard-case-table)))) - (chars "�������A���A���E�E�E�I�I�I���O���O�U�U�Y���A�I�O�U��")) + ;; The following are strings of letters, first lower then upper case. + ;; This will look funny on terminals which display other code pages. + (chars + (cond + ((= dos-codepage 850) + "���������������Ǡ��҉ӊԋ،ޡ֑��┙���������Y���I�餥����") + ((= dos-codepage 865) + "�������A���A���E�E�E�I�I�I���O���O�U�U�Y���A�I�O�U��") + ;; default is 437 + (t "�������A���A���E�E�E�I�I�I���O���O�U�U�Y�A�I�O�U��")))) + (while (< i 256) (funcall modify i "_") (setq i (1+ i))) @@ -80,5 +89,4 @@ (save-excursion (mapcar (lambda (b) (progn (set-buffer b) (set-case-table table))) (buffer-list))) - (set-standard-case-table table)) - ) + (set-standard-case-table table))) |