1. xemacs
  2. skk

Commits

steveb  committed 90ad3e1

De-ebolification

  • Participants
  • Parent commits 8636399
  • Branches default

Comments (0)

Files changed (4)

File ChangeLog

View file
  • Ignore whitespace
+1998-04-28  SL Baur  <steve@altair.xemacs.org>
+
+	* skk.el:
+	* skk-gadget: De-ebolification.
+	From Paul Foley <mycroft@actrix.gen.nz>
+
 1998-04-14  Andreas Jaeger  <aj@arthur.rhein-neckar.de>
 
 	* Makefile (texi): use $(XEMACS).

File Makefile

View file
  • Ignore whitespace
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.05
+VERSION = 1.06
 AUTHOR_VERSION = 10.38
-MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
+MAINTAINER = SL Baur <steve@altair.xemacs.org>
 PACKAGE = skk
 PKG_TYPE = regular
 REQUIRES = viper mule-base xemacs-base

File skk-gadget.el

View file
  • Ignore whitespace
          (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 "" "$BJ?@.(B") year "$BG/(B"
             month "$B7n(B" day "$BF|(B" "\(" day-of-week "\)"

File skk.el

View file
  • Ignore whitespace
                            ;; 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))