(unicode-data): Find unicodedata-file

literally.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd90e9e4728bb033e4ebd543a52606012be110ed..12a640abf3d9f13ac862684b9aed2973539cec09 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 8ac2856519746ff572efb1cd83f5b689e80ba0d0..8ba3fa06bce290987bcc0f3b935cafcd91a59af2 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)