(unicode-data): Call

find-file-noselect with NOWARN t.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 90024131a50..ab50f01e0b8 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1106,7 +1106,8 @@ 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 nil t))
+      (set-buffer (find-file-noselect unicodedata-file t t))
+      (toggle-read-only 1)
       (goto-char (point-min))
       (let ((hex (format "%04X" char))
             found first last)