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

diff --git a/lisp/help-nomule.el b/lisp/help-nomule.el
index 1f4a0bb..35a61fd 100644
--- 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)