(unicode-data): Find unicodedata-file

literally.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd90e9e..12a640a 100644 (file)
--- 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 8ac2856..8ba3fa0 100644 (file)
--- 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)