From 0b574c357f10377efd48872ca1b0822ae5f92171 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 10 Nov 1995 17:39:54 +0000 Subject: [PATCH] Rewrite for new case tables. --- lisp/term/internal.el | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/lisp/term/internal.el b/lisp/term/internal.el index ff566ae33d0..c5a28423481 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el @@ -58,8 +58,7 @@ (modify-syntax-entry ch sy tex-mode-syntax-table)) (modify-syntax-entry ch sy (standard-syntax-table)) ))) - (downs (car (standard-case-table))) - (ups (car (cdr (standard-case-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 @@ -79,14 +78,10 @@ (while (< i (length chars)) (let ((ch1 (aref chars i)) (ch2 (aref chars (1+ i)))) - (funcall modify ch1 "w") - (funcall modify ch2 "w") - (aset ups ch1 ch2) (if (> ch2 127) - (aset downs ch2 ch1)) + (set-case-syntax-pair ch2 ch1 table)) (setq i (+ i 2)))) - (let ((table (list downs ups nil nil))) - (save-excursion - (mapcar (lambda (b) (progn (set-buffer b) (set-case-table table))) - (buffer-list))) - (set-standard-case-table table))) + (save-excursion + (mapcar (lambda (b) (set-buffer b) (set-case-table table)) + (buffer-list))) + (set-standard-case-table table)) -- 2.39.2