[Emacs-diffs] Changes to emacs/lisp/case-table.el

[Dave Love]

Index: emacs/lisp/case-table.el
diff -c emacs/lisp/case-table.el:1.25 emacs/lisp/case-table.el:1.26
*** emacs/lisp/case-table.el:1.25       Sun Jul 15 12:15:34 2001
--- emacs/lisp/case-table.el    Sat Dec 15 22:45:57 2001
***************
*** 103,108 ****
--- 103,111 ----
  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)