CVS update by aidan packages/mule-packages/mule-base, fsf-compat-unicode.el ...

  User: aidan   
  Date: 09/09/26 14:43:15

  Modified:    packages/mule-packages/mule-base ChangeLog
                        fsf-compat-unicode.el
Log:
Give a nicer error message if lacking Unicode coverage, fsf-compat-unicode.el

Revision  Changes    Path
1.71      +8 -0      XEmacs/packages/mule-packages/mule-base/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-base/ChangeLog,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -p -r1.70 -r1.71
--- ChangeLog	2009/09/15 07:56:49	1.70
+++ ChangeLog	2009/09/26 12:43:14	1.71
@@ -1,3 +1,11 @@
+2009-09-26  Aidan Kehoe  <[email protected]>
+
+	* fsf-compat-unicode.el: 
+	Give a nicer error message if this XEmacs doesn't have the Unicode
+	coverage necessary for this file.
+	(fsf-compat-init-mule-unicode-charsets): 
+	Add an autoload cookie for this.
+
 2009-09-15  Norbert Koch  <[email protected]>
 
 	* Makefile (VERSION): XEmacs package 1.55 released.



1.6       +3 -2      XEmacs/packages/mule-packages/mule-base/fsf-compat-unicode.el

Index: fsf-compat-unicode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-base/fsf-compat-unicode.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- fsf-compat-unicode.el	2007/07/29 11:09:07	1.5
+++ fsf-compat-unicode.el	2009/09/26 12:43:14	1.6
@@ -34,10 +34,10 @@
 
 ;; Check at runtime that the Unicode support is available, and that its
 ;; coverage is good enough.
-(unless (and (fboundp 'encode-char)
+(unless (and (fboundp 'encode-char) (decode-char 'ucs #x31C)
              (eq #x31C (encode-char (decode-char 'ucs #x31C) 'ucs)))
   (error 'unimplemented
-	 "Unicode support needed is not available in your XEmacs."))
+	 "Unicode support or coverage needed not available"))
 
 ;; For redisplay of these character sets, provide a CCL program to address
 ;; iso10646-1 X11 fonts.
@@ -62,6 +62,7 @@
       pre-existing))
   "CCL program required by `fsf-compat-init-mule-unicode-charsets'.")
 
+;;;###autoload
 (defun fsf-compat-init-mule-unicode-charsets ()
   "Make some Mule character sets that the FSF uses available in XEmacs.