X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fsubr.el;h=94a607141ce2c9a6895e85cd43155704beccbf50;hb=19f3d076b847b61fae1f8313d588207cc0d41ab0;hp=9adf57e5bd7a05c3c3b08f1cc0050e187632a087;hpb=eea9306cd823bc2679588c209015eba3098be0ec;p=chise%2Fxemacs-chise.git

diff --git a/lisp/subr.el b/lisp/subr.el
index 9adf57e..94a6071 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -682,6 +682,16 @@ FILE should be the name of a library, with no directory name."
   (eval-after-load file (read)))
 (make-compatible 'eval-next-after-load "")
 
+(unless (featurep 'mule)
+  (defun make-char (charset &optional arg1 arg2)
+    "Make a character from CHARSET and octets ARG1 and ARG2.
+This function is available for compatibility with Mule-enabled XEmacsen.
+When CHARSET is `ascii', return (int-char ARG1).  Otherwise, return
+that value with the high bit set.  ARG2 is always ignored."
+    (int-char (if (eq charset 'ascii)
+		  arg1
+		(logior arg1 #x80)))))
+
 ; alternate names (not obsolete)
 (if (not (fboundp 'mod)) (define-function 'mod '%))
 (define-function 'move-marker 'set-marker)