diff -crN mlh-1.002.org/mlh.el mlh-1.002/mlh.el
*** mlh-1.002.org/mlh.el	Sat Jun 29 15:35:56 1996
--- mlh-1.002/mlh.el	Mon Nov  9 14:25:58 1998
***************
*** 197,203 ****
      ;;         ^--- this function is in egg.el
      (delete-region beg (point))
      (if val
!         (insert (make-character lc-jp (car val) (cdr val)))
        (insert "?jis?")))
    (if (null henkan-begin)
        (setq henkan-begin beg)))
--- 197,204 ----
      ;;         ^--- this function is in egg.el
      (delete-region beg (point))
      (if val
!         (insert (make-char (find-charset 'japanese-jisx0208)
! 			   (car val) (cdr val)))
        (insert "?jis?")))
    (if (null henkan-begin)
        (setq henkan-begin beg)))
***************
*** 298,304 ****
        (let ((end-marker (point-marker))
              (char nil)
              (beg nil))
!         (set-marker-type end-marker t)
          (unwind-protect
              (let (scheme)
                (backward-char 1)
--- 299,305 ----
        (let ((end-marker (point-marker))
              (char nil)
              (beg nil))
!         (set-marker-insertion-type end-marker t)
          (unwind-protect
              (let (scheme)
                (backward-char 1)
diff -crN mlh-1.002.org/nihongo.el mlh-1.002/nihongo.el
*** mlh-1.002.org/nihongo.el	Sat Jun 29 15:16:31 1996
--- mlh-1.002/nihongo.el	Mon Nov  9 14:50:34 1998
***************
*** 58,64 ****
    (setq beg (point))
    (goto-char end-marker)
    (backward-delete-char 2)
!   (zenkaku-region beg (point))
    (if (null henkan-begin)
        (setq henkan-begin beg)))
  
--- 58,64 ----
    (setq beg (point))
    (goto-char end-marker)
    (backward-delete-char 2)
!   (japanese-zenkaku-region beg (point))
    (if (null henkan-begin)
        (setq henkan-begin beg)))
  
***************
*** 67,74 ****
    (let ((result (copy-sequence str))
          (i 0))
      (while (setq i (string-match "[ぁ-ん]" str i))
!       (aset result (1+ i) ?\245)
!       (setq i (+ i 3)))
      result))
  
  (defvar mlh-comma-period-style nil
--- 67,74 ----
    (let ((result (copy-sequence str))
          (i 0))
      (while (setq i (string-match "[ぁ-ん]" str i))
!       (aset result i (+ (aref result i) 128))
!       (setq i (+ i 1)))
      result))
  
  (defvar mlh-comma-period-style nil