From: Dave Love <fx@gnu.org>
Date: Fri, 1 Nov 2002 22:56:13 +0000 (+0000)
Subject: (unicode-data): Find unicodedata-file
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0cefd6be2e9ed0312ea88b1f4c9be66dfef307d2;p=emacs.git

(unicode-data): Find unicodedata-file
literally.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd90e9e4728..12a640abf3d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-01  Dave Love  <fx@gnu.org>
+
+	* international/mule-diag.el (unicode-data): Find unicodedata-file
+	literally.
+
 2002-10-31  Dave Love  <fx@gnu.org>
 
 	* international/fontset.el: Doc fixes.
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 8ac28565197..8ba3fa06bce 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1232,7 +1232,7 @@ The list is null if CHAR isn't found in `unicodedata-file'."
     (unless (file-exists-p unicodedata-file)
       (error "`unicodedata-file' %s not found" unicodedata-file))
     (save-excursion
-      (set-buffer (find-file-noselect unicodedata-file))
+      (set-buffer (find-file-noselect unicodedata-file nil t))
       (goto-char (point-min))
       (let ((hex (format "%04X" char))
 	    found first last)