From 5ee54361ba6d8dcb204f4d00733650422129ee42 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 1 Mar 2002 01:59:32 +0000 Subject: [PATCH] (set-case-syntax-offset): Variable deleted. (set-case-syntax-1): Function deleted. Callers changed. (set-case-syntax-delims): Don't check byte length of characters. --- lisp/case-table.el | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/lisp/case-table.el b/lisp/case-table.el index f83123bf19f..00ea12b06fe 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -34,8 +34,6 @@ ;;; Code: -(defvar set-case-syntax-offset 0) - (defvar set-case-syntax-set-multibyte nil) (defun describe-buffer-case-table () @@ -71,20 +69,12 @@ (set-char-table-extra-slot copy 2 nil) copy)) -(defsubst set-case-syntax-1 (char) - "Offset CHAR by `set-case-syntax-offset' if CHAR is a non-ASCII 8-bit char." - (if (and (>= char 128) (< char 256)) - (+ char set-case-syntax-offset) - char)) - (defun set-case-syntax-delims (l r table) "Make characters L and R a matching pair of non-case-converting delimiters. This sets the entries for L and R in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table' to indicate left and right delimiters." - (setq l (set-case-syntax-1 l)) - (setq r (set-case-syntax-1 r)) (aset table l l) (aset table r r) ;; Clear out the extra slots so that they will be @@ -103,11 +93,6 @@ This sets the entries for characters UC and LC in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table' to give them the syntax of word constituents." - (unless (= (charset-bytes (char-charset uc)) - (charset-bytes (char-charset lc))) - (error "Can't casify chars with different `charset-bytes' values")) - (setq uc (set-case-syntax-1 uc)) - (setq lc (set-case-syntax-1 lc)) (aset table uc lc) (aset table lc lc) (set-char-table-extra-slot table 0 nil) @@ -122,7 +107,6 @@ This sets the entry for character C in TABLE, which is a string that will be used as the downcase part of a case table. It also modifies `standard-syntax-table'. SYNTAX should be \" \", \"w\", \".\" or \"_\"." - (setq c (set-case-syntax-1 c)) (aset table c c) (set-char-table-extra-slot table 0 nil) (set-char-table-extra-slot table 1 nil) -- 2.11.4.GIT