Mercurial > emacs

changeset 89928:5fad21b39686

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unicode-data): Call find-file-noselect with NOWARN t.
author Kenichi Handa <handa@m17n.org>
date Tue, 27 Apr 2004 10:52:57 +0000
parents d3ace4524f9e
children 07b409616546
files lisp/international/mule-diag.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Wed Apr 21 04:34:25 2004 +0000
+++ b/lisp/international/mule-diag.el	Tue Apr 27 10:52:57 2004 +0000
@@ -1106,7 +1106,8 @@
     (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)