diff -c mlh-1.002.org/mlh+canna.el mlh-1.002/mlh+canna.el
*** mlh-1.002.org/mlh+canna.el	Sat Jun 29 15:32:58 1996
--- mlh-1.002/mlh+canna.el	Fri Dec 19 19:25:08 1997
***************
*** 222,228 ****
  ;(define-key mlh-henkan-mode-map "\C-y" 'undefined)
  ;(define-key mlh-henkan-mode-map "\C-z" 'undefined)
  (define-key mlh-henkan-mode-map "/" 'mlh-henkan-kakutei)
! (define-key mlh-henkan-mode-map [?\C-/] 'mlh-henkan-kakutei-unread-events)
  (define-key mlh-henkan-mode-map "\C-_" 'mlh-henkan-kakutei-unread-events)
  (define-key mlh-henkan-mode-map "\177" 'mlh-henkan-quit)              ;Change
  
--- 222,228 ----
  ;(define-key mlh-henkan-mode-map "\C-y" 'undefined)
  ;(define-key mlh-henkan-mode-map "\C-z" 'undefined)
  (define-key mlh-henkan-mode-map "/" 'mlh-henkan-kakutei)
! ;(define-key mlh-henkan-mode-map [?\C-/] 'mlh-henkan-kakutei-unread-events)
  (define-key mlh-henkan-mode-map "\C-_" 'mlh-henkan-kakutei-unread-events)
  (define-key mlh-henkan-mode-map "\177" 'mlh-henkan-quit)              ;Change
  
diff -c 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	Wed Dec 24 16:31:08 1997
***************
*** 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 -c 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	Wed Dec 24 16:12:44 1997
***************
*** 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