procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rewrite for new case tables.

Browse source
This commit is contained in:
Richard M. Stallman 1995-11-10 17:39:54 +00:00
parent 2b03c5067c
commit 0b574c357f
1 changed files with 6 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/term/internal.el
View file

@ -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))