Don't bind [mouse-1]; that's done elsewhere.

Define lower-upper case correspondence for the three mostly used code pages.

diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index 164b54e4efb9e29406714b47512b21398c0ef012..ff566ae33d0c4dc9220bf3b0ee5c64bfd000c742 100644 (file)
--- 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 "\87\80\81\9a\82\90\83A\84\8e\85A\86\8f\88E\89E\8aE\8bI\8cI\8dI\91\92\93O\94\99\95O\96U£U\98Y\9b\9d 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)
+        "\87\80\81\9a\82\90\83¶\84\8e\85·\86\8fÆÇ µ\88Ò\89Ó\8aÔ\8bØ\8c×\8dÞ¡Ö\91\92\93â\94\99\95ã¢à\9b\9d\96ê£é\97ë\98Yìí¡I£é¤¥ÐÑçè")
+       ((= dos-codepage 865)
+        "\87\80\81\9a\82\90\83A\84\8e\85A\86\8f\88E\89E\8aE\8bI\8cI\8dI\91\92\93O\94\99\95O\96U£U\98Y\9b\9d A¡I¢O£U¤¥")
+       ;; default is 437
+       (t "\87\80\81\9a\82\90\83A\84\8e\85A\86\8f\88E\89E\8aE\8bI\8cI\8dI\91\92\93O\94\99\95O\96U£U\98Y 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)))