Parent Directory | Revision Log | Patch
revision 1.26 by pj, Mon Jul 16 12:22:59 2001 UTC | revision 1.27 by pj, Tue Dec 18 21:30:27 2001 UTC | |
---|---|---|
# | Line 1294 The markers \"<sera>\" and \"</sera>\" t | Line 1294 The markers \"<sera>\" and \"</sera>\" t |
1294 | (cond | (cond |
1295 | ;; in case of gemination | ;; in case of gemination |
1296 | ((eq (char-charset ch) 'composition) | ((eq (char-charset ch) 'composition) |
1297 | (setq ch (string-to-char (decompose-composite-char ch)) | (setq ch (string-to-char (char-to-string ch)) |
1298 | composite t)) | composite t)) |
1299 | ;; neither gemination nor fidel | ;; neither gemination nor fidel |
1300 | ((not (eq (char-charset ch) 'ethiopic)) | ((not (eq (char-charset ch) 'ethiopic)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |