Remove code that sets syntax table for non-ASCII characters.

diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index 8d7dae5aeb61e76d3254585f28769cb0c820ac8b..30669f5eb557318f7a680ecf797a5b05a696fadb 100644 (file)
--- a/lisp/term/internal.el
+++ b/lisp/term/internal.el
@@ -51,43 +51,6 @@
 (put 'return 'ascii-character 13)
 (put 'escape 'ascii-character ?\e)
 ;; ---------------------------------------------------------------------------
-;; We want to do this when Emacs is started because it depends on the
-;; country code.
-(let* ((i 128)
-      (modify (function
-              (lambda (ch sy) 
-                (modify-syntax-entry ch sy text-mode-syntax-table)
-                (if (boundp 'tex-mode-syntax-table)
-                    (modify-syntax-entry ch sy tex-mode-syntax-table))
-                (modify-syntax-entry ch sy (standard-syntax-table))
-                )))
-      (table (standard-case-table))
-      ;; 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)))
-
-  (setq i 0)
-  (while (< i (length chars))
-    (let ((ch1 (aref chars i))
-         (ch2 (aref chars (1+ i))))
-      (if (> ch2 127)
-         (set-case-syntax-pair ch2 ch1 table))
-      (setq i (+ i 2))))
-  (save-excursion
-    (mapcar (lambda (b) (set-buffer b) (set-case-table table))
-           (buffer-list)))
-  (set-standard-case-table table))
 
 ;;; internal.el ends here