mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(unicode-data): Find unicodedata-file

Browse Source 
literally.
This commit is contained in:
Dave Love 2002-11-01 22:56:13 +00:00
parent a59e8f49bd
commit 0cefd6be2e
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

2
lisp/international/mule-diag.el
View File

@ -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)