Commits

aidan  committed 488698c

Correct over-long hex character usage, packages.

  • Participants
  • Parent commits 9764a22

Comments (0)

Files changed (2)

File lisp/ChangeLog

+2008-07-16  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* utf.el (utf-16-ccl-decode):
+	* utf.el (ccl-utf-7-decode):
+	Don't try to use character syntax for integers above #xFF, use
+	integer hex syntax instead. 
+
 2007-09-30  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* un-define.el (un-define):
 	((if ,(mucs-ccl-check-internal-state 'utf-16-little-endian-p)
 	     ((read r6 r4))
 	   ((read r4 r6)))
-	 (r0 = (((r0 & ?\x3ff) + ?\x40) << 10))
+	 (r0 = (((r0 & #x3ff) + ?\x40) << 10))
 	 (r6 &= ?\x3f)
 	 (r4 = ((r4 & ?\x3) << 6) | r6)
 	 (r0 |=  r4)))))
 	       (if (r1 >= 0)
 		   ((r6 = ((r6 << 6) | r1))
 		    (if (r6 >= ,(cn "0x30000"))
-			((r0 = (r6 & ?\xFFFF))
+			((r0 = (r6 & #xFFFF))
 			 (r6 = 0))
 		      ((read r0)
 		       (r1 = r0 ,ccl-b64-decode-table)
 		       (if (r1 >= 0)
 			   ((r6 = ((r6 << 6) | r1))
-			    (if (r6 >= ?\x800000)
+			    (if (r6 >= #x800000)
 				;; r6 = 1000 XXXX XXXX XXXX XXXX XXXX
 				((r0 = ((r6 >> 4) & ,(cn "0xFFFF")))
 				 (r6 = ((r6 & ?\xF) | ?\x30)))