mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 00:31:01 -08:00
Code Issues Projects Releases Wiki 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
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)