[mew-dist 27228] Re: Mew ver 5.1.50

[Takashi Masuda ( 増田貴士 )]

増田です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Date: Wed, 16 Aug 2006 14:03:27 +0900 (JST)
Subject: [mew-dist 27208] Mew ver 5.1.50

> Hello all,
> 
> I have released Mew version 5.1.50:
>       http://www.mew.org/Beta/mew-5.1.50.tar.gz

今さら感もありますが、Emacs-20.7 だとバイトコンパイルに失敗します。

添付のパッチでコンパイルは通るようになりますが、#xff と ?\xff の違いを
理解していないので、間違っているかも。。。

--
Takashi Masuda <masutaka at example.com>
-------------- next part --------------
Index: mew-gemacs.el
===================================================================
RCS file: /cvsmew/mew/mew-gemacs.el,v
retrieving revision 1.39
diff -u -r1.39 mew-gemacs.el
--- mew-gemacs.el	14 Aug 2006 12:48:28 -0000	1.39
+++ mew-gemacs.el	21 Aug 2006 14:15:47 -0000
@@ -145,23 +145,23 @@
 	(while t
 	  (setq c (char-after))
 	  (forward-char)
-	  (unless (eq c #xff)
+	  (unless (eq c ?\xff)
 	    (throw 'loop nil))
 	  (setq c (char-after))
 	  (forward-char)
 	  (cond
-	   ((eq c #xd8)
+	   ((eq c ?\xd8)
 	    )
-	   ((eq c #xe0)
+	   ((eq c ?\xe0)
 	    (forward-char 16))
-	   ((or (eq c #xdb) (eq c #xc4)
-		(and (>= c #xe0) (<= c #xed)))
+	   ((or (eq c ?\xdb) (eq c ?\xc4)
+		(and (>= c ?\xe0) (<= c ?\xed)))
 	    (setq size (char-after))
 	    (forward-char)
 	    (setq size (+ (* size 256) (char-after)))
 	    (forward-char)
 	    (forward-char (- size 2)))
-	   ((eq c #xc0)
+	   ((eq c ?\xc0)
 	    (forward-char 5)
 	    (setq width (char-after))
 	    (forward-char)