;;; case-table.el --- code to extend the character set and support case tables
-;; Copyright (C) 1988, 1994, 2005 Free Software Foundation, Inc.
+;; Copyright (C) 1988, 1994, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Howard Gayle
;; Maintainer: FSF
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
word constituents."
(setq uc (set-case-syntax-1 uc))
(setq lc (set-case-syntax-1 lc))
+ (aset table lc lc)
(let ((up (get-upcase-table table)))
(aset up uc uc)
(aset up lc uc))
(setq lc (set-case-syntax-1 lc))
(aset table uc lc)
(aset table lc lc)
+ (let ((up (get-upcase-table table)))
+ (aset up uc uc))
;; Clear out the extra slots so that they will be
;; recomputed from the main (downcase) table and upcase table.
(set-char-table-extra-slot table 1 nil)