diff options
author | Glenn Morris <rgm@gnu.org> | 2013-11-27 00:21:19 -0800 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2013-11-27 00:21:19 -0800 |
commit | 20372d0c8914f0aafd6cd52a69356e93fbb09d09 (patch) | |
tree | 7505900204bb221e6be98f42037ba6b3431cc13d /lisp/composite.el | |
parent | 72fdd47303c46def1d91f202c177b7ff9a489441 (diff) | |
download | emacs-20372d0c8914f0aafd6cd52a69356e93fbb09d09.tar.gz |
Make bootstrap without generated uni-*.el files possible again
* lisp/loadup.el: Update command-line-args checking for unidata-gen.
Add vc to load-path to allow loading vc-bzr when writing uni-*.el.
* lisp/composite.el, lisp/international/characters.el:
Handle unicode tables being undefined.
* lisp/composite.el: Add (rough) FSF copyright years.
Diffstat (limited to 'lisp/composite.el')
-rw-r--r-- | lisp/composite.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/lisp/composite.el b/lisp/composite.el index f2f4437cadb..7cf35c2af68 100644 --- a/lisp/composite.el +++ b/lisp/composite.el @@ -1,5 +1,7 @@ ;;; composite.el --- support character composition +;; Copyright (C) 2001-2013 Free Software Foundation, Inc. + ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, ;; 2008, 2009, 2010, 2011 ;; National Institute of Advanced Industrial Science and Technology (AIST) @@ -669,13 +671,15 @@ All non-spacing characters have this function in (setq i (1+ i)))) gstring)))))) -(let ((elt `([,(purecopy "\\c.\\c^+") 1 compose-gstring-for-graphic] - [nil 0 compose-gstring-for-graphic]))) - (map-char-table - #'(lambda (key val) - (if (memq val '(Mn Mc Me)) - (set-char-table-range composition-function-table key elt))) - unicode-category-table)) +;; Allow for bootstrapping without uni-*.el. +(when unicode-category-table + (let ((elt `([,(purecopy "\\c.\\c^+") 1 compose-gstring-for-graphic] + [nil 0 compose-gstring-for-graphic]))) + (map-char-table + #'(lambda (key val) + (if (memq val '(Mn Mc Me)) + (set-char-table-range composition-function-table key elt))) + unicode-category-table))) (defun compose-gstring-for-terminal (gstring) "Compose glyph-string GSTRING for terminal display. |