X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fhelp-nomule.el;h=cc90cd2c2e8ea83ad3ab919c0ae4da620c8c6e53;hb=31a640b07437dfc448f70c5bd6eddab7ae911115;hp=1f4a0bbbe55e66ca1946feac92f76124d23fc6f3;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/help-nomule.el b/lisp/help-nomule.el
index 1f4a0bb..cc90cd2 100644
--- a/lisp/help-nomule.el
+++ b/lisp/help-nomule.el
@@ -100,6 +100,19 @@ With a prefix argument, choose the language."
 		    ;; Now, signal the error
 		    (signal (car error-data) (cdr error-data)))))))
 
+;; General Mule-compatibility stuffs
+(define-function 'string-width 'length)
+
+;; The following was originally in subr.el
+(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))))
+
 
 (provide 'help-nomule)