Mercurial > emacs

changeset 23811:acb8e52c578d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove code that sets syntax table for non-ASCII characters.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 03 Dec 1998 09:29:14 +0000
parents e473bf3419a9
children baf00f643ccf
files lisp/term/internal.el
diffstat 1 files changed, 0 insertions(+), 37 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/internal.el	Thu Dec 03 09:22:52 1998 +0000
+++ b/lisp/term/internal.el	Thu Dec 03 09:29:14 1998 +0000
@@ -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)
-	 "‡€š‚ƒķ„Ž…·†ÆĮ ĩˆŌ‰ÓŠÔ‹ØŒŨÞĄÖ‘’“â”™•ãĒā›–ęĢé—ë˜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)))
-
-  (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