(ctext-pre-write-conversion): Produce

extra designation sequence for ASCII at the end off extended
segment.

1 files changed, 5 insertions, 0 deletions

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 03d8b0f5c7c..f59a05edd1d 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1527,6 +1527,11 @@ text, and convert it in the temporary buffer.  Otherwise, convert in-place."
                        (encode-coding-region last-pos (point) coding-system)
                        (setq len (+ (length encoding-name) 1
                                     (- (point) last-pos)))
+                       ;; According to the spec of CTEXT, it is not
+                       ;; necessary to produding this extra
+                       ;; designation sequence, but some buggy
+                       ;; application (e.g. crxvt-gb) requires it.
+                       (insert "\e(B")
                        (save-excursion
                          (goto-char last-pos)
                          (insert (format "\e%%/%d" noctets))