/[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.1 by handa, Fri Mar 1 01:59:32 2002 UTC revision 1.26.2.2 by fx, Sun Jun 2 20:32:05 2002 UTC
# Line 25  Line 25 
25    
26  ;;; Commentary:  ;;; Commentary:
27    
 ;; Written by:  
 ;; TN/ETX/TX/UMG Howard Gayle        UUCP : seismo!enea!erix!howard  
 ;; Telefonaktiebolaget L M Ericsson  Phone: +46 8 719 55 65  
 ;; Ericsson Telecom                  Telex: 14910 ERIC S  
 ;; S-126 25 Stockholm                FAX  : +46 8 719 64 82  
 ;; Sweden  
   
28  ;;; Code:  ;;; Code:
29    
30  (defvar set-case-syntax-set-multibyte nil)  (defvar set-case-syntax-set-multibyte nil)
# Line 93  This sets the entries for characters UC Line 86  This sets the entries for characters UC
86  that will be used as the downcase part of a case table.  that will be used as the downcase part of a case table.
87  It also modifies `standard-syntax-table' to give them the syntax of  It also modifies `standard-syntax-table' to give them the syntax of
88  word constituents."  word constituents."
89      (let ((lu (length (string-as-unibyte (string uc))))
90            (ll (length (string-as-unibyte (string lc)))))
91        (unless (= lu ll)
92          (error "Can't casify chars with different `charset-bytes' values")))
93    (aset table uc lc)    (aset table uc lc)
94    (aset table lc lc)    (aset table lc lc)
95    (set-char-table-extra-slot table 0 nil)    (set-char-table-extra-slot table 0 nil)

Legend:
Removed from v.1.26.2.1  
changed lines
  Added in v.1.26.2.2

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