mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(set-case-syntax-offset): Variable deleted.

Browse Source 
(set-case-syntax-1): Function deleted.  Callers changed.
(set-case-syntax-delims): Don't check byte length of characters.
This commit is contained in:
Kenichi Handa 2002-03-01 01:59:32 +00:00
parent cd2086e4c3
commit 5ee54361ba
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/case-table.el
View File

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