update.

[chise/xemacs-chise.git.1] / lisp / help-nomule.el

diff --git a/lisp/help-nomule.el b/lisp/help-nomule.el
index 1f4a0bb..35a61fd 100644 (file)
--- a/lisp/help-nomule.el
+++ b/lisp/help-nomule.el
@@ -31,12 +31,15 @@
 ;;; Code:
 
 (defconst tutorial-supported-languages
-  '(("French" fr iso-8859-1)
+  '(
+    ("Croatian" hr iso-8859-2)
+    ("French" fr iso-8859-1)
     ("German" de iso-8859-1)
     ("Norwegian" no iso-8859-1)
-    ("Croatian" hr iso-8859-2)
     ("Polish" pl iso-8859-2)
-    ("Romanian" ro iso-8859-2))
+    ("Romanian" ro iso-8859-2)
+    ("Swedish" se iso-8859-1)
+    )
   "Alist of supported languages in TUTORIAL files.
 Add languages here, as more are translated.")
 
@@ -100,6 +103,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)