diff options
| -rw-r--r-- | lisp/international/mule-diag.el | 3 |
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'." | |||
| 1106 | (unless (file-exists-p unicodedata-file) | 1106 | (unless (file-exists-p unicodedata-file) |
| 1107 | (error "`unicodedata-file' %s not found" unicodedata-file)) | 1107 | (error "`unicodedata-file' %s not found" unicodedata-file)) |
| 1108 | (save-excursion | 1108 | (save-excursion |
| 1109 | (set-buffer (find-file-noselect unicodedata-file nil t)) | 1109 | (set-buffer (find-file-noselect unicodedata-file t t)) |
| 1110 | (toggle-read-only 1) | ||
| 1110 | (goto-char (point-min)) | 1111 | (goto-char (point-min)) |
| 1111 | (let ((hex (format "%04X" char)) | 1112 | (let ((hex (format "%04X" char)) |
| 1112 | found first last) | 1113 | found first last) |