From: tomo <tomo>
Date: Tue, 24 Jul 2001 11:20:15 +0000 (+0000)
Subject: (char-db-insert-char-reference): Renamed from `char-db-insert-char-map'.
X-Git-Tag: r21-2-38-utf-2000-0_17-1~235
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=026445a5fcb93ce75d78c2d7af98f14ae3359842;p=chise%2Fxemacs-chise.git-

(char-db-insert-char-reference): Renamed from `char-db-insert-char-map'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index f974107..78bc654 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -229,7 +229,7 @@
       (setq alist (cdr alist))))
   (insert ")"))
 
-(defun char-db-insert-char-map (plist &optional readable column)
+(defun char-db-insert-char-reference (plist &optional readable column)
   (unless column
     (setq column (current-column)))
   (let ((line-breaking
@@ -601,7 +601,7 @@
 			      (insert lbs))
 			  (if (consp (car cell))
 			      (char-db-insert-char-spec cell readable)
-			    (char-db-insert-char-map cell readable))
+			    (char-db-insert-char-reference cell readable))
 			  (setq separator lbs))
 			 (t
 			  (if separator