Mercurial > hg > xemacs-beta
comparison lisp/mule/ethio-util.el @ 1196:6c18935dbbf8
[xemacs-hg @ 2003-01-09 13:08:53 by stephent]
typos <87y95uv5hw.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Thu, 09 Jan 2003 13:09:05 +0000 |
| parents | e38acbeb1cae |
| children | ce294639d321 |
comparison
equal
deleted
inserted
replaced
| 1195:dff007bd492b | 1196:6c18935dbbf8 |
|---|---|
| 1989 ;; Gemination | 1989 ;; Gemination |
| 1990 ;; | 1990 ;; |
| 1991 | 1991 |
| 1992 (defun ethio-gemination nil | 1992 (defun ethio-gemination nil |
| 1993 "Compose the character before the point with the Ethiopic gemination mark. | 1993 "Compose the character before the point with the Ethiopic gemination mark. |
| 1994 If the characater is already composed, decompose it and remove the gemination | 1994 If the character is already composed, decompose it and remove the gemination |
| 1995 mark." | 1995 mark." |
| 1996 (interactive "*") | 1996 (interactive "*") |
| 1997 (cond | 1997 (cond |
| 1998 ((eq (char-charset (preceding-char)) 'ethiopic) | 1998 ((eq (char-charset (preceding-char)) 'ethiopic) |
| 1999 (insert "$(3%s(B") | 1999 (insert "$(3%s(B") |