mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(tibetan-vertical-stacking): If the arg

Browse Source 
FIRST is a composite character, decompose it at first.
This commit is contained in:
Kenichi Handa 1999-01-24 04:25:14 +00:00
parent 2e92a8cb87
commit 1d5021c352
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/language/tibet-util.el
View File

@ -194,9 +194,15 @@ Returns non-nil, if CH contains vowel/vowel modifiers."
(defun tibetan-vertical-stacking (first second upward)
"Return a vertically stacked composite char consisting of FIRST and SECOND.
If UPWARD is non-nil, then SECOND is put above FIRST."
(if upward
(compose-chars first '(tc . bc) second)
(compose-chars first '(bc . tc) second)))
(let (l rule)
(if (cmpcharp first)
(setq l (decompose-composite-char first 'list t))
(setq l (list first)))
(if upward
(setq rule (list '(tc . bc)))
(setq rule (list '(bc . tc))))
(setq l (append l rule (list second)))
(apply 'compose-chars l)))
;;; This function makes a composite char from a string.
;;; Note that this function returns a string, not a char.