Re: Comparison between integer and character is constant nil (?\; and 0)
On 26 Apr 1998 23:48:59 -0700, SL Baur wrote:
> I've been getting these things from SKK -- when the SKK
tutorial
> hits the line
> ;; (skktut-today)
> one "Ebola" notice occurs, and every time I enter
okurigana on a word,
> a notice occurs. [These are with non-zero values.]
That might well be Ebola. Please post the notices you are getting.
This fixes it:
--- skk.el.orig Tue Apr 28 04:59:47 1998
+++ skk.el Tue Apr 28 05:03:09 1998
＠＠ -3616,11 +3616,11 ＠＠
;; previous char is a special midashi char
(memq p skk-special-midashi-char-list)
;; previous char is an ascii numeric char
- (and (<= 48 p) ; ?0
- (<= p 57) ) ; ?9
+ (and (<= ?0 p)
+ (<= p ?9))
;; previous char is a jis numeric char
- (and (eq (char-after (- (point) 2)) 163)
- (<= 176 p) (<= p 185) ))))))
+ (and (eq (char-after (- (point) 2)) (int-char 163))
+ (<= (int-char 176) p) (<= p (int-char 185))))))))
(if skk-process-okuri-early
(progn
(skk-set-marker skk-henkan-end-point (point))
--- skk-gadget.el.orig Tue Apr 28 16:28:45 1998
+++ skk-gadget.el Tue Apr 28 16:31:48 1998
＠＠ -92,7 +92,7 ＠＠
(day (substring str 8 10))
(day-of-week (cdr (assoc (substring str 0 3) skk-week-alist)))
hour minute second )
- (if (eq (aref day 0) 32) (setq day (substring day 1)))
+ (if (eq (char-int (aref day 0)) 32) (setq day (substring day 1)))
(setq day (skk-num day))
(concat (if skk-date-ad "" "平成") year "年"
month "月" day "日" "\(" day-of-week
"\)"
--
Paul Foley <mycroft(a)actrix.gen.nz> --- PGP-encrypted mail preferred
PGP key ID 0x1CA3386D available from keyservers
fingerprint = 4A 76 83 D8 99 BC ED 33 C5 02 81 C9 BF 7A 91 E8