Mercurial > hg > xemacs-beta

diff lisp/mule/mule-cmds.el @ 4292:0194a744d2d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-11-28 21:17:45 by aidan] When creating variant language environments, specify tutorial-coding-system.
author aidan
date Wed, 28 Nov 2007 21:17:55 +0000
parents edb00a8b4eff
children a78d697ccd2c
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el	Tue Nov 27 23:18:25 2007 +0000
+++ b/lisp/mule/mule-cmds.el	Wed Nov 28 21:17:55 2007 +0000
@@ -1099,13 +1099,18 @@
    (destructive-plist-to-alist 
     (plist-put
      (plist-put
-      (plist-put (alist-to-plist (cdr langenv))
-                 'native-coding-system
-                 coding-system)
-      'coding-system (cons coding-system
-                           (cdr (assoc 'coding-system (cdr langenv)))))
-     'coding-priority (cons coding-system
-                           (cdr (assq 'coding-priority (cdr langenv))))))))
+      (plist-put
+       (plist-put (alist-to-plist (cdr langenv)) 'native-coding-system
+                  coding-system)
+       'coding-system (cons coding-system
+                            (cdr (assoc 'coding-system (cdr langenv)))))
+      'coding-priority (cons coding-system
+                             (cdr (assq 'coding-priority (cdr langenv)))))
+     ;; The tutorial coding system is important; otherwise the tutorial file
+     ;; gets loaded in the variant coding system.
+     'tutorial-coding-system
+     (or (car-safe (cdr-safe (assoc 'tutorial-coding-system (cdr langenv))))
+         (car-safe (cdr-safe (assoc 'coding-system (cdr langenv)))))))))
 
 (defun get-language-environment-from-locale (locale)
   "Convert LOCALE into a language environment.