21.5 build failure on Windows

[Vin Shelton]

Aidan,

The latest 21.5 sources exhibit the following error during building on
my Windows XP system:

Bootstrapping from temacs...
*** Error in XEmacs initialization
(text-conversion-error "Coding system doesn't say what it can encode"
mswindows-multibyte-system-default-dos)
*** Backtrace
  really-early-error-handler((text-conversion-error "Coding system
doesn't say what it can encode"
mswindows-multibyte-system-default-dos))
  signal(text-conversion-error ("Coding system doesn't say what it can
encode" mswindows-multibyte-system-default-dos))
  (cond ((stringp datum) (signal (quote error) (list (apply (quote
format) datum args)))) ((defined-error-p datum) (signal datum args))
(t (error (quote invalid-argument) "datum not string or error symbol"
datum)))
  # bind (args datum)
  cerror(text-conversion-error "Coding system doesn't say what it can
encode" mswindows-multibyte-system-default-dos)
  apply(cerror text-conversion-error ("Coding system doesn't say what
it can encode" mswindows-multibyte-system-default-dos))
  (while t (apply (quote cerror) datum args))
  # bind (args datum)
  error(text-conversion-error "Coding system doesn't say what it can
encode" mswindows-multibyte-system-default-dos)
  (if errorp (error (quote text-conversion-error) "Coding system
doesn't say what it can encode" (coding-system-name coding-system)))
  (when errorp (error (quote text-conversion-error) "Coding system
doesn't say what it can encode" (coding-system-name coding-system)))
  (progn (when errorp (error (quote text-conversion-error) "Coding
system doesn't say what it can encode" (coding-system-name
coding-system))) (put-range-table begin end t ranges) (when highlightp
(setq extent (make-extent begin end buffer)) (set-extent-priority
extent (+ mouse-highlight-priority 2)) (set-extent-face extent (quote
query-coding-warning-face))) (values nil ranges))
  (if (and (zerop (length skip-chars-arg)) (null safe-chars)) (progn
(when errorp (error (quote text-conversion-error) "Coding system
doesn't say what it can encode" (coding-system-name coding-system)))
(put-range-table begin end t ranges) (when highlightp (setq extent
(make-extent begin end buffer)) (set-extent-priority extent (+
mouse-highlight-priority 2)) (set-extent-face extent (quote
query-coding-warning-face))) (values nil ranges)) (setq looking-at-arg
(if (equal "" skip-chars-arg) ".\\{0,0\\}" (concat "[" skip-chars-arg
"]"))) (save-excursion (goto-char begin buffer) (skip-chars-forward
skip-chars-arg end buffer) (while (< (point buffer) end) (setq
char-after (char-after (point buffer) buffer) fail-range-start (point
buffer)) (while (and (< (point buffer) end) (not (looking-at
looking-at-arg)) (or (not safe-chars) (not (get-char-table char-after
safe-chars)))) (forward-char 1 buffer) (setq char-after (char-after
(point buffer) buffer) failed t)) (if (= fail-range-start (point
buffer)) (forward-char 1 buffer) (when errorp (error (quote
text-conversion-error) (format "Cannot encode %s using coding system"
(buffer-substring fail-range-start (point buffer) buffer))
(coding-system-name coding-system))) (put-range-table fail-range-start
(setq fail-range-end (if char-after (point buffer) (point-max
buffer))) t ranges) (when highlightp (setq extent (make-extent
fail-range-start fail-range-end buffer)) (set-extent-priority extent
(+ mouse-highlight-priority 2)) (set-extent-face extent (quote
query-coding-warning-face)))) (skip-chars-forward skip-chars-arg end
buffer)) (if failed (values nil ranges) (values t nil))))
  # bind (extent failed looking-at-arg char-after fail-range-end
fail-range-start case-fold-search ranges skip-chars-arg safe-chars
safe-charsets)
  (let* ((safe-charsets (or (coding-system-get coding-system (quote
safe-charsets)) (coding-system-get (coding-system-base coding-system)
(quote safe-charsets)))) (safe-chars (or (coding-system-get
coding-system (quote safe-chars)) (coding-system-get
(coding-system-base coding-system) (quote safe-chars))))
(skip-chars-arg (gethash safe-charsets
default-query-coding-region-safe-charset-skip-chars-map)) (ranges
(make-range-table)) (case-fold-search nil) fail-range-start
fail-range-end char-after looking-at-arg failed extent) (when (eq t
safe-charsets) (return-from default-query-coding-region (values t
nil))) (unless skip-chars-arg (setq skip-chars-arg (puthash
safe-charsets (mapconcat (function charset-skip-chars-string)
safe-charsets "")
default-query-coding-region-safe-charset-skip-chars-map))) (when
highlightp (query-coding-clear-highlights begin end buffer)) (if (and
(zerop (length skip-chars-arg)) (null safe-chars)) (progn (when errorp
(error (quote text-conversion-error) "Coding system doesn't say what
it can encode" (coding-system-name coding-system))) (put-range-table
begin end t ranges) (when highlightp (setq extent (make-extent begin
end buffer)) (set-extent-priority extent (+ mouse-highlight-priority
2)) (set-extent-face extent (quote query-coding-warning-face)))
(values nil ranges)) (setq looking-at-arg (if (equal ""
skip-chars-arg) ".\\{0,0\\}" (concat "[" skip-chars-arg "]")))
(save-excursion (goto-char begin buffer) (skip-chars-forward
skip-chars-arg end buffer) (while (< (point buffer) end) (setq
char-after (char-after (point buffer) buffer) fail-range-start (point
buffer)) (while (and (< (point buffer) end) (not (looking-at
looking-at-arg)) (or (not safe-chars) (not (get-char-table char-after
safe-chars)))) (forward-char 1 buffer) (setq char-after (char-after
(point buffer) buffer) failed t)) (if (= fail-range-start (point
buffer)) (forward-char 1 buffer) (when errorp (error (quote
text-conversion-error) (format "Cannot encode %s using coding system"
(buffer-substring fail-range-start (point buffer) buffer))
(coding-system-name coding-system))) (put-range-table fail-range-start
(setq fail-range-end (if char-after (point buffer) (point-max
buffer))) t ranges) (when highlightp (setq extent (make-extent
fail-range-start fail-range-end buffer)) (set-extent-priority extent
(+ mouse-highlight-priority 2)) (set-extent-face extent (quote
query-coding-warning-face)))) (skip-chars-forward skip-chars-arg end
buffer)) (if failed (values nil ranges) (values t nil)))))
  # (catch --cl-block-default-query-coding-region-- ...)
  (catch (quote --cl-block-default-query-coding-region--)
(check-argument-type (function coding-system-p) (setq coding-system
(find-coding-system coding-system))) (check-argument-type (function
integer-or-marker-p) begin) (check-argument-type (function
integer-or-marker-p) end) (let* ((safe-charsets (or (coding-system-get
coding-system (quote safe-charsets)) (coding-system-get
(coding-system-base coding-system) (quote safe-charsets))))
(safe-chars (or (coding-system-get coding-system (quote safe-chars))
(coding-system-get (coding-system-base coding-system) (quote
safe-chars)))) (skip-chars-arg (gethash safe-charsets
default-query-coding-region-safe-charset-skip-chars-map)) (ranges
(make-range-table)) (case-fold-search nil) fail-range-start
fail-range-end char-after looking-at-arg failed extent) (when (eq t
safe-charsets) (return-from default-query-coding-region (values t
nil))) (unless skip-chars-arg (setq skip-chars-arg (puthash
safe-charsets (mapconcat (function charset-skip-chars-string)
safe-charsets "")
default-query-coding-region-safe-charset-skip-chars-map))) (when
highlightp (query-coding-clear-highlights begin end buffer)) (if (and
(zerop (length skip-chars-arg)) (null safe-chars)) (progn (when errorp
(error (quote text-conversion-error) "Coding system doesn't say what
it can encode" (coding-system-name coding-system))) (put-range-table
begin end t ranges) (when highlightp (setq extent (make-extent begin
end buffer)) (set-extent-priority extent (+ mouse-highlight-priority
2)) (set-extent-face extent (quote query-coding-warning-face)))
(values nil ranges)) (setq looking-at-arg (if (equal ""
skip-chars-arg) ".\\{0,0\\}" (concat "[" skip-chars-arg "]")))
(save-excursion (goto-char begin buffer) (skip-chars-forward
skip-chars-arg end buffer) (while (< (point buffer) end) (setq
char-after (char-after (point buffer) buffer) fail-range-start (point
buffer)) (while (and (< (point buffer) end) (not (looking-at
looking-at-arg)) (or (not safe-chars) (not (get-char-table char-after
safe-chars)))) (forward-char 1 buffer) (setq char-after (char-after
(point buffer) buffer) failed t)) (if (= fail-range-start (point
buffer)) (forward-char 1 buffer) (when errorp (error (quote
text-conversion-error) (format "Cannot encode %s using coding system"
(buffer-substring fail-range-start (point buffer) buffer))
(coding-system-name coding-system))) (put-range-table fail-range-start
(setq fail-range-end (if char-after (point buffer) (point-max
buffer))) t ranges) (when highlightp (setq extent (make-extent
fail-range-start fail-range-end buffer)) (set-extent-priority extent
(+ mouse-highlight-priority 2)) (set-extent-face extent (quote
query-coding-warning-face)))) (skip-chars-forward skip-chars-arg end
buffer)) (if failed (values nil ranges) (values t nil))))))
  (cl-block-wrapper (catch (quote
--cl-block-default-query-coding-region--) (check-argument-type
(function coding-system-p) (setq coding-system (find-coding-system
coding-system))) (check-argument-type (function integer-or-marker-p)
begin) (check-argument-type (function integer-or-marker-p) end) (let*
((safe-charsets (or (coding-system-get coding-system (quote
safe-charsets)) (coding-system-get (coding-system-base coding-system)
(quote safe-charsets)))) (safe-chars (or (coding-system-get
coding-system (quote safe-chars)) (coding-system-get
(coding-system-base coding-system) (quote safe-chars))))
(skip-chars-arg (gethash safe-charsets
default-query-coding-region-safe-charset-skip-chars-map)) (ranges
(make-range-table)) (case-fold-search nil) fail-range-start
fail-range-end char-after looking-at-arg failed extent) (when (eq t
safe-charsets) (return-from default-query-coding-region (values t
nil))) (unless skip-chars-arg (setq skip-chars-arg (puthash
safe-charsets (mapconcat (function charset-skip-chars-string)
safe-charsets "")
default-query-coding-region-safe-charset-skip-chars-map))) (when
highlightp (query-coding-clear-highlights begin end buffer)) (if (and
(zerop (length skip-chars-arg)) (null safe-chars)) (progn (when errorp
(error (quote text-conversion-error) "Coding system doesn't say what
it can encode" (coding-system-name coding-system))) (put-range-table
begin end t ranges) (when highlightp (setq extent (make-extent begin
end buffer)) (set-extent-priority extent (+ mouse-highlight-priority
2)) (set-extent-face extent (quote query-coding-warning-face)))
(values nil ranges)) (setq looking-at-arg (if (equal ""
skip-chars-arg) ".\\{0,0\\}" (concat "[" skip-chars-arg "]")))
(save-excursion (goto-char begin buffer) (skip-chars-forward
skip-chars-arg end buffer) (while (< (point buffer) end) (setq
char-after (char-after (point buffer) buffer) fail-range-start (point
buffer)) (while (and (< (point buffer) end) (not (looking-at
looking-at-arg)) (or (not safe-chars) (not (get-char-table char-after
safe-chars)))) (forward-char 1 buffer) (setq char-after (char-after
(point buffer) buffer) failed t)) (if (= fail-range-start (point
buffer)) (forward-char 1 buffer) (when errorp (error (quote
text-conversion-error) (format "Cannot encode %s using coding system"
(buffer-substring fail-range-start (point buffer) buffer))
(coding-system-name coding-system))) (put-range-table fail-range-start
(setq fail-range-end (if char-after (point buffer) (point-max
buffer))) t ranges) (when highlightp (setq extent (make-extent
fail-range-start fail-range-end buffer)) (set-extent-priority extent
(+ mouse-highlight-priority 2)) (set-extent-face extent (quote
query-coding-warning-face)))) (skip-chars-forward skip-chars-arg end
buffer)) (if failed (values nil ranges) (values t nil)))))))
  (block default-query-coding-region (check-argument-type (function
coding-system-p) (setq coding-system (find-coding-system
coding-system))) (check-argument-type (function integer-or-marker-p)
begin) (check-argument-type (function integer-or-marker-p) end) (let*
((safe-charsets (or (coding-system-get coding-system (quote
safe-charsets)) (coding-system-get (coding-system-base coding-system)
(quote safe-charsets)))) (safe-chars (or (coding-system-get
coding-system (quote safe-chars)) (coding-system-get
(coding-system-base coding-system) (quote safe-chars))))
(skip-chars-arg (gethash safe-charsets
default-query-coding-region-safe-charset-skip-chars-map)) (ranges
(make-range-table)) (case-fold-search nil) fail-range-start
fail-range-end char-after looking-at-arg failed extent) (when (eq t
safe-charsets) (return-from default-query-coding-region (values t
nil))) (unless skip-chars-arg (setq skip-chars-arg (puthash
safe-charsets (mapconcat (function charset-skip-chars-string)
safe-charsets "")
default-query-coding-region-safe-charset-skip-chars-map))) (when
highlightp (query-coding-clear-highlights begin end buffer)) (if (and
(zerop (length skip-chars-arg)) (null safe-chars)) (progn (when errorp
(error (quote text-conversion-error) "Coding system doesn't say what
it can encode" (coding-system-name coding-system))) (put-range-table
begin end t ranges) (when highlightp (setq extent (make-extent begin
end buffer)) (set-extent-priority extent (+ mouse-highlight-priority
2)) (set-extent-face extent (quote query-coding-warning-face)))
(values nil ranges)) (setq looking-at-arg (if (equal ""
skip-chars-arg) ".\\{0,0\\}" (concat "[" skip-chars-arg "]")))
(save-excursion (goto-char begin buffer) (skip-chars-forward
skip-chars-arg end buffer) (while (< (point buffer) end) (setq
char-after (char-after (point buffer) buffer) fail-range-start (point
buffer)) (while (and (< (point buffer) end) (not (looking-at
looking-at-arg)) (or (not safe-chars) (not (get-char-table char-after
safe-chars)))) (forward-char 1 buffer) (setq char-after (char-after
(point buffer) buffer) failed t)) (if (= fail-range-start (point
buffer)) (forward-char 1 buffer) (when errorp (error (quote
text-conversion-error) (format "Cannot encode %s using coding system"
(buffer-substring fail-range-start (point buffer) buffer))
(coding-system-name coding-system))) (put-range-table fail-range-start
(setq fail-range-end (if char-after (point buffer) (point-max
buffer))) t ranges) (when highlightp (setq extent (make-extent
fail-range-start fail-range-end buffer)) (set-extent-priority extent
(+ mouse-highlight-priority 2)) (set-extent-face extent (quote
query-coding-warning-face)))) (skip-chars-forward skip-chars-arg end
buffer)) (if failed (values nil ranges) (values t nil))))))
  # bind (highlightp errorp ignore-invalid-sequencesp buffer
coding-system end begin)
  default-query-coding-region(1 7 native #<buffer " *temp*"> nil t nil)
  funcall(default-query-coding-region 1 7 native #<buffer " *temp*"> nil t nil)
  # bind (highlight errorp ignore-invalid-sequencesp buffer
coding-system end start)
  query-coding-region(1 7 native #<buffer " *temp*"> nil t)
  (let* ((G12256 (query-coding-region (point-min) (point-max)
coding-system (current-buffer) ignore-invalid-sequencesp errorp))
(result (nth 0 G12256)) (ranges (nth 1 G12256)) (extent (nth 2
G12256))) (unless result (map-range-table (function (lambda (begin end
value) (remove-range-table begin end ranges) (put-range-table (decf
begin) (decf end) value ranges) (when highlight (setq extent
(make-extent begin end string)) (set-extent-priority extent (+
mouse-highlight-priority 2)) (set-extent-property extent (quote
duplicable) t) (set-extent-face extent (quote
query-coding-warning-face))))) ranges)) (values result ranges))
  (multiple-value-bind (result ranges extent) (query-coding-region
(point-min) (point-max) coding-system (current-buffer)
ignore-invalid-sequencesp errorp) (unless result (map-range-table
(function (lambda (begin end value) (remove-range-table begin end
ranges) (put-range-table (decf begin) (decf end) value ranges) (when
highlight (setq extent (make-extent begin end string))
(set-extent-priority extent (+ mouse-highlight-priority 2))
(set-extent-property extent (quote duplicable) t) (set-extent-face
extent (quote query-coding-warning-face))))) ranges)) (values result
ranges))
  # (unwind-protect ...)
  (save-current-buffer (set-buffer temp-buffer) (when highlight
(query-coding-clear-highlights 0 (length string) string)) (insert
string) (multiple-value-bind (result ranges extent)
(query-coding-region (point-min) (point-max) coding-system
(current-buffer) ignore-invalid-sequencesp errorp) (unless result
(map-range-table (function (lambda (begin end value)
(remove-range-table begin end ranges) (put-range-table (decf begin)
(decf end) value ranges) (when highlight (setq extent (make-extent
begin end string)) (set-extent-priority extent (+
mouse-highlight-priority 2)) (set-extent-property extent (quote
duplicable) t) (set-extent-face extent (quote
query-coding-warning-face))))) ranges)) (values result ranges)))
  (with-current-buffer temp-buffer (when highlight
(query-coding-clear-highlights 0 (length string) string)) (insert
string) (multiple-value-bind (result ranges extent)
(query-coding-region (point-min) (point-max) coding-system
(current-buffer) ignore-invalid-sequencesp errorp) (unless result
(map-range-table (function (lambda (begin end value)
(remove-range-table begin end ranges) (put-range-table (decf begin)
(decf end) value ranges) (when highlight (setq extent (make-extent
begin end string)) (set-extent-priority extent (+
mouse-highlight-priority 2)) (set-extent-property extent (quote
duplicable) t) (set-extent-face extent (quote
query-coding-warning-face))))) ranges)) (values result ranges)))
  # (unwind-protect ...)
  (unwind-protect (with-current-buffer temp-buffer (when highlight
(query-coding-clear-highlights 0 (length string) string)) (insert
string) (multiple-value-bind (result ranges extent)
(query-coding-region (point-min) (point-max) coding-system
(current-buffer) ignore-invalid-sequencesp errorp) (unless result
(map-range-table (function (lambda (begin end value)
(remove-range-table begin end ranges) (put-range-table (decf begin)
(decf end) value ranges) (when highlight (setq extent (make-extent
begin end string)) (set-extent-priority extent (+
mouse-highlight-priority 2)) (set-extent-property extent (quote
duplicable) t) (set-extent-face extent (quote
query-coding-warning-face))))) ranges)) (values result ranges))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer)))
  # bind (temp-buffer)
  (let ((temp-buffer (get-buffer-create (generate-new-buffer-name "
*temp*")))) (unwind-protect (with-current-buffer temp-buffer (when
highlight (query-coding-clear-highlights 0 (length string) string))
(insert string) (multiple-value-bind (result ranges extent)
(query-coding-region (point-min) (point-max) coding-system
(current-buffer) ignore-invalid-sequencesp errorp) (unless result
(map-range-table (function (lambda (begin end value)
(remove-range-table begin end ranges) (put-range-table (decf begin)
(decf end) value ranges) (when highlight (setq extent (make-extent
begin end string)) (set-extent-priority extent (+
mouse-highlight-priority 2)) (set-extent-property extent (quote
duplicable) t) (set-extent-face extent (quote
query-coding-warning-face))))) ranges)) (values result ranges))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (with-temp-buffer (when highlight (query-coding-clear-highlights 0
(length string) string)) (insert string) (multiple-value-bind (result
ranges extent) (query-coding-region (point-min) (point-max)
coding-system (current-buffer) ignore-invalid-sequencesp errorp)
(unless result (map-range-table (function (lambda (begin end value)
(remove-range-table begin end ranges) (put-range-table (decf begin)
(decf end) value ranges) (when highlight (setq extent (make-extent
begin end string)) (set-extent-priority extent (+
mouse-highlight-priority 2)) (set-extent-property extent (quote
duplicable) t) (set-extent-face extent (quote
query-coding-warning-face))))) ranges)) (values result ranges)))
  # bind (highlight errorp ignore-invalid-sequencesp coding-system string)
  query-coding-string("LANG=C" native nil t)
  # bind (substitute-env-vars unset value variable)
  setenv("LANG" "C")
  (if (and cygloc (stringp cygloc)) (setenv "LANG" cygloc))
  # bind (cygloc cygloc)
  (let* ((cygloc (or (get-language-info langenv (quote cygwin-locale))
(get-language-info langenv (quote locale)))) (cygloc (if (listp
cygloc) (car (last cygloc)) cygloc))) (if (and cygloc (stringp
cygloc)) (setenv "LANG" cygloc)))
  # bind (ms-locale)
  (let ((ms-locale (mswindows-get-and-set-locale-from-langenv
langenv))) (when ms-locale (or (set-current-locale (if (string-match
"_" (cdr ms-locale)) (replace-in-string (replace-match "-" nil nil
(cdr ms-locale)) "_" " ") (format "%s-%s" (car ms-locale) (cdr
ms-locale)))) (set-current-locale (car ms-locale)))) (let* ((cygloc
(or (get-language-info langenv (quote cygwin-locale))
(get-language-info langenv (quote locale)))) (cygloc (if (listp
cygloc) (car (last cygloc)) cygloc))) (if (and cygloc (stringp
cygloc)) (setenv "LANG" cygloc))) (not (null ms-locale)))
  (if (eq system-type (quote windows-nt)) (let ((ms-locale
(mswindows-get-and-set-locale-from-langenv langenv))) (when ms-locale
(or (set-current-locale (if (string-match "_" (cdr ms-locale))
(replace-in-string (replace-match "-" nil nil (cdr ms-locale)) "_" "
") (format "%s-%s" (car ms-locale) (cdr ms-locale))))
(set-current-locale (car ms-locale)))) (let* ((cygloc (or
(get-language-info langenv (quote cygwin-locale)) (get-language-info
langenv (quote locale)))) (cygloc (if (listp cygloc) (car (last
cygloc)) cygloc))) (if (and cygloc (stringp cygloc)) (setenv "LANG"
cygloc))) (not (null ms-locale))) (when (eq system-type (quote
cygwin32)) (mswindows-get-and-set-locale-from-langenv langenv)) (let
((locs (get-language-info langenv (quote locale)))) (dolist (loc (if
(listp locs) locs (list locs))) (let ((retval (cond ((functionp loc)
(funcall loc nil)) ((stringp loc) (set-current-locale loc)) (t nil))))
(when retval (setenv "LANG" retval) (return t))))))
  (progn (fset (quote mswindows-get-and-set-locale-from-langenv)
(function* (lambda (langenv) (block
mswindows-get-and-set-locale-from-langenv (let ((ms-locale (gethash
langenv mswindows-langenv-to-locale-table))) (if ms-locale (progn
(declare-fboundp (mswindows-set-current-locale ms-locale)) ms-locale)
(let* ((mslocs (get-language-info langenv (quote mswindows-locale)))
(mslocs (or mslocs (cons (upcase langenv) "DEFAULT"))) (mslocs (if
(and (consp mslocs) (listp (cdr mslocs))) mslocs (list mslocs))))
(dolist (msloc mslocs) (or (consp msloc) (setq msloc (cons msloc
"DEFAULT"))) (when (condition-case nil (progn (declare-fboundp
(mswindows-set-current-locale msloc)) t) (error nil)) (return
msloc)))))))))) (if (eq system-type (quote windows-nt)) (let
((ms-locale (mswindows-get-and-set-locale-from-langenv langenv)))
(when ms-locale (or (set-current-locale (if (string-match "_" (cdr
ms-locale)) (replace-in-string (replace-match "-" nil nil (cdr
ms-locale)) "_" " ") (format "%s-%s" (car ms-locale) (cdr
ms-locale)))) (set-current-locale (car ms-locale)))) (let* ((cygloc
(or (get-language-info langenv (quote cygwin-locale))
(get-language-info langenv (quote locale)))) (cygloc (if (listp
cygloc) (car (last cygloc)) cygloc))) (if (and cygloc (stringp
cygloc)) (setenv "LANG" cygloc))) (not (null ms-locale))) (when (eq
system-type (quote cygwin32))
(mswindows-get-and-set-locale-from-langenv langenv)) (let ((locs
(get-language-info langenv (quote locale)))) (dolist (loc (if (listp
locs) locs (list locs))) (let ((retval (cond ((functionp loc) (funcall
loc nil)) ((stringp loc) (set-current-locale loc)) (t nil)))) (when
retval (setenv "LANG" retval) (return t)))))))
  # (unwind-protect ...)
  (unwind-protect (progn (fset (quote
mswindows-get-and-set-locale-from-langenv) (function* (lambda
(langenv) (block mswindows-get-and-set-locale-from-langenv (let
((ms-locale (gethash langenv mswindows-langenv-to-locale-table))) (if
ms-locale (progn (declare-fboundp (mswindows-set-current-locale
ms-locale)) ms-locale) (let* ((mslocs (get-language-info langenv
(quote mswindows-locale))) (mslocs (or mslocs (cons (upcase langenv)
"DEFAULT"))) (mslocs (if (and (consp mslocs) (listp (cdr mslocs)))
mslocs (list mslocs)))) (dolist (msloc mslocs) (or (consp msloc) (setq
msloc (cons msloc "DEFAULT"))) (when (condition-case nil (progn
(declare-fboundp (mswindows-set-current-locale msloc)) t) (error nil))
(return msloc)))))))))) (if (eq system-type (quote windows-nt)) (let
((ms-locale (mswindows-get-and-set-locale-from-langenv langenv)))
(when ms-locale (or (set-current-locale (if (string-match "_" (cdr
ms-locale)) (replace-in-string (replace-match "-" nil nil (cdr
ms-locale)) "_" " ") (format "%s-%s" (car ms-locale) (cdr
ms-locale)))) (set-current-locale (car ms-locale)))) (let* ((cygloc
(or (get-language-info langenv (quote cygwin-locale))
(get-language-info langenv (quote locale)))) (cygloc (if (listp
cygloc) (car (last cygloc)) cygloc))) (if (and cygloc (stringp
cygloc)) (setenv "LANG" cygloc))) (not (null ms-locale))) (when (eq
system-type (quote cygwin32))
(mswindows-get-and-set-locale-from-langenv langenv)) (let ((locs
(get-language-info langenv (quote locale)))) (dolist (loc (if (listp
locs) locs (list locs))) (let ((retval (cond ((functionp loc) (funcall
loc nil)) ((stringp loc) (set-current-locale loc)) (t nil)))) (when
retval (setenv "LANG" retval) (return t))))))) (if --letf-bound--12255
(fset (quote mswindows-get-and-set-locale-from-langenv)
--letf-save--12254) (fmakunbound (quote
mswindows-get-and-set-locale-from-langenv))))
  # bind (--letf-save--12254 --letf-bound--12255)
  (let* ((--letf-bound--12255 (fboundp (quote
mswindows-get-and-set-locale-from-langenv))) (--letf-save--12254 (and
--letf-bound--12255 (symbol-function (quote
mswindows-get-and-set-locale-from-langenv))))) (unwind-protect (progn
(fset (quote mswindows-get-and-set-locale-from-langenv) (function*
(lambda (langenv) (block mswindows-get-and-set-locale-from-langenv
(let ((ms-locale (gethash langenv mswindows-langenv-to-locale-table)))
(if ms-locale (progn (declare-fboundp (mswindows-set-current-locale
ms-locale)) ms-locale) (let* ((mslocs (get-language-info langenv
(quote mswindows-locale))) (mslocs (or mslocs (cons (upcase langenv)
"DEFAULT"))) (mslocs (if (and (consp mslocs) (listp (cdr mslocs)))
mslocs (list mslocs)))) (dolist (msloc mslocs) (or (consp msloc) (setq
msloc (cons msloc "DEFAULT"))) (when (condition-case nil (progn
(declare-fboundp (mswindows-set-current-locale msloc)) t) (error nil))
(return msloc)))))))))) (if (eq system-type (quote windows-nt)) (let
((ms-locale (mswindows-get-and-set-locale-from-langenv langenv)))
(when ms-locale (or (set-current-locale (if (string-match "_" (cdr
ms-locale)) (replace-in-string (replace-match "-" nil nil (cdr
ms-locale)) "_" " ") (format "%s-%s" (car ms-locale) (cdr
ms-locale)))) (set-current-locale (car ms-locale)))) (let* ((cygloc
(or (get-language-info langenv (quote cygwin-locale))
(get-language-info langenv (quote locale)))) (cygloc (if (listp
cygloc) (car (last cygloc)) cygloc))) (if (and cygloc (stringp
cygloc)) (setenv "LANG" cygloc))) (not (null ms-locale))) (when (eq
system-type (quote cygwin32))
(mswindows-get-and-set-locale-from-langenv langenv)) (let ((locs
(get-language-info langenv (quote locale)))) (dolist (loc (if (listp
locs) locs (list locs))) (let ((retval (cond ((functionp loc) (funcall
loc nil)) ((stringp loc) (set-current-locale loc)) (t nil)))) (when
retval (setenv "LANG" retval) (return t))))))) (if --letf-bound--12255
(fset (quote mswindows-get-and-set-locale-from-langenv)
--letf-save--12254) (fmakunbound (quote
mswindows-get-and-set-locale-from-langenv)))))
  (letf (((symbol-function (quote
mswindows-get-and-set-locale-from-langenv)) (function* (lambda
(langenv) (block mswindows-get-and-set-locale-from-langenv (let
((ms-locale (gethash langenv mswindows-langenv-to-locale-table))) (if
ms-locale (progn (declare-fboundp (mswindows-set-current-locale
ms-locale)) ms-locale) (let* ((mslocs (get-language-info langenv
(quote mswindows-locale))) (mslocs (or mslocs (cons (upcase langenv)
"DEFAULT"))) (mslocs (if (and (consp mslocs) (listp (cdr mslocs)))
mslocs (list mslocs)))) (dolist (msloc mslocs) (or (consp msloc) (setq
msloc (cons msloc "DEFAULT"))) (when (condition-case nil (progn
(declare-fboundp (mswindows-set-current-locale msloc)) t) (error nil))
(return msloc))))))))))) (if (eq system-type (quote windows-nt)) (let
((ms-locale (mswindows-get-and-set-locale-from-langenv langenv)))
(when ms-locale (or (set-current-locale (if (string-match "_" (cdr
ms-locale)) (replace-in-string (replace-match "-" nil nil (cdr
ms-locale)) "_" " ") (format "%s-%s" (car ms-locale) (cdr
ms-locale)))) (set-current-locale (car ms-locale)))) (let* ((cygloc
(or (get-language-info langenv (quote cygwin-locale))
(get-language-info langenv (quote locale)))) (cygloc (if (listp
cygloc) (car (last cygloc)) cygloc))) (if (and cygloc (stringp
cygloc)) (setenv "LANG" cygloc))) (not (null ms-locale))) (when (eq
system-type (quote cygwin32))
(mswindows-get-and-set-locale-from-langenv langenv)) (let ((locs
(get-language-info langenv (quote locale)))) (dolist (loc (if (listp
locs) locs (list locs))) (let ((retval (cond ((functionp loc) (funcall
loc nil)) ((stringp loc) (set-current-locale loc)) (t nil)))) (when
retval (setenv "LANG" retval) (return t)))))))
  (letf* (((symbol-function (quote
mswindows-get-and-set-locale-from-langenv)) (function* (lambda
(langenv) (block mswindows-get-and-set-locale-from-langenv (let
((ms-locale (gethash langenv mswindows-langenv-to-locale-table))) (if
ms-locale (progn (declare-fboundp (mswindows-set-current-locale
ms-locale)) ms-locale) (let* ((mslocs (get-language-info langenv
(quote mswindows-locale))) (mslocs (or mslocs (cons (upcase langenv)
"DEFAULT"))) (mslocs (if (and (consp mslocs) (listp (cdr mslocs)))
mslocs (list mslocs)))) (dolist (msloc mslocs) (or (consp msloc) (setq
msloc (cons msloc "DEFAULT"))) (when (condition-case nil (progn
(declare-fboundp (mswindows-set-current-locale msloc)) t) (error nil))
(return msloc))))))))))) (if (eq system-type (quote windows-nt)) (let
((ms-locale (mswindows-get-and-set-locale-from-langenv langenv)))
(when ms-locale (or (set-current-locale (if (string-match "_" (cdr
ms-locale)) (replace-in-string (replace-match "-" nil nil (cdr
ms-locale)) "_" " ") (format "%s-%s" (car ms-locale) (cdr
ms-locale)))) (set-current-locale (car ms-locale)))) (let* ((cygloc
(or (get-language-info langenv (quote cygwin-locale))
(get-language-info langenv (quote locale)))) (cygloc (if (listp
cygloc) (car (last cygloc)) cygloc))) (if (and cygloc (stringp
cygloc)) (setenv "LANG" cygloc))) (not (null ms-locale))) (when (eq
system-type (quote cygwin32))
(mswindows-get-and-set-locale-from-langenv langenv)) (let ((locs
(get-language-info langenv (quote locale)))) (dolist (loc (if (listp
locs) locs (list locs))) (let ((retval (cond ((functionp loc) (funcall
loc nil)) ((stringp loc) (set-current-locale loc)) (t nil)))) (when
retval (setenv "LANG" retval) (return t)))))))
  (flet ((mswindows-get-and-set-locale-from-langenv (langenv) (let
((ms-locale (gethash langenv mswindows-langenv-to-locale-table))) (if
ms-locale (progn (declare-fboundp (mswindows-set-current-locale
ms-locale)) ms-locale) (let* ((mslocs (get-language-info langenv
(quote mswindows-locale))) (mslocs (or mslocs (cons (upcase langenv)
"DEFAULT"))) (mslocs (if (and (consp mslocs) (listp (cdr mslocs)))
mslocs (list mslocs)))) (dolist (msloc mslocs) (or (consp msloc) (setq
msloc (cons msloc "DEFAULT"))) (when (condition-case nil (progn
(declare-fboundp (mswindows-set-current-locale msloc)) t) (error nil))
(return msloc)))))))) (if (eq system-type (quote windows-nt)) (let
((ms-locale (mswindows-get-and-set-locale-from-langenv langenv)))
(when ms-locale (or (set-current-locale (if (string-match "_" (cdr
ms-locale)) (replace-in-string (replace-match "-" nil nil (cdr
ms-locale)) "_" " ") (format "%s-%s" (car ms-locale) (cdr
ms-locale)))) (set-current-locale (car ms-locale)))) (let* ((cygloc
(or (get-language-info langenv (quote cygwin-locale))
(get-language-info langenv (quote locale)))) (cygloc (if (listp
cygloc) (car (last cygloc)) cygloc))) (if (and cygloc (stringp
cygloc)) (setenv "LANG" cygloc))) (not (null ms-locale))) (when (eq
system-type (quote cygwin32))
(mswindows-get-and-set-locale-from-langenv langenv)) (let ((locs
(get-language-info langenv (quote locale)))) (dolist (loc (if (listp
locs) locs (list locs))) (let ((retval (cond ((functionp loc) (funcall
loc nil)) ((stringp loc) (set-current-locale loc)) (t nil)))) (when
retval (setenv "LANG" retval) (return t)))))))
  # bind (langenv)
  set-locale-for-language-environment("English")
  (and langenv (set-locale-for-language-environment langenv))
  # bind (sysdef userdef)
  (let ((userdef (declare-fboundp (mswindows-user-default-locale)))
(sysdef (declare-fboundp (mswindows-system-default-locale)))) (setq
langenv (mswindows-get-language-environment-from-locale userdef))
(puthash (mswindows-get-language-environment-from-locale sysdef)
sysdef mswindows-langenv-to-locale-table) (puthash langenv userdef
mswindows-langenv-to-locale-table) (and langenv
(set-locale-for-language-environment langenv)) (declare-fboundp
(mswindows-set-current-locale userdef)))
  (if (memq system-type (quote (windows-nt cygwin32))) (let ((userdef
(declare-fboundp (mswindows-user-default-locale))) (sysdef
(declare-fboundp (mswindows-system-default-locale)))) (setq langenv
(mswindows-get-language-environment-from-locale userdef)) (puthash
(mswindows-get-language-environment-from-locale sysdef) sysdef
mswindows-langenv-to-locale-table) (puthash langenv userdef
mswindows-langenv-to-locale-table) (and langenv
(set-locale-for-language-environment langenv)) (declare-fboundp
(mswindows-set-current-locale userdef))) (let (locstring)
(set-current-locale "") (setq locstring (current-locale) langenv (and
locstring (get-language-environment-from-locale locstring)))))
  # bind (langenv)
  (let (langenv) (if (memq system-type (quote (windows-nt cygwin32)))
(let ((userdef (declare-fboundp (mswindows-user-default-locale)))
(sysdef (declare-fboundp (mswindows-system-default-locale)))) (setq
langenv (mswindows-get-language-environment-from-locale userdef))
(puthash (mswindows-get-language-environment-from-locale sysdef)
sysdef mswindows-langenv-to-locale-table) (puthash langenv userdef
mswindows-langenv-to-locale-table) (and langenv
(set-locale-for-language-environment langenv)) (declare-fboundp
(mswindows-set-current-locale userdef))) (let (locstring)
(set-current-locale "") (setq locstring (current-locale) langenv (and
locstring (get-language-environment-from-locale locstring))))) (unless
langenv (setq langenv "English")) (setq current-language-environment
langenv) (let ((default-eol-type (coding-system-eol-type
default-buffer-file-coding-system))) (reset-language-environment)
(set-language-environment-coding-systems langenv default-eol-type)))
  init-locale-at-early-startup()
*** Killing XEmacs

Please let me know what additional information you need to fix this.

Thank you,
  Vin