From 0cefd6be2e9ed0312ea88b1f4c9be66dfef307d2 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 1 Nov 2002 22:56:13 +0000 Subject: [PATCH] (unicode-data): Find unicodedata-file literally. --- lisp/ChangeLog | 5 +++++ lisp/international/mule-diag.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * international/mule-diag.el (unicode-data): Find unicodedata-file + literally. + 2002-10-31 Dave Love * 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) -- 2.39.5