- ;; (if (and (setq ret (char-feature base '=decomposition))
- ;; (setq modifier-1
- ;; (assq
- ;; (car modifier)
- ;; (cdr
- ;; (assq
- ;; (nth 1 ret)
- ;; '((?\u0302
- ;; (?\u0300 . "\\CircGrave{%c}")
- ;; (?\u0301 . "\\'{\\^%c}")
- ;; (?\u0303 . "\\~{\\^%c}")
- ;; (?\u0309 . "\\CircHook{%c}")
- ;; )
- ;; (?\u0304 ; <COMBINING MACRON>
- ;; (?\u0301 ; <COMBINING ACUTE ACCENT>
- ;; . "\\textacutemacron{%c}")
- ;; )
- ;; (?\u031B
- ;; (?\u0301 . "\\HornAcute{%c}")
- ;; (?\u0303 . "\\HornTilde{%c}")
- ;; )
- ;; (?\u0323
- ;; (?\u0302 . "\\Circudot{%c}")
- ;; )))))))
- ;; (insert (format (cdr modifier-1) (car ret)))
- ;; (insert (format "\\%s{%c}" (cdr modifier) base)))
- )
+ )
+ ((eq (encode-char chr '=ucs@jis) #x0153)
+ (delete-char)
+ (insert "\\oe{}")
+ t)
+ ((and (setq ret (encode-char chr '=ucs@JP))
+ (>= ret #x20000))
+ (delete-char)
+ (insert (format "\\UCSsip{%X}" ret))
+ t)