Mercurial > hg > xemacs-beta
comparison lisp/mule/mule-cmds.el @ 3737:7a1c4c523603
[xemacs-hg @ 2006-12-11 12:39:55 by aidan]
2006-12-11 Aidan Kehoe <kehoea@parhasard.net>
* mule/mule-cmds.el (create-variant-language-environment):
Avoid an error when creating a modified lang environment; use the
old environment's string name rather than its value when calling
replace-in-string.
| author | aidan |
|---|---|
| date | Mon, 11 Dec 2006 12:40:02 +0000 |
| parents | f6f6fc9eb269 |
| children | 6b2ef948e140 |
comparison
equal
deleted
inserted
replaced
| 3736:01830ac74073 | 3737:7a1c4c523603 |
|---|---|
| 1077 (set-language-info-alist | 1077 (set-language-info-alist |
| 1078 (if (string-match " ([^)]+)$" (car langenv)) | 1078 (if (string-match " ([^)]+)$" (car langenv)) |
| 1079 (replace-match (format " (%s)" | 1079 (replace-match (format " (%s)" |
| 1080 (upcase (symbol-name | 1080 (upcase (symbol-name |
| 1081 (coding-system-name coding-system)))) | 1081 (coding-system-name coding-system)))) |
| 1082 nil nil langenv) | 1082 nil nil (car langenv)) |
| 1083 (format "%s (%s)" (car langenv) | 1083 (format "%s (%s)" (car langenv) |
| 1084 (upcase (symbol-name (coding-system-name coding-system))))) | 1084 (upcase (symbol-name (coding-system-name coding-system))))) |
| 1085 (destructive-plist-to-alist | 1085 (destructive-plist-to-alist |
| 1086 (plist-put (plist-put (alist-to-plist (cdr langenv)) 'native-coding-system | 1086 (plist-put (plist-put (alist-to-plist (cdr langenv)) 'native-coding-system |
| 1087 coding-system) 'coding-system | 1087 coding-system) 'coding-system |