From b197b9e1468a404c8d6a5cfdf1a40ebf40e917aa Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 27 Jun 2002 08:38:48 +0000
Subject: [PATCH] (ids-read-buffer): Read M-nnnnn', M-nnnnn" and MH-nnnn.

---
 ids-read.el |   31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

diff --git a/ids-read.el b/ids-read.el
index 6322c09..16bd7e8 100644
--- a/ids-read.el
+++ b/ids-read.el
@@ -32,7 +32,7 @@
   (save-excursion
     (set-buffer buffer)
     (goto-char (point-min))
-    (let (line chs ids char structure)
+    (let (line chs ids code char structure)
       (while (not (eobp))
 	(unless (looking-at ";")
 	  (setq line
@@ -46,9 +46,36 @@
 		 ((string-match "U[-+]\\([0-9A-F]+\\)" chs)
 		  (decode-char 'ucs
 			       (string-to-int (match-string 1 chs) 16)))
-		 ((string-match "M-\\([0-9]+\\)\\([^'\"]\\|$\\)" chs)
+		 ((string-match "M-\\([0-9]+\\)'" chs)
+		  (setq code (string-to-int (match-string 1 chs)))
+		  (map-char-attribute
+		   (lambda (key val)
+		     (if (and (eq (car val) code)
+			      (eq (nth 1 val) 1)
+			      (null (nthcdr 2 val)))
+			 key))
+		   'morohashi-daikanwa))
+		 ((string-match "M-\\([0-9]+\\)\"" chs)
+		  (setq code (string-to-int (match-string 1 chs)))
+		  (map-char-attribute
+		   (lambda (key val)
+		     (if (and (eq (car val) code)
+			      (eq (nth 1 val) 2)
+			      (null (nthcdr 2 val)))
+			 key))
+		   'morohashi-daikanwa))
+		 ((string-match "M-\\([0-9]+\\)" chs)
 		  (decode-char 'ideograph-daikanwa
 			       (string-to-int (match-string 1 chs))))
+		 ((string-match "MH-\\([0-9]+\\)" chs)
+		  (setq code (string-to-int (match-string 1 chs)))
+		  (map-char-attribute
+		   (lambda (key val)
+		     (if (and (eq (car val) 'ho)
+			      (eq (nth 1 val) code)
+			      (null (nthcdr 2 val)))
+			 key))
+		   'morohashi-daikanwa))
 		 ((string-match "CB\\([0-9]+\\)" chs)
 		  (decode-char 'ideograph-cbeta
 			       (string-to-int (match-string 1 chs))))
-- 
1.7.10.4