1. xemacs
  2. mule-ucs

Source

mule-ucs / lisp / mucs-type.el

Diff from to

File lisp/mucs-type.el

  • Ignore whitespace
 
 (defvar mucs-type-alist nil)
 
+(defmacro mucs-make-coding-system (&rest args)
+  `(funcall (if (fboundp 'make-coding-system-internal)
+                'make-coding-system-internal
+              'make-coding-system) ,@args))
+
 (defsubst mucs-type-p (type)
   (and (assq type mucs-type-alist)
        t))