/[emacs]/emacs/lisp/case-table.el
ViewVC logotype

Diff of /emacs/lisp/case-table.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26.2.3 by handa, Tue Aug 20 03:58:23 2002 UTC revision 1.26.2.4 by fx, Sat Sep 7 23:54:43 2002 UTC
# Line 88  This sets the entries for characters UC Line 88  This sets the entries for characters UC
88  that will be used as the downcase part of a case table.  that will be used as the downcase part of a case table.
89  It also modifies `standard-syntax-table' to give them the syntax of  It also modifies `standard-syntax-table' to give them the syntax of
90  word constituents."  word constituents."
   (let ((lu (length (string-as-unibyte (string uc))))  
         (ll (length (string-as-unibyte (string lc)))))  
     (unless (= lu ll)  
       (error "Can't casify chars with different `charset-bytes' values")))  
91    (aset table uc lc)    (aset table uc lc)
92    (aset table lc lc)    (aset table lc lc)
93    (set-char-table-extra-slot table 0 nil)    (set-char-table-extra-slot table 0 nil)

Legend:
Removed from v.1.26.2.3  
changed lines
  Added in v.1.26.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26