Make charprop.el provide a feature

* admin/unidata/unidata-gen.el (unidata-gen-charprop):
Provide a feature.
* lisp/loadup.el: Use the charprop feature.
This commit is contained in:
Glenn Morris 2017-04-26 12:51:48 -04:00
parent efb4ea9987
commit 8f2062d96b
2 changed files with 7 additions and 4 deletions

View file

@ -1450,7 +1450,10 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
(unidata-prop-prop proplist) (car elt)
(unidata-prop-docstring proplist)))))
(or noninteractive (message "Writing %s..." charprop-file))
(insert ";; Local Variables:\n"
(insert "\n"
"(provide 'charprop)\n"
" \n"
";; Local Variables:\n"
";; coding: utf-8\n"
";; version-control: never\n"
";; no-byte-compile: t\n"

View file

@ -184,8 +184,8 @@
(load "case-table")
;; This file doesn't exist when building a development version of Emacs
;; from the repository. It is generated just after temacs is built.
(if ; this formatting is for the Makefile
(load "international/charprop.el" t)
(load "international/charprop.el" t)
(if (featurep 'charprop)
(setq redisplay--inhibit-bidi nil))
(load "international/characters")
(load "composite")
@ -303,7 +303,7 @@
;; Don't load ucs-normalize.el unless uni-*.el files were
;; already produced, because it needs uni-*.el files that might
;; not be built early enough during bootstrap.
(when (load-history-filename-element "charprop\\.el")
(when (featurep 'charprop)
(load "international/mule-util")
(load "international/ucs-normalize")
(load "term/ns-win"))))