Commit 42ea0349 authored by Dave Love's avatar Dave Love
Browse files

(unicode-data): Check that

`unicodedata-file' exists.
parent 4fb82d62
......@@ -1228,7 +1228,9 @@ looked up from it."
"Return a list of Unicode data for unicode CHAR.
Each element is a list of a property description and the property value.
The list is null if CHAR isn't found in `unicodedata-file'."
(if unicodedata-file
(when 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))
(goto-char (point-min))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment