Mercurial > emacs

changeset 6937:c5a85ac1d292

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set_case_table): Handle nil for EQV with non-nil CANON. (Fcase_table_p): Accept nil for EQV with non-nil CANON.
author Richard M. Stallman <rms@gnu.org>
date Sun, 17 Apr 1994 23:02:52 +0000
parents 5538df04e96a
children 782646fc7505
files src/casetab.c
diffstat 1 files changed, 11 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/casetab.c	Sun Apr 17 20:13:34 1994 +0000
+++ b/src/casetab.c	Sun Apr 17 23:02:52 1994 +0000
@@ -47,7 +47,8 @@
   return (STRING256_P (down)
 	  && (NILP (up) || STRING256_P (up))
 	  && ((NILP (canon) && NILP (eqv))
-	      || (STRING256_P (canon) && STRING256_P (eqv)))
+ 	      || (STRING256_P (canon)
+		  && (NILP (eqv) || STRING256_P (eqv))))
 	  ? Qt : Qnil);
 }
 
@@ -99,11 +100,11 @@
  you may use nil and the upcase table will be deduced from DOWNCASE.\n\
 CANONICALIZE maps each character to a canonical equivalent;\n\
  any two characters that are related by case-conversion have the same\n\
- canonical equivalent character.\n\
+ canonical equivalent character; it may be nil, in which case it is\n\
+ deduced from DOWNCASE and UPCASE.\n\
 EQUIVALENCES is a map that cyclicly permutes each equivalence class\n\
- (of characters with the same canonical equivalent).\n\
-Both CANONICALIZE and EQUIVALENCES may be nil, in which case\n\
- both are deduced from DOWNCASE and UPCASE.")
+ (of characters with the same canonical equivalent); it may be nil,\n\
+ in which case it is deduced from CANONICALIZE.")
   (table)
      Lisp_Object table;
 {
@@ -146,13 +147,17 @@
       unsigned char *downvec = XSTRING (down)->data;
 
       canon = Fmake_string (make_number (256), make_number (0));
-      eqv = Fmake_string (make_number (256), make_number (0));
 
       /* Set up the CANON vector; for each character,
 	 this sequence of upcasing and downcasing ought to
 	 get the "preferred" lowercase equivalent.  */
       for (i = 0; i < 256; i++)
 	XSTRING (canon)->data[i] = downvec[upvec[downvec[i]]];
+    }
+
+  if (NILP (eqv))
+    {
+      eqv = Fmake_string (make_number (256), make_number (0));
 
       compute_trt_inverse (XSTRING (canon)->data, XSTRING (eqv)->data);
     }