master fdaae2e 2/6: Move compose-gstring-for-variation-glyph

[Robert Pluim]

branch: master
commit fdaae2e7bee5512047dc2ae67979d40cf60a5104
Author: Robert Pluim <rpluim@gmail.com>
Commit: Robert Pluim <rpluim@gmail.com>

    Move compose-gstring-for-variation-glyph
    
    It logically belongs in composite.el, not japanese.el
    
    * lisp/language/japanese.el (compose-gstring-for-variation-glyph):
    Remove from here.
    * lisp/composite.el (compose-gstring-for-variation-glyph): And add here.
---
 lisp/composite.el         | 22 ++++++++++++++++++++++
 lisp/language/japanese.el | 23 -----------------------
 2 files changed, 22 insertions(+), 23 deletions(-)

diff --git a/lisp/composite.el b/lisp/composite.el
index a16c0cc..859253e 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -815,6 +815,28 @@ prepending a space before it."
              (setq i (1+ i)))))))
     gstring))
 
+(defun compose-gstring-for-variation-glyph (gstring _direction)
+  "Compose glyph-string GSTRING for graphic display.
+GSTRING must have two glyphs; the first is a glyph for a han character,
+and the second is a glyph for a variation selector."
+  (let* ((font (lgstring-font gstring))
+        (han (lgstring-char gstring 0))
+        (vs (lgstring-char gstring 1))
+        (glyphs (font-variation-glyphs font han))
+        (g0 (lgstring-glyph gstring 0))
+        (g1 (lgstring-glyph gstring 1)))
+    (catch 'tag
+      (dolist (elt glyphs)
+       (if (= (car elt) vs)
+           (progn
+             (lglyph-set-code g0 (cdr elt))
+             (lglyph-set-from-to g0 (lglyph-from g0) (lglyph-to g1))
+             (lgstring-set-glyph gstring 1 nil)
+             (throw 'tag gstring)))))))
+
+(let ((elt '([".." 1 compose-gstring-for-variation-glyph])))
+  (set-char-table-range composition-function-table '(#xFE00 . #xFE0F) elt)
+  (set-char-table-range composition-function-table '(#xE0100 . #xE01EF) elt))
 
 (defun auto-compose-chars (func from to font-object string direction)
   "Compose the characters at FROM by FUNC.
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index bd8ef6e..d9bd420 100644
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -264,29 +264,6 @@ eucJP-ms is defined in 
<http://www.opengroup.or.jp/jvc/cde/appendix.html>."
   (define-translation-table 'unicode-to-jisx0213
     (char-table-extra-slot table 0)))
 
-(defun compose-gstring-for-variation-glyph (gstring _direction)
-  "Compose glyph-string GSTRING for graphic display.
-GSTRING must have two glyphs; the first is a glyph for a han character,
-and the second is a glyph for a variation selector."
-  (let* ((font (lgstring-font gstring))
-        (han (lgstring-char gstring 0))
-        (vs (lgstring-char gstring 1))
-        (glyphs (font-variation-glyphs font han))
-        (g0 (lgstring-glyph gstring 0))
-        (g1 (lgstring-glyph gstring 1)))
-    (catch 'tag
-      (dolist (elt glyphs)
-       (if (= (car elt) vs)
-           (progn
-             (lglyph-set-code g0 (cdr elt))
-             (lglyph-set-from-to g0 (lglyph-from g0) (lglyph-to g1))
-             (lgstring-set-glyph gstring 1 nil)
-             (throw 'tag gstring)))))))
-
-(let ((elt '([".." 1 compose-gstring-for-variation-glyph])))
-  (set-char-table-range composition-function-table '(#xFE00 . #xFE0F) elt)
-  (set-char-table-range composition-function-table '(#xE0100 . #xE01EF) elt))
-
 (provide 'japanese)
 
 ;;; japanese.el ends here